Skip to content

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

Ajustes de cor e posicionamento de janelas. Ajuste na janela gerar RegisterModelMappings

parent f589c165
Hide whitespace changes
Inline Side-by-side
Showing with 230 additions and 121 deletions
EvoUMLPlugin/src/IntegracaoDelphiSUML.pas
View file @ af71990f
......@@ -4613,7 +4613,7 @@ begin
lInstantCodeProperty.Name := lRelation.DestinationPropertyName;
lInstantCodeProperty.TypeName := 'acRelationPartnerShip';
end;
lInstantCodeProperty.Index := IntToStr(lRelation.DestinationPropertyIndex);
lInstantCodeProperty.Index := piClassTicket.PersistentObjectClassName + '_' + lRelation.DestinationPropertyName;
end;
end;
for li := 0 to piClassTicket.RelationTicketsOut.Count - 1 do
......@@ -4634,16 +4634,16 @@ begin
end
else
begin
lInstantCodeField := piInstantCodeClass.AddField(viPrivate);
lInstantCodeField.TypeName := 'acRelationPartnerShip';
lInstantCodeField.Name := 'f'+lRelation.OriginPropertyName;
// lInstantCodeField := piInstantCodeClass.AddField(viPrivate);
// lInstantCodeField.TypeName := 'acRelationPartnerShip';
// lInstantCodeField.Name := 'f'+lRelation.OriginPropertyName;
lInstantCodeProperty := piInstantCodeClass.AddProperty(viPublished);
lInstantCodeProperty.GetterName := 'getPartnerShip';
lInstantCodeProperty.Name := lRelation.OriginPropertyName;
lInstantCodeProperty.TypeName := 'acRelationPartnerShip';
end;
lInstantCodeProperty.Index := IntToStr(lRelation.OriginPropertyindex);
lInstantCodeProperty.Index := piClassTicket.PersistentObjectClassName + '_' + lRelation.OriginPropertyName;
end;
end;
// piClassTicket := piClassTicket.ParentClassTicket;
......@@ -5019,12 +5019,12 @@ begin
else
begin
if not SameText(piClass.GetGeneralizationAt(0).Parent.Name, cBASE_PERSISTENT_OBJECT_CLASS) then
lInstantCodeModule.InterfaceSection.AddUses.Name := 'acuframework, ' +
lInstantCodeModule.InterfaceSection.AddUses.Name := 'acuframework, acuRegisterModelMappings, ' +
Copy(piClass.GetGeneralizationAt(0).Parent.Name, 1, 2) + 'u' +
Copy(piClass.GetGeneralizationAt(0).Parent.Name, 3,
Length(piClass.GetGeneralizationAt(0).Parent.Name)-2)
else
lInstantCodeModule.InterfaceSection.AddUses.Name := 'acuframework';
lInstantCodeModule.InterfaceSection.AddUses.Name := 'acuframework, acuRegisterModelMappings';
lInstantCodeClass := lInstantCodeModule.InterfaceSection.AddClass(lInstantCodeClass);
lInstantCodeClass.Name := lsNomeClasse;
......@@ -5052,7 +5052,7 @@ begin
// end;
lInstantCodeProperty := lInstantCodeClass.AddProperty(viPublished);
lInstantCodeProperty.Index := IntToStr(lAttributeTicket.AttributeIndex);
lInstantCodeProperty.Index := lClassTicket.PersistentObjectClassName + '_' + lsAtributo;
lInstantCodeProperty.GetterName := 'get'+copy(lAttributeTicket.AttributeType,3,Length(lAttributeTicket.AttributeType) - 2);
lInstantCodeProperty.Name := lsAtributo;
lInstantCodeProperty.TypeName := lsTipoAttribute;
......@@ -5080,7 +5080,7 @@ begin
GerarRelationsPartnerShips(lClassTicket, lInstantCodeClass);
lInstantCodeModule.ImplementationSection.Clear;
lInstantCodeModule.ImplementationSection.AddUses.Name := 'acuObject;';
lInstantCodeModule.ImplementationSection.AddUses.Name := 'acuObject';
lInstantCodeModule.InitializationSection.CodeText := ' PersistenceManager.RegisterClass(TypeOf('+lsNomeClasse+'));';
result := lInstantCodeModule.AsString;
......
EvoUMLPlugin/src/fCodeGen.dfm
View file @ af71990f
......@@ -12,7 +12,7 @@ object CodeGen: TCodeGen
Font.Name = 'Tahoma'
KeyPreview = True
OnShow = FormShow
Position = poDesktopCenter
Position = poScreenCenter
LCLVersion = '2.0.2.0'
object PageControl1: TPageControl
Left = 0
......@@ -287,9 +287,15 @@ object CodeGen: TCodeGen
Top = 22
Width = 587
Align = alClient
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 1
BorderStyle = bsNone
Gutter.Width = 29
Gutter.Width = 33
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -753,7 +759,7 @@ object CodeGen: TCodeGen
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 23
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -847,9 +853,15 @@ object CodeGen: TCodeGen
Top = 0
Width = 583
Align = alClient
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0
BorderStyle = bsNone
Gutter.Width = 29
Gutter.Width = 33
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -1313,7 +1325,7 @@ object CodeGen: TCodeGen
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 23
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -1356,9 +1368,15 @@ object CodeGen: TCodeGen
Top = 0
Width = 583
Align = alClient
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0
BorderStyle = bsNone
Gutter.Width = 29
Gutter.Width = 33
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -1822,7 +1840,7 @@ object CodeGen: TCodeGen
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 23
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -2346,9 +2364,15 @@ object CodeGen: TCodeGen
Top = 41
Width = 871
Align = alClient
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 1
BorderStyle = bsNone
Gutter.Width = 29
Gutter.Width = 33
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -2812,7 +2836,7 @@ object CodeGen: TCodeGen
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 23
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......
EvoUMLPlugin/src/fModelMappingsGenerationOptions.dfm
View file @ af71990f
object ModelMappingsGenerationOptions: TModelMappingsGenerationOptions
Left = 640
Height = 496
Top = 251
Left = 2084
Height = 515
Top = 331
Width = 376
BorderStyle = bsDialog
Caption = 'Model Mappings options'
ClientHeight = 496
ClientHeight = 515
ClientWidth = 376
Color = clBtnFace
OnDestroy = FormDestroy
OnShow = FormShow
ParentFont = True
Position = poDesktopCenter
Position = poScreenCenter
LCLVersion = '2.0.2.0'
object Panel1: TPanel
Left = 0
Height = 56
Top = 440
Top = 459
Width = 376
Align = alBottom
ClientHeight = 56
......@@ -98,9 +99,9 @@ object ModelMappingsGenerationOptions: TModelMappingsGenerationOptions
end
object ckbDefault: TCheckBox
Left = 7
Height = 18
Height = 19
Top = 3
Width = 66
Width = 58
Caption = 'Default'
Checked = True
State = cbChecked
......@@ -109,18 +110,18 @@ object ModelMappingsGenerationOptions: TModelMappingsGenerationOptions
end
object Panel2: TPanel
Left = 0
Height = 440
Height = 459
Top = 0
Width = 376
Align = alClient
ClientHeight = 440
ClientHeight = 459
ClientWidth = 376
TabOrder = 1
object Label1: TLabel
Left = 8
Height = 16
Height = 15
Top = 8
Width = 108
Width = 91
Caption = 'Output directory:'
ParentColor = False
end
......@@ -162,17 +163,17 @@ object ModelMappingsGenerationOptions: TModelMappingsGenerationOptions
end
object GroupBox1: TGroupBox
Left = 8
Height = 56
Top = 248
Height = 80
Top = 240
Width = 360
Caption = 'Output file name'
ClientHeight = 33
ClientWidth = 352
ClientHeight = 60
ClientWidth = 356
TabOrder = 2
object lblFileExists: TLabel
Left = 13
Height = 13
Top = 43
Left = 8
Height = 14
Top = 34
Width = 194
Caption = 'File already exists at specified directory.'
Font.CharSet = ANSI_CHARSET
......@@ -184,7 +185,7 @@ object ModelMappingsGenerationOptions: TModelMappingsGenerationOptions
end
object edtFileName: TEdit
Left = 6
Height = 15
Height = 23
Top = 8
Width = 338
OnChange = edtFileNameChange
......@@ -194,17 +195,17 @@ object ModelMappingsGenerationOptions: TModelMappingsGenerationOptions
object GroupBox2: TGroupBox
Left = 8
Height = 56
Top = 312
Top = 326
Width = 360
Caption = 'Options'
ClientHeight = 33
ClientWidth = 352
ClientHeight = 36
ClientWidth = 356
TabOrder = 0
object ckbIgnoreXSD: TCheckBox
Left = 8
Height = 18
Height = 19
Top = 8
Width = 142
Width = 122
Caption = 'Ignore XSD schema'
TabOrder = 0
end
......@@ -212,34 +213,37 @@ object ModelMappingsGenerationOptions: TModelMappingsGenerationOptions
object GroupBox3: TGroupBox
Left = 8
Height = 56
Top = 376
Top = 393
Width = 360
Caption = 'Target Code Laguage'
ClientHeight = 33
ClientWidth = 352
ClientHeight = 36
ClientWidth = 356
TabOrder = 1
object rdObjectPascal: TRadioButton
Left = 8
Height = 18
Height = 19
Top = 8
Width = 104
Width = 91
Caption = 'Object Pascal'
OnClick = rdLanguageClick
TabOrder = 0
end
object rdCSharp: TRadioButton
Left = 160
Height = 18
Height = 19
Top = 8
Width = 38
Width = 35
Caption = 'C#'
OnClick = rdLanguageClick
TabOrder = 1
end
object rdJava: TRadioButton
Left = 272
Height = 18
Height = 19
Top = 8
Width = 46
Width = 42
Caption = 'Java'
OnClick = rdLanguageClick
TabOrder = 2
end
end
......@@ -251,8 +255,10 @@ object ModelMappingsGenerationOptions: TModelMappingsGenerationOptions
BorderWidth = 1
ExpandSignType = tvestPlusMinus
FileSortType = fstNone
Images = ImageList1
ReadOnly = True
TabOrder = 3
OnGetImageIndex = dlbDirectoryGetImageIndex
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
ObjectTypes = [otFolders]
end
......@@ -262,4 +268,53 @@ object ModelMappingsGenerationOptions: TModelMappingsGenerationOptions
left = 184
top = 24
end
object ImageList1: TImageList
left = 255
top = 15
Bitmap = {
4C69010000001000000010000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000002230383802355455003555550035
555500345455212F383800000000000000000000000000000000000000000000
0000000000000000000000000000000000002777A8AA02A1FFFF00A0FFFF00A0
FFFF009FFFFF43A5E0E3212F3838000000000000000000000000000000000000
000000000000000000000000000000000000006BAAAA00A0FFFF00A0FFFF00A0
FFFF00A0FFFF00A0FFFF00A0FFFF00A0FFFF00A0FFFF00A0FFFF00A0FFFF06A2
FFFF77CBFDFF000000000000000000000000006BAAAA00A0FFFF00A0FFFF00A1
FFFF02A2FFFF02A2FFFF02A2FFFF02A2FFFF02A2FFFF02A2FFFF02A2FFFF02A2
FFFF2DB1FDFF000000000000000000000000006BAAAA00A0FFFF04A4FFFF23C6
FFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CA
FFFF28CAFFFF59D4FDFF374D545500000000006BAAAA00A0FFFF0DAEFFFF28CA
FFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CA
FFFF28CAFFFF3BCFFEFF2047545500000000006BAAAA00A0FFFF15B7FFFF28CA
FFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CA
FFFF28CAFFFF4DD3FFFF324C545500000000006BAAAA01A1FFFF1BBDFFFF28CA
FFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CA
FFFF28CAFFFF5DD7FFFF4350545500000000006BAAAA04A5FFFF1FC1FFFF28CA
FFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CA
FFFF28CAFFFF2288A7AA0000000000000000006BAAAA08A9FFFF22C5FFFF28CA
FFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CAFFFF28CA
FFFF28CAFFFF428FA8AA0000000000000000377EA8AA1BB1FEFF26C6FEFF28C8
FEFF28C8FEFF28C8FEFF28C8FEFF28C8FEFF28C8FEFF28C8FEFF28C8FEFF28C8
FEFF38CCFEFF4967707100000000000000002C333838133E54550D4053550D40
53550D4053550D4053550D4053550D4053550D4053550D4053550D4053550D40
53551D4554550000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000
}
BitmapAdv = {
4C69010000004C7A010000001800000018000000E00000000000000078DA6360
18058301CCB9F1F73FF7A2DFFF1916FC47C5737EFF9F7EFDEF7F4ACDE75A80C5
6C6ADA81CB6C12B0FCAADFFF2FBFC5E10E2A980FC2C17BFF106D3EF362D2B1F5
B65F04CD675AF4FFBFDC81FFFF354E9187CD4FFDFE7FFA035A382199CFBF9E7C
B36138EEDA1F9CE68BEFA0DCFCE4EBB8CD97DB4FB9F95D0F709BAF7A8272F3D7
BFC21EFEAC4B29371B84AF7EC66E3ECF1A2A987FF2F77F5CE953780BE5E67B5E
C46DBEF41ECACD2FB8859987255740CA37A5C3949BBFE439661974F2E5DFFF2E
DBFFFCD738F49B6CAC75E8D7FF82EB7FFE8FD67683070000D9CC5696
}
end
end
EvoUMLPlugin/src/fModelMappingsGenerationOptions.pas
View file @ af71990f
......@@ -13,7 +13,7 @@ uses
LCLIntf, LCLType, LMessages,
{$ENDIF}
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons, ShellCtrls, Registry, IntegracaoDelphiSUML;
ExtCtrls, StdCtrls, Buttons, ShellCtrls, Registry, IntegracaoDelphiSUML, ComCtrls;
const cPROJECT_SAVE_OPTIONS_PATH = 'Software\StarUML\Options\' + cOPTIONSCHEMAID + '\Projects\';
......@@ -22,6 +22,7 @@ type
{ TModelMappingsGenerationOptions }
TModelMappingsGenerationOptions = class(TForm)
ImageList1: TImageList;
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
......@@ -41,11 +42,13 @@ type
rdObjectPascal: TRadioButton;
rdCSharp: TRadioButton;
rdJava: TRadioButton;
procedure dlbDirectoryGetImageIndex(Sender: TObject; Node: TTreeNode);
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure edtFileNameChange(Sender: TObject);
procedure dlbDirectoryClick(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure rdLanguageClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
......@@ -112,6 +115,15 @@ begin
GetParameters;
end;
procedure TModelMappingsGenerationOptions.rdLanguageClick(Sender: TObject);
begin
if Sender = rdCSharp
then edtFileName.Text := ChangeFileExt(edtFileName.Text, '.cs')
else if Sender = rdJava
then edtFileName.Text := ChangeFileExt(edtFileName.Text, '.java')
else edtFileName.Text := ChangeFileExt(edtFileName.Text, '.pas');
end;
procedure TModelMappingsGenerationOptions.CheckFile;
begin
lblFileExists.Visible := FileExists(IncludeTrailingPathDelimiter(dlbDirectory.Path) + edtFileName.Text);
......@@ -136,6 +148,11 @@ begin
GetParameters;
end;
procedure TModelMappingsGenerationOptions.dlbDirectoryGetImageIndex(Sender: TObject; Node: TTreeNode);
begin
Node.ImageIndex := 0;
end;
procedure TModelMappingsGenerationOptions.GetParameters;
var lReg: TRegistry;
begin
......
EvoUMLPlugin/src/ituExplorerV2.dfm
View file @ af71990f
......@@ -11580,7 +11580,7 @@ object ExplorerV2: TExplorerV2
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poMainFormCenter
Position = poScreenCenter
ShowInTaskBar = stAlways
LCLVersion = '2.0.2.0'
object splVertical: TSplitter
......@@ -11717,11 +11717,17 @@ object ExplorerV2: TExplorerV2
Top = 0
Width = 494
Align = alClient
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0
OnDragDrop = memOQLQuery2DragDrop
OnDragOver = memOQLQuery2DragOver
BorderStyle = bsNone
Gutter.Width = 31
Gutter.Width = 33
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -12184,7 +12190,7 @@ object ExplorerV2: TExplorerV2
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 25
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -12226,9 +12232,15 @@ object ExplorerV2: TExplorerV2
Top = 0
Width = 494
Align = alClient
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0
BorderStyle = bsNone
Gutter.Width = 31
Gutter.Width = 33
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -12692,7 +12704,7 @@ object ExplorerV2: TExplorerV2
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 25
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......
EvoUMLPlugin/src/ituOQLExplorerV2.dfm
View file @ af71990f
......@@ -11582,7 +11582,8 @@ object OQLExplorerV2: TOQLExplorerV2
OnCreate = FormCreate
OnResize = FormResize
OnShow = FormShow
LCLVersion = '2.0.0.4'
Position = poScreenCenter
LCLVersion = '2.0.2.0'
object pcCXOQL: TPageControl
Left = 0
Height = 517
......@@ -11594,22 +11595,22 @@ object OQLExplorerV2: TOQLExplorerV2
TabOrder = 0
object tsCXOQL: TTabSheet
Caption = 'CXOQL'
ClientHeight = 489
ClientWidth = 1080
ClientHeight = 491
ClientWidth = 1082
object pnlCXOQL: TPanel
Left = 0
Height = 489
Height = 491
Top = 0
Width = 1080
Width = 1082
Align = alClient
BevelOuter = bvNone
ClientHeight = 489
ClientWidth = 1080
ClientHeight = 491
ClientWidth = 1082
ParentBackground = False
TabOrder = 0
object splVertical: TSplitter
Left = 274
Height = 489
Height = 491
Top = 0
Width = 4
Color = clBtnFace
......@@ -11618,27 +11619,27 @@ object OQLExplorerV2: TOQLExplorerV2
end
object pnlOQLList: TPanel
Left = 0
Height = 489
Height = 491
Top = 0
Width = 274
Align = alLeft
BevelOuter = bvNone
ClientHeight = 489
ClientHeight = 491
ClientWidth = 274
TabOrder = 0
object pnlList: TPanel
Left = 0
Height = 463
Height = 465
Top = 26
Width = 274
Align = alClient
BevelOuter = bvNone
ClientHeight = 463
ClientHeight = 465
ClientWidth = 274
TabOrder = 0
object lvOQLList: TListView
Left = 0
Height = 375
Height = 377
Top = 0
Width = 274
Align = alClient
......@@ -11646,7 +11647,7 @@ object OQLExplorerV2: TOQLExplorerV2
item
AutoSize = True
Caption = 'OQL Name'
Width = 272
Width = 74
end>
ScrollBars = ssAutoBoth
SmallImages = ilOQLState
......@@ -11657,7 +11658,7 @@ object OQLExplorerV2: TOQLExplorerV2
object memError: TMemo
Left = 0
Height = 88
Top = 375
Top = 377
Width = 274
Align = alBottom
Color = clBtnFace
......@@ -11689,19 +11690,19 @@ object OQLExplorerV2: TOQLExplorerV2
end
object pnlRight: TPanel
Left = 278
Height = 489
Height = 491
Top = 0
Width = 802
Width = 804
Align = alClient
BevelOuter = bvNone
ClientHeight = 489
ClientWidth = 802
ClientHeight = 491
ClientWidth = 804
TabOrder = 1
object pnlOQLExplorer: TPanel
Left = 0
Height = 416
Height = 418
Top = 73
Width = 802
Width = 804
Align = alClient
BevelOuter = bvNone
ParentBackground = False
......@@ -11711,16 +11712,16 @@ object OQLExplorerV2: TOQLExplorerV2
Left = 0
Height = 73
Top = 0
Width = 802
Width = 804
Align = alTop
BevelOuter = bvNone
ClientHeight = 73
ClientWidth = 802
ClientWidth = 804
ParentBackground = False
TabOrder = 0
object labelName: TLabel
Left = 58
Height = 14
Height = 13
Top = 13
Width = 31
Caption = 'Name:'
......@@ -11728,7 +11729,7 @@ object OQLExplorerV2: TOQLExplorerV2
end
object labelDescription: TLabel
Left = 32
Height = 14
Height = 13
Top = 43
Width = 57
Caption = 'Description:'
......@@ -11736,14 +11737,14 @@ object OQLExplorerV2: TOQLExplorerV2
end
object edtName: TEdit
Left = 97
Height = 31
Height = 21
Top = 10
Width = 384
TabOrder = 0
end
object edtDescription: TEdit
Left = 97
Height = 31
Height = 21
Top = 40
Width = 384
TabOrder = 1
......@@ -11783,7 +11784,7 @@ object OQLExplorerV2: TOQLExplorerV2
ParentColor = False
ParentFont = False
TabOrder = 0
Gutter.Width = 57
Gutter.Width = 53
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
......@@ -12243,7 +12244,7 @@ object OQLExplorerV2: TOQLExplorerV2
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
Width = 13
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......
EvoUMLPlugin/src/ituServiceParameters.dfm
View file @ af71990f
object itServiceParameters: TitServiceParameters
Left = 778
Height = 289
Top = 453
Left = 2317
Height = 333
Top = 486
Width = 314
BorderStyle = bsDialog
Caption = 'Propriedades do Serviço'
ClientHeight = 289
ClientHeight = 333
ClientWidth = 314
ParentFont = True
Position = poScreenCenter
LCLVersion = '2.0.0.4'
LCLVersion = '2.0.2.0'
object Panel2: TPanel
Left = 0
Height = 240
Height = 284
Top = 0
Width = 314
Align = alClient
ClientHeight = 240
ClientHeight = 284
ClientWidth = 314
TabOrder = 1
object GroupBox1: TGroupBox
Left = 6
Height = 77
Height = 93
Top = 3
Width = 296
ClientHeight = 75
ClientWidth = 294
ClientHeight = 73
ClientWidth = 292
TabOrder = 0
object Label2: TLabel
Left = 5
Height = 19
Height = 15
Top = 14
Width = 122
Width = 99
Caption = 'Nome do Servidor:'
ParentColor = False
end
object Label1: TLabel
Left = 11
Height = 19
Height = 15
Top = 42
Width = 116
Width = 94
Caption = 'Número da Porta:'
ParentColor = False
end
object edtServerName: TEdit
Left = 133
Height = 29
Height = 23
Top = 8
Width = 155
TabOrder = 0
end
object edtPortNumber: TEdit
Left = 133
Height = 29
Height = 23
Top = 36
Width = 155
TabOrder = 1
......@@ -60,23 +60,23 @@ object itServiceParameters: TitServiceParameters
end
object GroupBox2: TGroupBox
Left = 6
Height = 48
Top = 88
Height = 64
Top = 104
Width = 296
ClientHeight = 46
ClientWidth = 294
ClientHeight = 44
ClientWidth = 292
TabOrder = 1
object Label3: TLabel
Left = 0
Height = 19
Height = 15
Top = 12
Width = 126
Width = 103
Caption = 'Código do Sistema:'
ParentColor = False
end
object edtSystemCode: TEdit
Left = 133
Height = 29
Height = 23
Top = 8
Width = 155
TabOrder = 0
......@@ -84,38 +84,38 @@ object itServiceParameters: TitServiceParameters
end
object GroupBox3: TGroupBox
Left = 6
Height = 80
Top = 144
Height = 96
Top = 176
Width = 296
ClientHeight = 78
ClientWidth = 294
ClientHeight = 76
ClientWidth = 292
TabOrder = 2
object Label5: TLabel
Left = 9
Height = 19
Height = 15
Top = 12
Width = 117
Width = 96
Caption = 'Nome do Usuário:'
ParentColor = False
end
object Label4: TLabel
Left = 80
Height = 19
Height = 15
Top = 46
Width = 45
Width = 35
Caption = 'Senha:'
ParentColor = False
end
object edtUserName: TEdit
Left = 133
Height = 29
Height = 23
Top = 6
Width = 155
TabOrder = 0
end
object edtPassword: TEdit
Left = 133
Height = 29
Height = 23
Top = 40
Width = 155
EchoMode = emPassword
......@@ -127,7 +127,7 @@ object itServiceParameters: TitServiceParameters
object Panel1: TPanel
Left = 0
Height = 49
Top = 240
Top = 284
Width = 314
Align = alBottom
ClientHeight = 49
......
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