Tda TSCAModels

Tda, kter pracuje pmo se SCA databz a uchovv seznam vech model, se jmenuje TSCAModels.
Poznmka: Model je v nzvoslov programu SCA nazvn jako Project.

Kd konstruktoru tto tdy:
constructor TSCAModels.Create(AOwner: TComponent);
begin
  inherited;
  try
    FOleValue:=CreateOleObject('SCA.Models');
  except
    on E: Exception do
    begin
      E.Message:='SCA Error (TSCAModels.Create):'+#$0D#$0A+
        'SCA client is running???'+#$0D#$0A+E.Message;
      raise;
    end;
  end;
end;

Seznam funkc tdy TSCAModels:
procedure TSCAModels.FillAllObjects(S: TStrings);
function TSCAModels.GetModel(MName: string): TSCAModel;
function TSCAModels.GetModelC(MName: string;
function TSCAModels.GetModelCount: integer;
function TSCAModels.GetOLEModel(MName: string): OleVariant;



Tda TSCAModel

Tda, kter pracuje s konkrtnm modelem se jmenuje TSCAModel.
Seznam funkc tto tdy:
function TSCAModel.GetMenuXML(UseCaseName: string): string;
procedure TSCAModel.SetMenuXML(UseCaseName: string; XML: string);
function TSCAModel.GetDBRolesXML: string;
procedure TSCAModel.SetDBRolesXML(XML: string);
function TSCAModel.GetOLEClass(CName: string): OleVariant;
function TSCAModel.GetOLEDiagram(DName: string): OleVariant;
function TSCAModel.GetOLEDictionary(DName: string): OleVariant;
function TSCAModel.GetSCAClass(CName: string): TSCAClass;
procedure TSCAModel.SetID(const Value: string);
procedure TSCAModel.SetNazev(const Value: string);
procedure TSCAModel.FillMenus(TV: TTreeView);
procedure TSCAModel.FillBasicTypes(S: TStrings);
function TSCAModel.GetGuiCfgCount: integer;



Tda TSCAClass

Tda, kter pracuje s konkrtn tdou se jmenuje TSCAClass.
Seznam funkc tdy TSCAClass:
procedure TSCAClass.FillStringsBySelf(S: TStrings);
procedure TSCAClass.FillAllAttrib(S: TStrings; Prefix: string; OwnerObject: TSCAClassObject;
procedure TSCAClass.FillAllOperation(S: TStrings; Prefix: string; OwnerObject: TSCAClassObject; const FirstCall: boolean = true);
procedure TSCAClass.FillAllOperationInvisble(S: TStrings; Prefix: string;
procedure TSCAClass.FillAllObjects(S: TStrings; Prefix: string; OwnerObject: TSCAClassObject;
procedure TSCAClass.FindInExternal(var SCAC: TSCAClass; propID: string);
procedure TSCAClass.FillAllAssociationStart(S: TStrings);
procedure TSCAClass.FillAllAssociation(S: TStrings; AssocName,AtribName: string);
function TSCAClass.GetOLEVariant: OLEVariant;
function TSCAClass.Check: boolean;
function TSCAClass.GetStereotype: TClassStereotype;
procedure TSCAClass.SetModelIndex(const Value: integer);
procedure TSCAClass.SetNazev(const Value: string);
procedure TSCAClass.SetID(const Value: string);
procedure TSCAClass.SetParentID(const Value: string);
function TSCAClass.GetSCAParentID: string;
function TSCAClass.IsIDInTree(var SCAClass: TSCAClass;
function TSCAClass.IsClassNazevInTree(var SCAClass: TSCAClass;
procedure TSCAClass.FillTreeView(TV: TTreeView; TN: TTreeNode);
procedure TSCAClass.SetExtended(const Value: boolean);
procedure TSCAClass.RemoveExternal;
procedure TSCAClass.GetAllClasses(L: TList);
procedure TSCAClass.SetTreeNode(const Value: TTreeNode);
function TSCAClass.GetGUIINI: string;
procedure TSCAClass.SetEditGuiCFG(const Value: string);
function TSCAClass.GetEditGuiCFG: string;
function TSCAClass.GetGUICFG: string;
procedure TSCAClass.SetGuiCFG(const Value: string);
procedure TSCAClass.SetGUIExistFlag(const Value: boolean);
procedure TSCAClass.DrawItem(C: TCanvas; R: TRect; State: TOwnerDrawState);
procedure TSCAClass.FillAllDescendant(S: TStrings);
procedure TSCAClass.FillAllDescendantForms(S: TStrings; IncludeID: boolean; const aOwner: TComponent = nil);
function TSCAClass.GetGUICFGHeader(FP: TFormProperty): string;
function TSCAClass.GetGUICFGHeader(FP: TFormProperty): string;
class function TSCAClass.GetGUICFGHeaderForEmptyIII(FP: TFormProperty): string;
function TSCAClass.GetGUICFGHeaderForEmpty(FP: TFormProperty): string;
function TSCAClass.GetGUICFGHeaderForEmptyII(FP: TFormProperty): string;
function TSCAClass.GetObjectPathFromObjAttribute(ObjAttribute: string): string;
function TSCAClass.GetAttribute(AttrName: string): OleVariant;
function TSCAClass.GetClassDiagramList: string;
function TSCAClass.GetPackages: string;
procedure TSCAClass.FreeFCheckMethodList;
procedure TSCAClass.PrepareMethodList;
function TSCAClass.FindCheckMethod(MName: string; var M: TSCAClassMethod): boolean;
function TSCAClass.CheckMethodList(var Err: string; var Wrn: string): boolean;
procedure TSCAClass.SetEnumeration(const Value: boolean);
function TSCAClass.GetClassLevel: integer;
function TSCAClass.InheritedFromClass(ClsName: string): boolean;
function TSCAClass.GetSpecialOwnerPackage: string;
procedure TSCAClass.SetMultiInheritanceClass(const Value: string);
function TSCAClass.GetMultiInheritance: boolean;
procedure TSCAClass.FillAllDataInterfacesAttrib(S: TStrings; Methods: boolean);
function TSCAClass.CheckInheritance : string;
procedure TSCAClass.GetRightsForIUD(Role: string; var I, U, D, S: Boolean);
procedure TSCAClass.SetRightsForIUD(Role: string; I, U, D, S: Boolean);
