Merge remote-tracking branch 'origin/EVOUMLPlugin' into EVOUMLPlugin

EvoUMLPlugin/src/acuObjectExplorer.lrs

-{ This is an automatically generated lazarus resource file }
-
-LazarusResources.Add('TObjectExplorer','FORMDATA',[
-  'TPF0'#15'TObjectExplorer'#14'ObjectExplorer'#4'Left'#2#0#6'Height'#3#240#0#3
-  +'Top'#2#0#5'Width'#3'@'#1#12'ClientHeight'#3#240#0#11'ClientWidth'#3'@'#1#8
-  +'TabOrder'#2#0#7'TabStop'#9#0#9'TTreeView'#10'tvExplorer'#4'Left'#2#0#6'Heig'
-  +'ht'#3#240#0#3'Top'#2#0#5'Width'#3'@'#1#5'Align'#7#8'alClient'#9'ShowLines'#8
-  +#8'TabOrder'#2#0#7'Options'#11#17'tvoAutoItemHeight'#16'tvoHideSelection'#21
-  +'tvoKeepCollapsedNodes'#14'tvoShowButtons'#11'tvoShowRoot'#11'tvoToolTips'#13
-  +'tvoThemedDraw'#0#0#0#0
-]);

EvoUMLPlugin/src/ituOQLParams.lrs

-{ This is an automatically generated lazarus resource file }
-
-LazarusResources.Add('TOQLParams','FORMDATA',[
-  'TPF0'#10'TOQLParams'#9'OQLParams'#4'Left'#2#0#6'Height'#3#163#0#3'Top'#2#0#5
-  +'Width'#3'4'#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#9'OQLParams'#12'Cl'
-  +'ientHeight'#3#163#0#11'ClientWidth'#3'4'#1#5'Color'#7#9'clBtnFace'#10'Font.'
-  +'Color'#7#12'clWindowText'#11'Font.Height'#2#245#9'Font.Name'#6#6'Tahoma'#7
-  +'OnClose'#7#9'FormClose'#8'Position'#7#15'poDesktopCenter'#10'LCLVersion'#6#7
-  +'2.1.0.0'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2'{'#3'Top'#2#0#5'Widt'
-  +'h'#3'4'#1#5'Align'#7#8'alClient'#12'ClientHeight'#2'{'#11'ClientWidth'#3'4'
-  +#1#8'TabOrder'#2#0#0#10'TScrollBox'#8'sbParams'#3'Tag'#2#236#4'Left'#2#1#6'H'
-  +'eight'#2'y'#3'Top'#2#1#5'Width'#3'2'#1#18'HorzScrollBar.Page'#2#1#18'VertSc'
-  +'rollBar.Page'#2#1#5'Align'#7#8'alClient'#8'TabOrder'#2#0#0#0#0#6'TPanel'#6
-  +'Panel2'#4'Left'#2#0#6'Height'#2'('#3'Top'#2'{'#5'Width'#3'4'#1#5'Align'#7#8
-  +'alBottom'#12'ClientHeight'#2'('#11'ClientWidth'#3'4'#1#8'TabOrder'#2#1#0#7
-  +'TBitBtn'#7'BitBtn1'#4'Left'#3#136#0#6'Height'#2#25#3'Top'#2#7#5'Width'#2'K'
-  +#7'Anchors'#11#5'akTop'#7'akRight'#0#4'Kind'#7#4'bkOK'#7'OnClick'#7#12'BitBt'
-  +'n1Click'#8'TabOrder'#2#0#0#0#7'TBitBtn'#7'BitBtn2'#4'Left'#3#217#0#6'Height'
-  +#2#25#3'Top'#2#7#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#4'Kind'#7
-  +#8'bkCancel'#8'TabOrder'#2#1#0#0#7'TBitBtn'#7'BitBtn3'#4'Left'#2'U'#6'Height'
-  +#2#25#3'Top'#2#7#5'Width'#2'$'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'
-  +#6#4'Null'#9'NumGlyphs'#2#2#7'OnClick'#7#12'BitBtn3Click'#8'TabOrder'#2#2#0#0
-  +#0#0
-]);

src/acuObjectExplorer.dfm

+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

+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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -37,7 +37,7 @@ object RTFEditor: TRTFEditor
     0003800000038000000380000003800000038000000780000007FFFFFFFF}
   Menu = MainMenu
   OldCreateOrder = True
-  Position = poDesktopCenter
+  Position = poMainFormCenter
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnPaint = FormPaint