Skip to content

S
StarUML Evológica Plugin
Commit 2eed97fd authored by Sandro Camata Santana's avatar Sandro Camata Santana
Browse files
Options

Ajustes no plugin original

parent a210af3d
Hide whitespace changes
Inline Side-by-side
Showing with 253 additions and 97 deletions
src/DelphiAddIn.res
View file @ 2eed97fd
No preview for this file type
src/acuObjectExplorer.dfm 0 → 100644
View file @ 2eed97fd
object ObjectExplorer: TObjectExplorer
Left = 0
Top = 0
Width = 320
Height = 240
TabOrder = 0
TabStop = True
object tvExplorer: TElTree
Left = 0
Top = 0
Width = 320
Height = 240
Align = alClient
AlwaysKeepSelection = False
FullRowSelect = False
HeaderHeight = 21
HeaderSections.Data = {F4FFFFFF00000000}
HorzScrollBarStyles.ShowTrackHint = False
HorzScrollBarStyles.Width = 17
HorzScrollBarStyles.ButtonSize = 17
LineHeight = 17
MultiSelect = False
RowSelect = False
ShowLeafButton = True
ShowLines = False
ShowRoot = True
TabOrder = 0
TabStop = True
VertScrollBarStyles.ShowTrackHint = True
VertScrollBarStyles.Width = 17
VertScrollBarStyles.ButtonSize = 17
OnItemExpanding = tvExplorerItemExpanding
end
end
src/acuObjectExplorer.pas 0 → 100644
View file @ 2eed97fd
unit acuObjectExplorer;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, acuframework, ElXPThemedControl, ElTree;
type
TObjectExplorer = class(TFrame)
tvExplorer: TElTree;
procedure tvExplorerItemExpanding(Sender: TObject; Node: TElTreeItem; var AllowExpansion: Boolean);
private
{ Private declarations }
public
{ Public declarations }
procedure SetSession(piSession: acPersistenceSession);
procedure SetList(piList: acPersistentObjectList; piDesc: string);
procedure SetPersistenceManager(piPersistenceManager: acPersistenceManager);
end;
implementation
{$R *.dfm}
uses TypInfo, acuobject;
procedure TObjectExplorer.SetList(piList: acPersistentObjectList; piDesc: string);
begin
tvExplorer.Items.Clear;
if assigned(piList) then tvExplorer.Items.AddChildObject(nil, piDesc, piList).Expand(False);
end;
procedure TObjectExplorer.SetPersistenceManager(piPersistenceManager: acPersistenceManager);
begin
tvExplorer.Items.AddChildObject(nil, 'Objects Repository', piPersistenceManager).Expand(False);
end;
procedure TObjectExplorer.SetSession(piSession: acPersistenceSession);
begin
tvExplorer.Items.Clear;
if assigned(piSession) then tvExplorer.Items.AddChildObject(nil, piSession.Name, piSession).Expand(False);
end;
procedure TObjectExplorer.tvExplorerItemExpanding(Sender: TObject; Node: TElTreeItem; var AllowExpansion: Boolean);
var lSession: acPersistenceSession;
lPatriarca: acPatriarca;
lPersistentObject: acPersistentObject;
lClassTicket: acClassTicket;
lObject: acObject;
lEnumerator: acEnumerator;
li: integer;
lAttribute: acAttribute;
lAttributeTicket: acAttributeTicket;
lPropertyName: String;
lRelation: acRelationTicket;
begin
if (Node.Tag <> 100) then
begin
Node.Owner.Items.BeginUpdate;
try
if (TObject(Node.Data) is acPersistenceManager) then
begin
lEnumerator := acPersistenceManager(Node.Data).GetSessionsEnumerator;
li := 1;
while not lEnumerator.EOL do
begin
lSession := acPersistenceSession(lEnumerator.Current);
Node.Owner.Items.AddChildObject(Node, 'Session ' + inttostr(li) + ': ' + lSession.Name, lSession);
lEnumerator.MoveNext;
inc(li);
end;
end
else if (TObject(Node.Data) is acPersistenceSession) then
begin
lSession := acPersistenceSession(Node.Data);
lEnumerator := lSession.getPatriarcsEnumerator;
while not lEnumerator.EOL do
begin
lPatriarca := acPatriarca(lEnumerator.Current);
Node.Owner.Items.AddChildObject(Node, lPatriarca.ClassTicket.PersistentObjectClassName, lPatriarca);
lEnumerator.MoveNext;
end;
end
else if (TObject(Node.Data) is acPatriarca) then
begin
lPatriarca := acPatriarca(Node.Data);
lEnumerator := lPatriarca.Objects.GetEnumerator;
while not lEnumerator.EOL do
begin
lPersistentObject := acPersistentObject(lEnumerator.Current);
Node.Owner.Items.AddChildObject(Node, lPersistentObject.ClassTicket.PersistentObjectClassName + ' (OID:' + lPersistentObject.IDO.AsString + ')', lPersistentObject);
lEnumerator.MoveNext;
end;
lEnumerator := lPatriarca.NewObjects.GetEnumerator;
while not lEnumerator.EOL do
begin
lPersistentObject := acPersistentObject(lEnumerator.Current);
Node.Owner.Items.AddChildObject(Node, lPersistentObject.ClassTicket.PersistentObjectClassName + ' (OID:' + lPersistentObject.IDO.AsString + ')', lPersistentObject);
lEnumerator.MoveNext;
end;
end
else if (TObject(Node.Data) is acPersistentObject) or (TObject(Node.Data) is acRelationPartnerShip) then
begin
if (TObject(Node.Data) is acPersistentObject)
then lPersistentObject := acPersistentObject(Node.Data)
else lPersistentObject := acRelationPartnerShip(Node.Data).Partner;
lClassTicket := lPersistentObject.ClassTicket;
while lClassTicket <> nil do
begin
for li := 0 to pred(lClassTicket.Attributes.Count) do
begin
lAttributeTicket := acAttributeTicket(lClassTicket.Attributes.Objects[li]);
lAttribute := lPersistentObject.AttributeByName[lAttributeTicket.AttributeName];
if assigned(lAttribute) then
begin
if lAttribute.IsNull
then Node.Owner.Items.AddChildObject(Node, lAttributeTicket.AttributeName+ ': '+lAttributeTicket.AttributeType+' (null)', lAttribute).Tag := 100
else Node.Owner.Items.AddChildObject(Node, lAttributeTicket.AttributeName+ ': '+lAttributeTicket.AttributeType+' ('+lAttribute.AsString + ')', lAttribute);
end;
end;
lClassTicket := lClassTicket.ParentClassTicket;
end;
lClassTicket := lPersistentObject.ClassTicket;
while lClassTicket <> nil do
begin
for li := 0 to pred(lClassTicket.RelationTicketsIn.Count) do
begin
lRelation := (lClassTicket.RelationTicketsIn.Objects[li] as acRelationTicket);
lPropertyName := lRelation.DestinationPropertyName;
if (lPropertyName <> '') then
begin
if lRelation.DestinationMaxMultiplicity <= 1 then
begin
lObject := acObject(lPersistentObject.PartnerShipByName[lPropertyName]);
if acRelationPartnerShip(lObject).Status = PSLoaded then
if assigned(acRelationPartnerShip(lObject).Partner)
then Node.Owner.Items.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.OriginTicket.PersistentObjectClassName + ' (OID:' + acRelationPartnerShip(lObject).Partner.IDO.AsString + ')', acRelationPartnerShip(lObject).Partner)
else Node.Owner.Items.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.OriginTicket.PersistentObjectClassName + ' (null)', lObject).Tag := 100
else
if assigned(acRelationPartnerShip(lObject).PartnerOID)
then Node.Owner.Items.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.OriginTicket.PersistentObjectClassName + ' (OID:' + acRelationPartnerShip(lObject).PartnerOID.AsString + ')', lObject)
else Node.Owner.Items.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.OriginTicket.PersistentObjectClassName + ' (null)', lObject).Tag := 100;
end
else
begin
lObject := acObject(lPersistentObject.PartnerListByName[lPropertyName]);
Node.Owner.Items.AddChildObject(Node, lPropertyName, lObject);
end;
end;
end;
for li := 0 to pred(lClassTicket.RelationTicketsOut.Count) do
begin
lRelation := (lClassTicket.RelationTicketsOut.Objects[li] as acRelationTicket);
lPropertyName := lRelation.OriginPropertyName;
if (lPropertyName <> '') then
begin
if lRelation.OriginMaxMultiplicity <= 1 then
begin
lObject := acObject(lPersistentObject.PartnerShipByName[lPropertyName]);
if acRelationPartnerShip(lObject).Status = PSLoaded then
if assigned(acRelationPartnerShip(lObject).Partner)
then Node.Owner.Items.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.DestinationTicket.PersistentObjectClassName + ' (OID:' + acRelationPartnerShip(lObject).Partner.IDO.AsString + ')', acRelationPartnerShip(lObject).Partner)
else Node.Owner.Items.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.DestinationTicket.PersistentObjectClassName + ' (null)', lObject).Tag := 100
else
if assigned(acRelationPartnerShip(lObject).PartnerOID)
then Node.Owner.Items.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.DestinationTicket.PersistentObjectClassName + ' (OID:' + acRelationPartnerShip(lObject).PartnerOID.AsString + ')', lObject)
else Node.Owner.Items.AddChildObject(Node, lPropertyName+ ': ' + acRelationPartnerShip(lObject).RelationTicket.DestinationTicket.PersistentObjectClassName + ' (null)', lObject).Tag := 100;
end
else
begin
lObject := acObject(lPersistentObject.PartnerListByName[lPropertyName]);
Node.Owner.Items.AddChildObject(Node, lPropertyName, lObject);
end;
end;
end;
lClassTicket := lClassTicket.ParentClassTicket;
end;
end
else if (TObject(Node.Data) is acPersistentObjectList) then
begin
lEnumerator := acPersistentObjectList(Node.Data).GetEnumerator;
while not lEnumerator.EOL do
begin
lPersistentObject := acPersistentObject(lEnumerator.Current);
Node.Owner.Items.AddChildObject(Node, lPersistentObject.ClassTicket.PersistentObjectClassName + ' (OID:' + lPersistentObject.IDO.AsString + ')', lPersistentObject);
lEnumerator.MoveNext;
end;
end;
Node.Tag := 100;
finally
Node.Owner.Items.EndUpdate;
end;
end;
AllowExpansion := True;
end;
end.
src/fCodeGen.dfm
View file @ 2eed97fd
......@@ -11,7 +11,7 @@ object CodeGen: TCodeGen
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Position = poMainFormCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
......@@ -25,10 +25,6 @@ object CodeGen: TCodeGen
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'UseCase'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel3: TPanel
Left = 0
Top = 0
......@@ -221,8 +217,8 @@ object CodeGen: TCodeGen
object Label2: TLabel
Left = 2
Top = 2
Width = 272
Height = 39
Width = 276
Height = 40
Align = alClient
Caption =
'If there is a usecase that is not appearing in this list and sho' +
......@@ -232,6 +228,8 @@ object CodeGen: TCodeGen
ParentColor = False
Transparent = False
WordWrap = True
ExplicitWidth = 272
ExplicitHeight = 39
end
end
end
......@@ -245,10 +243,6 @@ object CodeGen: TCodeGen
TabOrder = 1
object TabSheet2: TTabSheet
Caption = 'Usecase'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel5: TPanel
Left = 0
Top = 0
......@@ -274,30 +268,19 @@ object CodeGen: TCodeGen
Width = 587
Height = 411
Cursor = crIBeam
GutterWidth = 0
RightMargin = 120
RightMarginColor = clSilver
ReadOnly = True
Completion.ItemHeight = 13
Completion.Interval = 800
Completion.ListBoxStyle = lbStandard
Completion.CaretChar = '|'
Completion.CRLF = '/n'
Completion.Separator = '='
TabStops = '3 5'
BracketHighlighting.StringEscape = #39#39
SelForeColor = clHighlightText
SelBackColor = clHighlight
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentColor = False
ParentFont = False
TabStop = True
UseDockManager = False
Colors.Comment.Style = [fsItalic]
Colors.Comment.ForeColor = clGreen
Colors.Comment.BackColor = clWindow
......@@ -388,30 +371,19 @@ object CodeGen: TCodeGen
Width = 583
Height = 278
Cursor = crIBeam
GutterWidth = 0
RightMargin = 120
RightMarginColor = clSilver
ReadOnly = True
Completion.ItemHeight = 13
Completion.Interval = 800
Completion.ListBoxStyle = lbStandard
Completion.CaretChar = '|'
Completion.CRLF = '/n'
Completion.Separator = '='
TabStops = '3 5'
BracketHighlighting.StringEscape = #39#39
SelForeColor = clHighlightText
SelBackColor = clHighlight
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentColor = False
ParentFont = False
TabStop = True
UseDockManager = False
Highlighter = hlNone
Colors.Comment.Style = [fsItalic]
Colors.Comment.ForeColor = clGreen
......@@ -453,30 +425,19 @@ object CodeGen: TCodeGen
Width = 583
Height = 278
Cursor = crIBeam
GutterWidth = 0
RightMargin = 120
RightMarginColor = clSilver
ReadOnly = True
Completion.ItemHeight = 13
Completion.Interval = 800
Completion.ListBoxStyle = lbStandard
Completion.CaretChar = '|'
Completion.CRLF = '/n'
Completion.Separator = '='
TabStops = '3 5'
BracketHighlighting.StringEscape = #39#39
SelForeColor = clHighlightText
SelBackColor = clHighlight
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentColor = False
ParentFont = False
TabStop = True
UseDockManager = False
Highlighter = hlNone
Colors.Comment.Style = [fsItalic]
Colors.Comment.ForeColor = clGreen
......@@ -518,10 +479,6 @@ object CodeGen: TCodeGen
TabOrder = 2
object TabSheet7: TTabSheet
Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel1: TPanel
Left = 0
Top = 0
......@@ -971,30 +928,19 @@ object CodeGen: TCodeGen
Width = 871
Height = 518
Cursor = crIBeam
GutterWidth = 0
RightMargin = 120
RightMarginColor = clSilver
ReadOnly = True
Completion.ItemHeight = 13
Completion.Interval = 800
Completion.ListBoxStyle = lbStandard
Completion.CaretChar = '|'
Completion.CRLF = '/n'
Completion.Separator = '='
TabStops = '3 5'
BracketHighlighting.StringEscape = #39#39
SelForeColor = clHighlightText
SelBackColor = clHighlight
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentColor = False
ParentFont = False
TabStop = True
UseDockManager = False
Highlighter = hlSql
Colors.Comment.Style = [fsItalic]
Colors.Comment.ForeColor = clNavy
......@@ -1061,30 +1007,19 @@ object CodeGen: TCodeGen
Width = 871
Height = 518
Cursor = crIBeam
GutterWidth = 0
RightMargin = 120
RightMarginColor = clSilver
ReadOnly = True
Completion.ItemHeight = 13
Completion.Interval = 800
Completion.ListBoxStyle = lbStandard
Completion.CaretChar = '|'
Completion.CRLF = '/n'
Completion.Separator = '='
TabStops = '3 5'
BracketHighlighting.StringEscape = #39#39
SelForeColor = clHighlightText
SelBackColor = clHighlight
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentColor = False
ParentFont = False
TabStop = True
UseDockManager = False
Highlighter = hlSql
Colors.Comment.Style = [fsItalic]
Colors.Comment.ForeColor = clNavy
......@@ -1151,30 +1086,19 @@ object CodeGen: TCodeGen
Width = 871
Height = 518
Cursor = crIBeam
GutterWidth = 0
RightMargin = 120
RightMarginColor = clSilver
ReadOnly = True
Completion.ItemHeight = 13
Completion.Interval = 800
Completion.ListBoxStyle = lbStandard
Completion.CaretChar = '|'
Completion.CRLF = '/n'
Completion.Separator = '='
TabStops = '3 5'
BracketHighlighting.StringEscape = #39#39
SelForeColor = clHighlightText
SelBackColor = clHighlight
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Courier New'
Font.Style = []
ParentColor = False
ParentFont = False
TabStop = True
UseDockManager = False
Highlighter = hlSql
Colors.Comment.Style = [fsItalic]
Colors.Comment.ForeColor = clNavy
......
src/fModelMappingsGenerationOptions.dfm
View file @ 2eed97fd
......@@ -12,7 +12,7 @@ object ModelMappingsGenerationOptions: TModelMappingsGenerationOptions
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Position = poMainFormCenter
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
......
src/fXSDEditor.dfm
View file @ 2eed97fd
......@@ -11,7 +11,7 @@ object XSDEdit: TXSDEdit
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
......
src/itu/uCadastroCasoDeUso.dfm
View file @ 2eed97fd
......@@ -12,7 +12,7 @@ object CadastroCasoDeUso: TCadastroCasoDeUso
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Position = poMainFormCenter
PixelsPerInch = 96
TextHeight = 13
object pnPrincipal: TPanel
......
src/itu/uCadastroCasoDeUsoIcones.dfm
View file @ 2eed97fd
......@@ -11,7 +11,7 @@ object CadastroCasoDeUsoIcones: TCadastroCasoDeUsoIcones
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Position = poMainFormCenter
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
......
src/itu/uCadastroClasse.dfm
View file @ 2eed97fd
......@@ -12,7 +12,7 @@ object CadastroClasse: TCadastroClasse
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Position = poMainFormCenter
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
......
src/ituDataBaseLogin.dfm
View file @ 2eed97fd
......@@ -13,7 +13,7 @@ object DataBaseLogin: TDataBaseLogin
Font.Name = 'Trebuchet MS'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Position = poMainFormCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
......
src/ituExplorer.dfm
View file @ 2eed97fd
......@@ -11,7 +11,7 @@ object Explorer: TExplorer
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Position = poMainFormCenter
Scaled = False
WindowState = wsMaximized
OnClose = FormClose
......
src/ituOQLParams.dfm
View file @ 2eed97fd
......@@ -12,7 +12,7 @@ object OQLParams: TOQLParams
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Position = poMainFormCenter
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
......
src/ituServiceParameters.dfm
View file @ 2eed97fd
......@@ -12,7 +12,7 @@ object itServiceParameters: TitServiceParameters
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Position = poMainFormCenter
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
......@@ -22,8 +22,6 @@ object itServiceParameters: TitServiceParameters
Height = 186
Align = alClient
TabOrder = 1
ExplicitWidth = 229
ExplicitHeight = 191
object GroupBox1: TGroupBox
Left = 6
Top = 3
......@@ -124,8 +122,6 @@ object itServiceParameters: TitServiceParameters
Height = 39
Align = alBottom
TabOrder = 0
ExplicitTop = 187
ExplicitWidth = 229
object BitBtn1: TBitBtn
Left = 77
Top = 6
......
src/uConnStringTemplates.dfm
View file @ 2eed97fd
......@@ -12,7 +12,7 @@ object ConnStringsTemplates: TConnStringsTemplates
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
Position = poMainFormCenter
PixelsPerInch = 96
TextHeight = 13
object rdgOptions: TRadioGroup
......
src/uDBAttributeParameters.dfm
View file @ 2eed97fd
......@@ -13,7 +13,7 @@ object fDBAttributeParameters: TfDBAttributeParameters
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poDesktopCenter
Position = poMainFormCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
......
src/uRTFEditor.dfm
View file @ 2eed97fd
......@@ -37,7 +37,7 @@ object RTFEditor: TRTFEditor
0003800000038000000380000003800000038000000780000007FFFFFFFF}
Menu = MainMenu
OldCreateOrder = True
Position = poDesktopCenter
Position = poMainFormCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnPaint = FormPaint
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment