Skip to content

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

Ajustes para compatibilização Linux
parent 1f872ceb
Expand all Show whitespace changes
Inline Side-by-side
Showing with 3530 additions and 1141 deletions
EvoUMLPlugin/src/CurioAddIn.dpr
View file @ d36b4459
...@@ -11,9 +11,12 @@ uses ...@@ -11,9 +11,12 @@ uses
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
SysUtils, SysUtils,
LCLType,
Classes, Classes,
Interfaces, Interfaces,
{$IFDEF DARWIN}
CocoaInt, CocoaInt,
{$ENDIF}
Forms, Forms,
acuObject, acuObject,
utuMessage, utuMessage,
...@@ -37,12 +40,26 @@ uses ...@@ -37,12 +40,26 @@ uses
utuXSD in 'utuXSD.pas', utuXSD in 'utuXSD.pas',
DelphiAddInObj in 'DelphiAddInObj.pas'; DelphiAddInObj in 'DelphiAddInObj.pas';
type
{ ExceptionCatch }
ExceptionCatch= Class
public
procedure CustomExceptionHandler(Sender: TObject; E: Exception);
end;
exports exports
InitializeAddIn, InitializeAddIn,
FinalizeAddIn, FinalizeAddIn,
DoMenuAction; DoMenuAction;
{$R *.res} { ExceptionCatch }
procedure ExceptionCatch.CustomExceptionHandler(Sender: TObject; E: Exception);
begin
Application.MessageBox(PChar(E.message), 'Error...', MB_ICONERROR or MB_OK);
end;
begin begin
ChangeLocaleFormatSetting; ChangeLocaleFormatSetting;
...@@ -50,13 +67,18 @@ begin ...@@ -50,13 +67,18 @@ begin
PersistenceManager.DefaultRepositoryClass := typeOf(acRepositorySQL); PersistenceManager.DefaultRepositoryClass := typeOf(acRepositorySQL);
PersistenceManager.RegisterClass(typeOf(acPersistentObject), acPersistentObjectClassFactory.Create); PersistenceManager.RegisterClass(typeOf(acPersistentObject), acPersistentObjectClassFactory.Create);
gSQLDialectManager.RegisterSQLDialect('MS SQL Server', typeOf(acSQLDialectSQLServer), acSQLDialectSQLServerClassFactory.Create); gSQLDialectManager.RegisterSQLDialect('MS SQL Server', typeOf(acSQLDialectSQLServer), acSQLDialectSQLServerClassFactory.Create);
// gSQLDialectManager.RegisterSQLDialect('Oracle', typeOf(acSQLDialectOracle), acSQLDialectOracleClassFactory.Create); gSQLDialectManager.RegisterSQLDialect('Oracle', typeOf(acSQLDialectOracle), acSQLDialectOracleClassFactory.Create);
// gSQLDialectManager.RegisterSQLDialect('DB2', typeOf(acSQLDialectDB2), acSQLDialectDB2ClassFactory.Create); gSQLDialectManager.RegisterSQLDialect('DB2', typeOf(acSQLDialectDB2), acSQLDialectDB2ClassFactory.Create);
gLinksManager.RegisterLink('tcp/ip', typeOf(utLinkSock), utLinkSockClassFactory.Create); gLinksManager.RegisterLink('tcp/ip', typeOf(utLinkSock), utLinkSockClassFactory.Create);
{$IFDEF DARWIN}
MainPool := Nil; MainPool := Nil;
{$ENDIF}
Application.Initialize; Application.Initialize;
Application.Scaled := True;
Application.OnException := ExceptionCatch.CustomExceptionHandler;
// Application.CaptureExceptions := True; // Application.CaptureExceptions := True;
// ExtensionManager.LoadProfiles; // ExtensionManager.LoadProfiles;
......
EvoUMLPlugin/src/DelphiAddInObj.pas
View file @ d36b4459
...@@ -3,7 +3,7 @@ unit DelphiAddInObj; ...@@ -3,7 +3,7 @@ unit DelphiAddInObj;
interface interface
uses uses
LCLType, IntegracaoDelphiSUML, StarUMLintf, Classes; LCLType, IntegracaoDelphiSUML, StarUMLintf, cxuSession, Classes;
type type
...@@ -40,7 +40,7 @@ type ...@@ -40,7 +40,7 @@ type
procedure ListOwnedClasses( piPackage : IUMLPackage ; piObjectList : TInterfaceList ; piStringList : TStringList); procedure ListOwnedClasses( piPackage : IUMLPackage ; piObjectList : TInterfaceList ; piStringList : TStringList);
procedure ListOwnedUseCases ( piPackage : IUMLPackage ; piObjectList : TInterfaceList ; piStringList : TStringList); procedure ListOwnedUseCases ( piPackage : IUMLPackage ; piObjectList : TInterfaceList ; piStringList : TStringList);
class function GetServiceConnectionString: string; class function GetServiceSession: cxSession;
class function DoMenuAction(const ActionID: Integer): Integer; class function DoMenuAction(const ActionID: Integer): Integer;
// function NotifyEvent(AEvent: EventKind): HResult; stdcall; // function NotifyEvent(AEvent: EventKind): HResult; stdcall;
end; end;
...@@ -50,7 +50,8 @@ implementation ...@@ -50,7 +50,8 @@ implementation
uses uses
InstantCode, SysUtils, Mostra_Processamento, utuStateMachine, fCodeGen, Controls, Forms, InstantCode, SysUtils, Mostra_Processamento, utuStateMachine, fCodeGen, Controls, Forms,
fModelMappingsGenerationOptions, fXSDEditor, ituDataBaseLogin, cxuSession, formMemo, fModelMappingsGenerationOptions, fXSDEditor, ituDataBaseLogin, formMemo,
cxuCadastroClasse, cxuCadastroCasoDeUso,
utuMessage, uCadastroCasoDeUso, uCadastroClasse, ituServiceParameters, ituExplorerV2, utuMessage, uCadastroCasoDeUso, uCadastroClasse, ituServiceParameters, ituExplorerV2,
Registry, uRTFEditor, ituXSDExplorer, ituExportUnits, ituOQLExplorerV2; Registry, uRTFEditor, ituXSDExplorer, ituExportUnits, ituOQLExplorerV2;
...@@ -107,7 +108,7 @@ begin ...@@ -107,7 +108,7 @@ begin
result := gStarUMLApp.SelectionManager.GetSelectedModelAt(0); result := gStarUMLApp.SelectionManager.GetSelectedModelAt(0);
end; end;
class function TDelphiAddInObj.GetServiceConnectionString: string; class function TDelphiAddInObj.GetServiceSession: cxSession;
var lServiceParamDialog: TitServiceParameters; var lServiceParamDialog: TitServiceParameters;
lReg: TRegistry; lReg: TRegistry;
begin begin
...@@ -135,13 +136,10 @@ begin ...@@ -135,13 +136,10 @@ begin
gStarUMLApp.ProjectManager.Project.SetTaggedValueAsInteger('DBMappings', 'ProjectMap', 'SystemCode', lServiceParamDialog.SystemCode); gStarUMLApp.ProjectManager.Project.SetTaggedValueAsInteger('DBMappings', 'ProjectMap', 'SystemCode', lServiceParamDialog.SystemCode);
gStarUMLApp.ProjectManager.Project.SetTaggedValueAsInteger('DBMappings', 'ProjectMap', 'PortNumber', lServiceParamDialog.PortNumber); gStarUMLApp.ProjectManager.Project.SetTaggedValueAsInteger('DBMappings', 'ProjectMap', 'PortNumber', lServiceParamDialog.PortNumber);
result := format('ServerName=%s;PortNumber=%d;SystemCode=%d;UserName=%s;Password=%s;', result := lServiceParamDialog.Session;
[lServiceParamDialog.ServerName, lServiceParamDialog.PortNumber,
lServiceParamDialog.SystemCode, lServiceParamDialog.UserName,
lServiceParamDialog.Password]);
end end
else else
result := ''; result := Nil;
finally finally
lReg.free; lReg.free;
end; end;
...@@ -177,7 +175,6 @@ begin ...@@ -177,7 +175,6 @@ begin
on E: Exception do on E: Exception do
begin begin
Application.MessageBox(PAnsiChar(e.Message), 'Staruml', MB_ICONERROR); Application.MessageBox(PAnsiChar(e.Message), 'Staruml', MB_ICONERROR);
raise;
end; end;
end; end;
end; end;
...@@ -274,29 +271,32 @@ end; ...@@ -274,29 +271,32 @@ end;
class procedure TDelphiAddInObj.ActionMenu_InsertClass; class procedure TDelphiAddInObj.ActionMenu_InsertClass;
var lCadClasse: TCadastroClasse; var lCadClasse: TCadastroClasse;
lConnString: string; lSession: cxSession;
lCadastroClasseUC: cxCadastroClasse;
lModel: IModel; lModel: IModel;
lUMLPackageAux: IUMLPackage; lUMLPackageAux: IUMLPackage;
begin begin
lCadClasse := nil; lCadClasse := nil;
lConnString := GetServiceConnectionString; lSession := GetServiceSession;
if lConnString <> '' then if Assigned(lSession) then
begin begin
lModel := gStarUMLApp.SelectionManager.GetSelectedModelAt(0); lModel := gStarUMLApp.SelectionManager.GetSelectedModelAt(0);
lCadastroClasseUC := cxCadastroClasse.Create(lSession);
try
lCadClasse := TCadastroClasse.Create(nil, lCadastroClasseUC, Nil);
try try
if lModel.QueryInterface(IUMLPackage, lUMLPackageAux) = S_OK then if lModel.QueryInterface(IUMLPackage, lUMLPackageAux) = S_OK then
begin begin
lCadClasse := TCadastroClasse.Create(nil, lConnString, Nil);
lCadClasse.ClassPackage := lModel as IUMLPackage; lCadClasse.ClassPackage := lModel as IUMLPackage;
end
else
begin
lCadClasse := TCadastroClasse.Create(nil, lConnString, Nil);
end; end;
if lCadClasse.ShowModal = mrok then if lCadClasse.ShowModal = mrok then
gStarUMLApp.SelectInModelExplorer(lCadClasse.UMLClass); gStarUMLApp.SelectInModelExplorer(lCadClasse.UMLClass);
finally finally
if assigned(lCadClasse) then lCadClasse.Free; lCadClasse.Free;
end;
finally
lCadastroClasseUC.Free;
end; end;
end; end;
end; end;
...@@ -327,58 +327,66 @@ end; ...@@ -327,58 +327,66 @@ end;
class procedure TDelphiAddInObj.ActionMenu_EditClass; class procedure TDelphiAddInObj.ActionMenu_EditClass;
var lCadClasse: TCadastroClasse; var lCadClasse: TCadastroClasse;
lConnString: string; lSession: cxSession;
lCadastroClasseUC: cxCadastroClasse;
lModel: IModel; lModel: IModel;
lUMLClassAux: IUMLClass; lUMLClassAux: IUMLClass;
begin begin
lCadClasse := nil;
lConnString := GetServiceConnectionString;
if lConnString <> '' then
begin
lModel := gStarUMLApp.SelectionManager.GetSelectedModelAt(0); lModel := gStarUMLApp.SelectionManager.GetSelectedModelAt(0);
if lModel.QueryInterface(IUMLClass, lUMLClassAux) = S_OK then if lModel.QueryInterface(IUMLClass, lUMLClassAux) = S_OK then
begin begin
lUMLClassAux := lModel as IUMLClass; lUMLClassAux := lModel as IUMLClass;
lSession := GetServiceSession;
if Assigned(lSession) then
begin
lCadastroClasseUC := cxCadastroClasse.Create(lSession);
try
lCadClasse := TCadastroClasse.Create(nil, lCadastroClasseUC, lUMLClassAux);
try try
lCadClasse := TCadastroClasse.Create(nil, lConnString, lUMLClassAux);
if lCadClasse.ShowModal = mrok then if lCadClasse.ShowModal = mrok then
gStarUMLApp.SelectInModelExplorer(lCadClasse.UMLClass); gStarUMLApp.SelectInModelExplorer(lCadClasse.UMLClass);
finally finally
if assigned(lCadClasse) then lCadClasse.Free; lCadClasse.Free;
end;
finally
lCadastroClasseUC.Free;
end; end;
end
else
raise Exception.Create('This option is avaliable only for classes.');
end; end;
end else raise Exception.Create('This option is avaliable only for classes.');
end; end;
class procedure TDelphiAddInObj.ActionMenu_EditUseCase; class procedure TDelphiAddInObj.ActionMenu_EditUseCase;
var lCadCasoDeUso: TCadastroCasoDeUso; var lCadCasoDeUso: TCadastroCasoDeUso;
lConnString: string; lSession: cxSession;
lCadastroCasoUsoUC: cxCadatroCasoDeUso;
lModel: IModel; lModel: IModel;
lUMLUseCaseAux: IUMLUseCase; lUMLUseCaseAux: IUMLUseCase;
begin begin
lCadCasoDeUso := nil;
lConnString := GetServiceConnectionString;
if lConnString <> '' then
begin
lModel := gStarUMLApp.SelectionManager.GetSelectedModelAt(0); lModel := gStarUMLApp.SelectionManager.GetSelectedModelAt(0);
try
if lModel.QueryInterface(IUMLUsecase, lUMLUseCaseAux) = S_OK then if lModel.QueryInterface(IUMLUsecase, lUMLUseCaseAux) = S_OK then
begin begin
lUMLUseCaseAux := lModel as IUMLUsecase; lUMLUseCaseAux := lModel as IUMLUsecase;
lCadCasoDeUso := TCadastroCasoDeUso.Create(nil, lConnString, lUMLUseCaseAux);
end
else
raise exception.Create('This option is only avaliable for Usecases.');
lSession := GetServiceSession;
if assigned(lSession) then
begin
lCadastroCasoUsoUC := cxCadatroCasoDeUso.Create(lSession);
try
lCadCasoDeUso := TCadastroCasoDeUso.Create(nil, lCadastroCasoUsoUC, lUMLUseCaseAux);
try
if lCadCasoDeUso.ShowModal = mrok then if lCadCasoDeUso.ShowModal = mrok then
gStarUMLApp.SelectInModelExplorer(lCadCasoDeUso.UseCase); gStarUMLApp.SelectInModelExplorer(lCadCasoDeUso.UseCase);
finally finally
if assigned(lCadCasoDeUso) then lCadCasoDeUso.Free; lCadCasoDeUso.Free;
end; end;
finally
lCadastroCasoUsoUC.Free;
end; end;
end;
end
else raise exception.Create('This option is only avaliable for Usecases.');
end; end;
class procedure TDelphiAddInObj.ActionMenu_GeneratePreview; class procedure TDelphiAddInObj.ActionMenu_GeneratePreview;
...@@ -616,33 +624,34 @@ end; ...@@ -616,33 +624,34 @@ end;
class procedure TDelphiAddInObj.ActionMenu_InsertUseCase; class procedure TDelphiAddInObj.ActionMenu_InsertUseCase;
var lCadCasoDeUso: TCadastroCasoDeUso; var lCadCasoDeUso: TCadastroCasoDeUso;
lConnString: string; lSession: cxSession;
lCadastroCasoUsoUC: cxCadatroCasoDeUso;
lModel: IModel; lModel: IModel;
lUMLPackageAux: IUMLPackage; lUMLPackageAux: IUMLPackage;
begin begin
lCadCasoDeUso := nil; lCadCasoDeUso := nil;
lConnString := GetServiceConnectionString; lSession := GetServiceSession;
if lConnString <> '' then if assigned(lSession) then
begin begin
lModel := gStarUMLApp.SelectionManager.GetSelectedModelAt(0); lModel := gStarUMLApp.SelectionManager.GetSelectedModelAt(0);
lCadastroCasoUsoUC := cxCadatroCasoDeUso.Create(lSession);
try
lCadCasoDeUso := TCadastroCasoDeUso.Create(nil, lCadastroCasoUsoUC, Nil);
try try
if lModel.QueryInterface(IUMLPackage, lUMLPackageAux) = S_OK then if lModel.QueryInterface(IUMLPackage, lUMLPackageAux) = S_OK then
begin begin
lCadCasoDeUso := TCadastroCasoDeUso.Create(nil, lConnString, Nil);
lCadCasoDeUso.UseCasePackage := lModel as IUMLPackage; lCadCasoDeUso.UseCasePackage := lModel as IUMLPackage;
end
else
begin
lCadCasoDeUso := TCadastroCasoDeUso.Create(nil, lConnString, Nil);
end; end;
if lCadCasoDeUso.ShowModal = mrok then if lCadCasoDeUso.ShowModal = mrok then
gStarUMLApp.SelectInModelExplorer(lCadCasoDeUso.UseCase); gStarUMLApp.SelectInModelExplorer(lCadCasoDeUso.UseCase);
finally finally
if assigned(lCadCasoDeUso) then lCadCasoDeUso.Free; if assigned(lCadCasoDeUso) then lCadCasoDeUso.Free;
end; end;
finally
lCadastroCasoUsoUC.Free;
end;
end; end;
end; end;
......
EvoUMLPlugin/src/InstantCode/InstantTextFiler.pas
View file @ d36b4459
...@@ -30,11 +30,7 @@ ...@@ -30,11 +30,7 @@
unit InstantTextFiler; unit InstantTextFiler;
{$IFDEF LINUX}
{$I '../InstantDefines.inc'}
{$ELSE}
{$I 'InstantDefines.inc'} {$I 'InstantDefines.inc'}
{$ENDIF}
interface interface
......
EvoUMLPlugin/src/IntegracaoDelphiSUML.pas
View file @ d36b4459
This diff is collapsed.
EvoUMLPlugin/src/fCodeGen.dfm
View file @ d36b4459
This diff is collapsed.
EvoUMLPlugin/src/formMemo.dfm
View file @ d36b4459
This diff is collapsed.
EvoUMLPlugin/src/formMemo.pas
View file @ d36b4459
...@@ -3,29 +3,36 @@ unit formMemo; ...@@ -3,29 +3,36 @@ unit formMemo;
interface interface
uses uses
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, SynEdit; StdCtrls, ExtCtrls, ComCtrls, SynEdit, SynHighlighterPas, SynHighlighterJava,
SynHighlighterSQL;
type type
{ TPreviewClassCode }
TPreviewClassCode = class(TForm) TPreviewClassCode = class(TForm)
Panel2: TPanel; Panel2: TPanel;
Panel1: TPanel; Panel1: TPanel;
Button1: TButton; Button1: TButton;
pgc_Main: TPageControl; pgc_Main: TPageControl;
mem_ClassJava: TSynEdit;
mem_ClassPascal: TSynEdit;
mem_ClassCSharp: TSynEdit;
mem_ClassSQL: TSynEdit;
mem_ClassOracle: TSynEdit;
SynFreePascalSyn1: TSynFreePascalSyn;
SynJavaSyn1: TSynJavaSyn;
SynSQLSyn1: TSynSQLSyn;
TabSheet1: TTabSheet; TabSheet1: TTabSheet;
pgc_ClassCode: TPageControl; pgc_ClassCode: TPageControl;
TabSheet3: TTabSheet; TabSheet3: TTabSheet;
mem_ClassPascal: TSynEdit;
TabSheet4: TTabSheet; TabSheet4: TTabSheet;
mem_ClassJava: TSynEdit;
TabSheet5: TTabSheet; TabSheet5: TTabSheet;
mem_ClassCSharp: TSynEdit;
TabSheet6: TTabSheet; TabSheet6: TTabSheet;
PageControl1: TPageControl; PageControl1: TPageControl;
TabSheet10: TTabSheet; TabSheet10: TTabSheet;
TabSheet14: TTabSheet; TabSheet14: TTabSheet;
mem_ClassSQL: TSynEdit;
mem_ClassOracle: TSynEdit;
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
......
EvoUMLPlugin/src/ituDataBaseLogin.dfm
View file @ d36b4459
object DataBaseLogin: TDataBaseLogin object DataBaseLogin: TDataBaseLogin
Left = 2241 Left = 1480
Height = 543 Height = 537
Top = 255 Top = 299
Width = 440 Width = 440
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Connect to Database Server' Caption = 'Connect to Database Server'
ClientHeight = 543 ClientHeight = 537
ClientWidth = 440 ClientWidth = 440
Color = clBtnFace Color = clBtnFace
OnClose = FormClose OnClose = FormClose
OnShow = FormShow OnShow = FormShow
ParentFont = True ParentFont = True
Position = poOwnerFormCenter Position = poOwnerFormCenter
LCLVersion = '2.0.0.4'
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 8 Left = 8
Height = 208 Height = 208
Top = 288 Top = 288
Width = 424 Width = 424
TabOrder = 11 ClientHeight = 206
end ClientWidth = 422
object GroupBox1: TGroupBox
Left = 8
Height = 272
Top = 8
Width = 424
TabOrder = 10
end
object cbODBCD_DSN: TComboBox
Left = 32
Height = 15
Top = 48
Width = 389
ItemHeight = 0
OnChange = cbODBCD_DSNChange
Style = csDropDownList
TabOrder = 1 TabOrder = 1
end
object edtUsuario: TLabeledEdit object edtUsuario: TLabeledEdit
Left = 21 Left = 15
Height = 22 Height = 43
Top = 398 Top = 95
Width = 400 Width = 400
EditLabel.Height = 16 EditLabel.Height = 19
EditLabel.Width = 400 EditLabel.Width = 400
EditLabel.Caption = 'Usuário' EditLabel.Caption = 'Usuário'
EditLabel.ParentColor = False EditLabel.ParentColor = False
TabOrder = 7 TabOrder = 1
end end
object edtPassword: TLabeledEdit object edtPassword: TLabeledEdit
Left = 21 Left = 15
Height = 22 Height = 43
Top = 454 Top = 160
Width = 400 Width = 400
EchoMode = emPassword EchoMode = emPassword
EditLabel.Height = 16 EditLabel.Height = 19
EditLabel.Width = 400 EditLabel.Width = 400
EditLabel.Caption = 'Senha' EditLabel.Caption = 'Senha'
EditLabel.ParentColor = False EditLabel.ParentColor = False
PasswordChar = '*' PasswordChar = '*'
TabOrder = 8 TabOrder = 2
end end
object cbDialect: TComboBox object cbDialect: TComboBox
Left = 21 Left = 15
Height = 15 Height = 39
Top = 339 Top = 25
Width = 400 Width = 400
ItemHeight = 0 ItemHeight = 0
OnChange = cbODBCD_DSNChange OnChange = cbODBCD_DSNChange
Style = csDropDownList Style = csDropDownList
TabOrder = 6 TabOrder = 0
end end
object Label2: TLabel object Label2: TLabel
Left = 21 Left = 15
Height = 16 Height = 19
Top = 320 Top = 5
Width = 45 Width = 48
Caption = 'Dialeto' Caption = 'Dialeto'
ParentColor = False ParentColor = False
end end
end
object GroupBox1: TGroupBox
Left = 8
Height = 272
Top = 8
Width = 424
ClientHeight = 270
ClientWidth = 422
TabOrder = 0
object cbODBCD_DSN: TComboBox
Left = 26
Height = 39
Top = 48
Width = 389
ItemHeight = 0
OnChange = cbODBCD_DSNChange
Style = csDropDownList
TabOrder = 1
end
object rbDSN: TRadioButton object rbDSN: TRadioButton
Left = 16 Left = 10
Height = 18 Height = 24
Top = 16 Top = 16
Width = 115 Width = 130
Caption = 'Selecionar DSN' Caption = 'Selecionar DSN'
Checked = True Checked = True
OnClick = rbDSNClick OnClick = rbDSNClick
...@@ -91,19 +95,19 @@ object DataBaseLogin: TDataBaseLogin ...@@ -91,19 +95,19 @@ object DataBaseLogin: TDataBaseLogin
TabStop = True TabStop = True
end end
object rbPersonalizado: TRadioButton object rbPersonalizado: TRadioButton
Left = 16 Left = 10
Height = 18 Height = 24
Top = 88 Top = 88
Width = 108 Width = 119
Caption = 'Personalizado' Caption = 'Personalizado'
OnClick = rbPersonalizadoClick OnClick = rbPersonalizadoClick
TabOrder = 2 TabOrder = 2
end end
object cbODBCD_DRIVERS: TComboBox object cbODBCD_DRIVERS: TComboBox
Left = 35 Left = 26
Height = 15 Height = 39
Top = 120 Top = 115
Width = 386 Width = 389
Enabled = False Enabled = False
ItemHeight = 0 ItemHeight = 0
OnChange = cbODBCD_DSNChange OnChange = cbODBCD_DSNChange
...@@ -111,56 +115,59 @@ object DataBaseLogin: TDataBaseLogin ...@@ -111,56 +115,59 @@ object DataBaseLogin: TDataBaseLogin
TabOrder = 3 TabOrder = 3
end end
object edtDatabaseName: TLabeledEdit object edtDatabaseName: TLabeledEdit
Left = 32 Left = 26
Height = 22 Height = 43
Top = 232 Top = 232
Width = 389 Width = 389
EditLabel.Height = 16 EditLabel.Height = 19
EditLabel.Width = 389 EditLabel.Width = 389
EditLabel.Caption = 'Nome do Banco de Dados' EditLabel.Caption = 'Nome do Banco de Dados'
EditLabel.ParentColor = False EditLabel.ParentColor = False
Enabled = False Enabled = False
TabOrder = 5 TabOrder = 4
end end
object edtServerName: TLabeledEdit object edtServerName: TLabeledEdit
Left = 32 Left = 26
Height = 22 Height = 43
Top = 176 Top = 176
Width = 389 Width = 389
EditLabel.Height = 16 EditLabel.Height = 19
EditLabel.Width = 389 EditLabel.Width = 389
EditLabel.Caption = 'Servidor' EditLabel.Caption = 'Servidor'
EditLabel.ParentColor = False EditLabel.ParentColor = False
Enabled = False Enabled = False
TabOrder = 4 TabOrder = 5
end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Height = 40 Height = 40
Top = 503 Top = 497
Width = 440 Width = 440
Align = alBottom Align = alBottom
ClientHeight = 40 ClientHeight = 40
ClientWidth = 440 ClientWidth = 440
TabOrder = 9 TabOrder = 2
object BitBtn1: TBitBtn object BitBtn1: TBitBtn
Left = 268 Left = 238
Height = 25 Height = 27
Top = 7 Top = 5
Width = 75 Width = 93
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'Ok' Caption = 'Ok'
Default = True
Kind = bkOK Kind = bkOK
ModalResult = 1 ModalResult = 1
OnClick = Button1Click OnClick = Button1Click
TabOrder = 0 TabOrder = 0
end end
object BitBtn2: TBitBtn object BitBtn2: TBitBtn
Left = 349 Left = 337
Height = 25 Height = 27
Top = 7 Top = 5
Width = 75 Width = 93
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
Kind = bkCancel Kind = bkCancel
ModalResult = 2 ModalResult = 2
......
EvoUMLPlugin/src/ituExplorerV2.dfm
View file @ d36b4459
object ExplorerV2: TExplorerV2 object ExplorerV2: TExplorerV2
Left = 2406 Left = 577
Height = 695 Height = 696
Top = 177 Top = 103
Width = 1228 Width = 1232
Caption = 'Model OQL Query' Caption = 'Model OQL Query'
ClientHeight = 695 ClientHeight = 696
ClientWidth = 1228 ClientWidth = 1232
Color = clWindow Color = clWindow
Icon.Data = { Icon.Data = {
96A5050000000100060000000000010020002820040066000000101000000100 96A5050000000100060000000000010020002820040066000000101000000100
...@@ -11574,6 +11574,7 @@ object ExplorerV2: TExplorerV2 ...@@ -11574,6 +11574,7 @@ object ExplorerV2: TExplorerV2
001FF80000000000001FF80000000000001FFFFFFFFFFFFFFFFFFFFFFFFFFFFF 001FF80000000000001FF80000000000001FFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
} }
KeyPreview = True
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
...@@ -11581,9 +11582,10 @@ object ExplorerV2: TExplorerV2 ...@@ -11581,9 +11582,10 @@ object ExplorerV2: TExplorerV2
ParentFont = True ParentFont = True
Position = poMainFormCenter Position = poMainFormCenter
ShowInTaskBar = stAlways ShowInTaskBar = stAlways
LCLVersion = '2.0.0.4'
object splVertical: TSplitter object splVertical: TSplitter
Left = 360 Left = 360
Height = 695 Height = 696
Top = 0 Top = 0
Width = 5 Width = 5
MinSize = 5 MinSize = 5
...@@ -11591,56 +11593,56 @@ object ExplorerV2: TExplorerV2 ...@@ -11591,56 +11593,56 @@ object ExplorerV2: TExplorerV2
end end
object pnlEditor: TPanel object pnlEditor: TPanel
Left = 365 Left = 365
Height = 695 Height = 696
Top = 0 Top = 0
Width = 863 Width = 867
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 695 ClientHeight = 696
ClientWidth = 863 ClientWidth = 867
TabOrder = 0 TabOrder = 0
object pnlResult: TPanel object pnlResult: TPanel
Left = 0 Left = 0
Height = 185 Height = 185
Top = 495 Top = 490
Width = 863 Width = 867
Align = alBottom Align = alBottom
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 185 ClientHeight = 185
ClientWidth = 863 ClientWidth = 867
TabOrder = 0 TabOrder = 0
object pcResults: TPageControl object pcResults: TPageControl
Left = 0 Left = 0
Height = 185 Height = 185
Top = 0 Top = 0
Width = 863 Width = 867
ActivePage = tsError ActivePage = tsError
Align = alClient Align = alClient
ShowTabs = False
TabIndex = 1 TabIndex = 1
TabOrder = 0 TabOrder = 0
object tsQueryResult: TTabSheet object tsQueryResult: TTabSheet
Caption = 'tsQueryResult' Caption = 'tsQueryResult'
ClientHeight = 158 ClientHeight = 181
ClientWidth = 882 ClientWidth = 857
TabVisible = False
object pcXMLResults: TPageControl object pcXMLResults: TPageControl
Left = 0 Left = 0
Height = 158 Height = 181
Top = 0 Top = 0
Width = 882 Width = 853
ActivePage = tsList ActivePage = tsList
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 0
TabOrder = 0 TabOrder = 0
object tsList: TTabSheet object tsList: TTabSheet
Caption = 'Result List' Caption = 'Result List'
ClientHeight = 119 ClientHeight = 177
ClientWidth = 876 ClientWidth = 849
object lvXMLListResult: TListView object lvXMLListResult: TListView
Left = 0 Left = 0
Height = 131 Height = 148
Top = 0 Top = 0
Width = 874 Width = 843
Align = alClient Align = alClient
BorderStyle = bsNone BorderStyle = bsNone
Columns = <> Columns = <>
...@@ -11648,25 +11650,26 @@ object ExplorerV2: TExplorerV2 ...@@ -11648,25 +11650,26 @@ object ExplorerV2: TExplorerV2
ParentColor = True ParentColor = True
ReadOnly = True ReadOnly = True
RowSelect = True RowSelect = True
ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
ViewStyle = vsReport ViewStyle = vsReport
end end
end end
object tsXML: TTabSheet object tsXML: TTabSheet
Caption = 'XML Result' Caption = 'XML Result'
ClientHeight = 131 ClientHeight = 177
ClientWidth = 874 ClientWidth = 849
ImageIndex = 1 ImageIndex = 1
object memXMLTextResult: TMemo object memXMLTextResult: TMemo
Left = 0 Left = 0
Height = 131 Height = 148
Top = 0 Top = 0
Width = 874 Width = 843
Align = alClient Align = alClient
BorderStyle = bsNone BorderStyle = bsNone
ParentColor = True ParentColor = True
ReadOnly = True ReadOnly = True
ScrollBars = ssBoth ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
end end
end end
...@@ -11674,20 +11677,19 @@ object ExplorerV2: TExplorerV2 ...@@ -11674,20 +11677,19 @@ object ExplorerV2: TExplorerV2
end end
object tsError: TTabSheet object tsError: TTabSheet
Caption = 'tsError' Caption = 'tsError'
ClientHeight = 146 ClientHeight = 181
ClientWidth = 857 ClientWidth = 857
ImageIndex = 1 ImageIndex = 1
TabVisible = False
object memErrorText: TMemo object memErrorText: TMemo
Left = 0 Left = 0
Height = 146 Height = 181
Top = 0 Top = 0
Width = 857 Width = 857
Align = alClient Align = alClient
BorderStyle = bsNone BorderStyle = bsNone
ParentColor = True ParentColor = True
ReadOnly = True ReadOnly = True
ScrollBars = ssBoth ScrollBars = ssAutoBoth
TabOrder = 0 TabOrder = 0
end end
end end
...@@ -11695,28 +11697,31 @@ object ExplorerV2: TExplorerV2 ...@@ -11695,28 +11697,31 @@ object ExplorerV2: TExplorerV2
end end
object pcEditor: TPageControl object pcEditor: TPageControl
Left = 0 Left = 0
Height = 442 Height = 437
Top = 48 Top = 48
Width = 498 Width = 502
ActivePage = tsOQL ActivePage = tsOQL
Align = alClient Align = alClient
MultiLine = True MultiLine = True
ParentFont = False
TabIndex = 0 TabIndex = 0
TabOrder = 1 TabOrder = 1
OnChange = pcEditorChange OnChange = pcEditorChange
Options = [nboMultiLine] Options = [nboMultiLine]
object tsOQL: TTabSheet object tsOQL: TTabSheet
Caption = 'OQL - Object Query Language' Caption = 'OQL - Object Query Language'
ClientHeight = 403 ClientHeight = 404
ClientWidth = 492 ClientWidth = 492
inline SynEditOQL: TSynEdit inline SynEditOQL: TSynEdit
Left = 0 Left = 0
Height = 403 Height = 404
Top = 0 Top = 0
Width = 492 Width = 492
Align = alClient Align = alClient
Font.Height = -13 Color = clWindow
Font.Name = 'Courier New' Font.Color = clWindowText
Font.Height = 13
Font.Name = 'DejaVu Sans Mono'
Font.Pitch = fpFixed Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased Font.Quality = fqNonAntialiased
ParentColor = False ParentColor = False
...@@ -11725,7 +11730,7 @@ object ExplorerV2: TExplorerV2 ...@@ -11725,7 +11730,7 @@ object ExplorerV2: TExplorerV2
OnDragDrop = memOQLQuery2DragDrop OnDragDrop = memOQLQuery2DragDrop
OnDragOver = memOQLQuery2DragOver OnDragOver = memOQLQuery2DragOver
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 33 Gutter.Width = 23
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -12222,14 +12227,16 @@ object ExplorerV2: TExplorerV2 ...@@ -12222,14 +12227,16 @@ object ExplorerV2: TExplorerV2
end end
object tsSQL: TTabSheet object tsSQL: TTabSheet
Caption = 'SQL Translation' Caption = 'SQL Translation'
ClientHeight = 403 ClientHeight = 404
ClientWidth = 492 ClientWidth = 492
inline SynEditSQL: TSynEdit inline SynEditSQL: TSynEdit
Left = 0 Left = 0
Height = 403 Height = 404
Top = 0 Top = 0
Width = 492 Width = 492
Align = alClient Align = alClient
Color = clWindow
Font.Color = clWindowText
Font.Height = -13 Font.Height = -13
Font.Name = 'Courier New' Font.Name = 'Courier New'
Font.Pitch = fpFixed Font.Pitch = fpFixed
...@@ -12238,7 +12245,7 @@ object ExplorerV2: TExplorerV2 ...@@ -12238,7 +12245,7 @@ object ExplorerV2: TExplorerV2
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
BorderStyle = bsNone BorderStyle = bsNone
Gutter.Width = 33 Gutter.Width = 23
Gutter.MouseActions = <> Gutter.MouseActions = <>
RightGutter.Width = 0 RightGutter.Width = 0
RightGutter.MouseActions = <> RightGutter.MouseActions = <>
...@@ -12739,18 +12746,18 @@ object ExplorerV2: TExplorerV2 ...@@ -12739,18 +12746,18 @@ object ExplorerV2: TExplorerV2
Left = 0 Left = 0
Height = 48 Height = 48
Top = 0 Top = 0
Width = 863 Width = 867
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 48 ClientHeight = 48
ClientWidth = 863 ClientWidth = 867
TabOrder = 2 TabOrder = 2
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Height = 48 Height = 48
Top = 0 Top = 0
Width = 863 Width = 867
ButtonHeight = 40 ButtonHeight = 40
ButtonWidth = 50 ButtonWidth = 50
Caption = 'ToolBar1' Caption = 'ToolBar1'
...@@ -12802,7 +12809,7 @@ object ExplorerV2: TExplorerV2 ...@@ -12802,7 +12809,7 @@ object ExplorerV2: TExplorerV2
Style = tbsCheck Style = tbsCheck
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 351 Left = 355
Top = 2 Top = 2
Action = XMLQuery Action = XMLQuery
Grouped = True Grouped = True
...@@ -12823,8 +12830,8 @@ object ExplorerV2: TExplorerV2 ...@@ -12823,8 +12830,8 @@ object ExplorerV2: TExplorerV2
end end
end end
object spResultObject: TSplitter object spResultObject: TSplitter
Left = 498 Left = 502
Height = 442 Height = 437
Top = 48 Top = 48
Width = 5 Width = 5
Align = alRight Align = alRight
...@@ -12832,41 +12839,40 @@ object ExplorerV2: TExplorerV2 ...@@ -12832,41 +12839,40 @@ object ExplorerV2: TExplorerV2
ResizeStyle = rsPattern ResizeStyle = rsPattern
end end
inline OQLObjects: TObjectExplorer inline OQLObjects: TObjectExplorer
Left = 503 Left = 507
Height = 442 Height = 437
Top = 48 Top = 48
Width = 360 Width = 360
Align = alRight Align = alRight
ClientHeight = 442 ClientHeight = 437
ClientWidth = 360 ClientWidth = 360
TabOrder = 4 TabOrder = 4
Visible = False Visible = False
inherited tvExplorer: TTreeView inherited tvExplorer: TTreeView
Height = 442 Height = 437
Width = 360 Width = 360
Images = ilModel Images = ilModel
ParentColor = True ParentColor = True
PopupMenu = pmCopiar PopupMenu = pmCopiar
ReadOnly = False
RightClickSelect = True RightClickSelect = True
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoRightClickSelect, tvoShowButtons, tvoShowRoot, tvoToolTips, tvoThemedDraw] Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end end
end end
object spResultXML: TSplitter object spResultXML: TSplitter
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 490 Top = 485
Width = 863 Width = 867
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
ResizeStyle = rsPattern ResizeStyle = rsPattern
end end
object sbStatusBar: TStatusBar object sbStatusBar: TStatusBar
Left = 0 Left = 0
Height = 15 Height = 21
Top = 680 Top = 675
Width = 863 Width = 867
Panels = < Panels = <
item item
Width = 400 Width = 400
...@@ -12886,17 +12892,17 @@ object ExplorerV2: TExplorerV2 ...@@ -12886,17 +12892,17 @@ object ExplorerV2: TExplorerV2
end end
object pnlModel: TPanel object pnlModel: TPanel
Left = 0 Left = 0
Height = 695 Height = 696
Top = 0 Top = 0
Width = 360 Width = 360
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 695 ClientHeight = 696
ClientWidth = 360 ClientWidth = 360
TabOrder = 1 TabOrder = 1
object tvModelExplorer: TTreeView object tvModelExplorer: TTreeView
Left = 0 Left = 0
Height = 695 Height = 696
Top = 0 Top = 0
Width = 360 Width = 360
Align = alClient Align = alClient
......
EvoUMLPlugin/src/ituExplorerV2.pas
View file @ d36b4459
...@@ -117,6 +117,8 @@ type ...@@ -117,6 +117,8 @@ type
{ Public declarations } { Public declarations }
property MetaModel: acMetaModel read fMetaModel write SetMetaModel; property MetaModel: acMetaModel read fMetaModel write SetMetaModel;
property Util: TUtil read fUtil; property Util: TUtil read fUtil;
property SQLDialect: acAbstractSQLDialect read fSQLDialect;
property Schema: String read fSchema;
end; end;
var var
...@@ -370,6 +372,7 @@ begin ...@@ -370,6 +372,7 @@ begin
end end
else else
begin begin
pcResults.ActivePageIndex := 0;
spResultObject.Visible := False; spResultObject.Visible := False;
pnlResult.Visible := True; pnlResult.Visible := True;
spResultXML.Visible := True; spResultXML.Visible := True;
......
EvoUMLPlugin/src/ituOQLExplorerV2.dfm
View file @ d36b4459
object OQLExplorerV2: TOQLExplorerV2 object OQLExplorerV2: TOQLExplorerV2
Left = 375 Left = 2177
Height = 558 Height = 552
Top = 363 Top = 281
Width = 1090 Width = 1090
Caption = 'OQLExplorerV2' Caption = 'Curio OQL Explorer'
ClientHeight = 558 ClientHeight = 552
ClientWidth = 1090 ClientWidth = 1090
Color = clBtnFace Color = clBtnFace
Font.Color = clWindowText Font.Color = clWindowText
...@@ -11582,90 +11582,73 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11582,90 +11582,73 @@ object OQLExplorerV2: TOQLExplorerV2
OnCreate = FormCreate OnCreate = FormCreate
OnResize = FormResize OnResize = FormResize
OnShow = FormShow OnShow = FormShow
LCLVersion = '2.0.2.0' LCLVersion = '2.0.0.4'
object pnlActionBar: TPanel
Left = 0
Height = 35
Top = 0
Width = 1090
Align = alTop
BevelOuter = bvNone
TabOrder = 0
end
object pcCXOQL: TPageControl object pcCXOQL: TPageControl
Left = 0 Left = 0
Height = 523 Height = 517
Top = 35 Top = 35
Width = 1090 Width = 1090
ActivePage = tsCXOQL ActivePage = tsCXOQL
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 0
TabOrder = 1 TabOrder = 0
object tsCXOQL: TTabSheet object tsCXOQL: TTabSheet
Caption = 'CXOQL' Caption = 'CXOQL'
ClientHeight = 497 ClientHeight = 489
ClientWidth = 1082 ClientWidth = 1080
object pnlCXOQL: TPanel object pnlCXOQL: TPanel
Left = 0 Left = 0
Height = 497 Height = 489
Top = 0 Top = 0
Width = 1082 Width = 1080
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 497 ClientHeight = 489
ClientWidth = 1082 ClientWidth = 1080
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
object splVertical: TSplitter object splVertical: TSplitter
Left = 219 Left = 274
Height = 497 Height = 489
Top = 0 Top = 0
Width = 8 Width = 4
Color = clBtnFace Color = clBtnFace
OnCanResize = splVerticalCanResize OnCanResize = splVerticalCanResize
ParentColor = False ParentColor = False
end end
object pnlOQLList: TPanel object pnlOQLList: TPanel
Left = 0 Left = 0
Height = 497 Height = 489
Top = 0 Top = 0
Width = 219 Width = 274
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 497 ClientHeight = 489
ClientWidth = 219 ClientWidth = 274
TabOrder = 0
object pnlOQLButtons: TPanel
Left = 0
Height = 35
Top = 0
Width = 219
Align = alTop
BevelOuter = bvNone
TabOrder = 0 TabOrder = 0
end
object pnlList: TPanel object pnlList: TPanel
Left = 0 Left = 0
Height = 462 Height = 463
Top = 35 Top = 26
Width = 219 Width = 274
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 462 ClientHeight = 463
ClientWidth = 219 ClientWidth = 274
TabOrder = 1 TabOrder = 0
object lvOQLList: TListView object lvOQLList: TListView
Left = 0 Left = 0
Height = 374 Height = 375
Top = 0 Top = 0
Width = 219 Width = 274
Align = alClient Align = alClient
Columns = < Columns = <
item item
AutoSize = True AutoSize = True
Caption = 'OQL Name' Caption = 'OQL Name'
Width = 74 Width = 272
end> end>
ScrollBars = ssAutoBoth
SmallImages = ilOQLState SmallImages = ilOQLState
TabOrder = 0 TabOrder = 0
ViewStyle = vsReport ViewStyle = vsReport
...@@ -11674,30 +11657,51 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11674,30 +11657,51 @@ object OQLExplorerV2: TOQLExplorerV2
object memError: TMemo object memError: TMemo
Left = 0 Left = 0
Height = 88 Height = 88
Top = 374 Top = 375
Width = 219 Width = 274
Align = alBottom Align = alBottom
Color = clBtnFace Color = clBtnFace
ReadOnly = True ReadOnly = True
TabOrder = 1 TabOrder = 1
end end
end end
object ToolBar2: TToolBar
Left = 0
Height = 26
Top = 0
Width = 274
Caption = 'ToolBar2'
Images = ilCXOQL
List = True
ShowCaptions = True
TabOrder = 1
object ToolButton5: TToolButton
Left = 1
Top = 2
Action = aNewOQL
end
object ToolButton6: TToolButton
Left = 80
Top = 2
Action = aDeleteOQL
end
end
end end
object pnlRight: TPanel object pnlRight: TPanel
Left = 227 Left = 278
Height = 497 Height = 489
Top = 0 Top = 0
Width = 855 Width = 802
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 497 ClientHeight = 489
ClientWidth = 855 ClientWidth = 802
TabOrder = 1 TabOrder = 1
object pnlOQLExplorer: TPanel object pnlOQLExplorer: TPanel
Left = 0 Left = 0
Height = 424 Height = 416
Top = 73 Top = 73
Width = 855 Width = 802
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ParentBackground = False ParentBackground = False
...@@ -11707,16 +11711,16 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11707,16 +11711,16 @@ object OQLExplorerV2: TOQLExplorerV2
Left = 0 Left = 0
Height = 73 Height = 73
Top = 0 Top = 0
Width = 855 Width = 802
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 73 ClientHeight = 73
ClientWidth = 855 ClientWidth = 802
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
object labelName: TLabel object labelName: TLabel
Left = 58 Left = 58
Height = 13 Height = 14
Top = 13 Top = 13
Width = 31 Width = 31
Caption = 'Name:' Caption = 'Name:'
...@@ -11724,7 +11728,7 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11724,7 +11728,7 @@ object OQLExplorerV2: TOQLExplorerV2
end end
object labelDescription: TLabel object labelDescription: TLabel
Left = 32 Left = 32
Height = 13 Height = 14
Top = 43 Top = 43
Width = 57 Width = 57
Caption = 'Description:' Caption = 'Description:'
...@@ -11732,14 +11736,14 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11732,14 +11736,14 @@ object OQLExplorerV2: TOQLExplorerV2
end end
object edtName: TEdit object edtName: TEdit
Left = 97 Left = 97
Height = 21 Height = 31
Top = 10 Top = 10
Width = 384 Width = 384
TabOrder = 0 TabOrder = 0
end end
object edtDescription: TEdit object edtDescription: TEdit
Left = 97 Left = 97
Height = 21 Height = 31
Top = 40 Top = 40
Width = 384 Width = 384
TabOrder = 1 TabOrder = 1
...@@ -11750,8 +11754,8 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11750,8 +11754,8 @@ object OQLExplorerV2: TOQLExplorerV2
end end
object tsPASunit: TTabSheet object tsPASunit: TTabSheet
Caption = 'Unit' Caption = 'Unit'
ClientHeight = 497 ClientHeight = 489
ClientWidth = 1082 ClientWidth = 1080
ImageIndex = 1 ImageIndex = 1
object pnlPASUnit: TPanel object pnlPASUnit: TPanel
Left = 0 Left = 0
...@@ -11776,6 +11780,39 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11776,6 +11780,39 @@ object OQLExplorerV2: TOQLExplorerV2
end end
end end
end end
object ToolBar1: TToolBar
Left = 0
Height = 35
Top = 0
Width = 1090
ButtonHeight = 24
ButtonWidth = 24
Caption = 'ToolBar1'
Images = ilCXOQL
List = True
ShowCaptions = True
TabOrder = 1
object ToolButton1: TToolButton
Left = 1
Top = 2
Action = aNewFile
end
object ToolButton2: TToolButton
Left = 56
Top = 2
Action = aLoadFile
end
object ToolButton3: TToolButton
Left = 116
Top = 2
Action = aSaveFile
end
object ToolButton4: TToolButton
Left = 174
Top = 2
Action = aExportPas
end
end
object abExportPAS: TAction object abExportPAS: TAction
Caption = 'abExportPAS' Caption = 'abExportPAS'
Visible = False Visible = False
...@@ -12588,8 +12625,8 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -12588,8 +12625,8 @@ object OQLExplorerV2: TOQLExplorerV2
} }
end end
object ilOQLState: TImageList object ilOQLState: TImageList
left = 16 left = 861
top = 472 top = 5
Bitmap = { Bitmap = {
4C6903000000100000001000000000000000000000000071ADFF0071ADFF0071 4C6903000000100000001000000000000000000000000071ADFF0071ADFF0071
ADFF0071ADFF0071ADFF0071ADFF000000000000000000000000000000000000 ADFF0071ADFF0071ADFF0071ADFF000000000000000000000000000000000000
...@@ -12702,4 +12739,38 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -12702,4 +12739,38 @@ object OQLExplorerV2: TOQLExplorerV2
Filter = 'pas|*.pas' Filter = 'pas|*.pas'
left = 616 left = 616
end end
object ActionList1: TActionList
left = 926
top = 6
object aNewOQL: TAction
Caption = '&New OQL'
ImageIndex = 5
OnExecute = aNewOQLExecute
end
object aDeleteOQL: TAction
Caption = '&Delete OQL'
ImageIndex = 9
OnExecute = aDeleteOQLExecute
end
object aNewFile: TAction
Caption = 'Ne&w'
ImageIndex = 10
OnExecute = aNewFileExecute
end
object aLoadFile: TAction
Caption = '&Open'
ImageIndex = 3
OnExecute = aLoadFileExecute
end
object aSaveFile: TAction
Caption = '&Save'
ImageIndex = 7
OnExecute = aSaveFileExecute
end
object aExportPas: TAction
Caption = '&Export'
ImageIndex = 8
OnExecute = aExportPASExecute
end
end
end end
EvoUMLPlugin/src/ituOQLExplorerV2.pas
View file @ d36b4459
This diff is collapsed.
EvoUMLPlugin/src/ituServiceParameters.dfm
View file @ d36b4459
object itServiceParameters: TitServiceParameters object itServiceParameters: TitServiceParameters
Left = 0 Left = 778
Height = 276 Height = 289
Top = 0 Top = 453
Width = 306 Width = 314
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Propriedades do Serviço' Caption = 'Propriedades do Serviço'
ClientHeight = 276 ClientHeight = 289
ClientWidth = 306 ClientWidth = 314
Color = clBtnFace
ParentFont = True ParentFont = True
Position = poDesktopCenter Position = poScreenCenter
LCLVersion = '2.0.0.4'
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
Height = 237 Height = 240
Top = 0 Top = 0
Width = 306 Width = 314
Align = alClient Align = alClient
ClientHeight = 237 ClientHeight = 240
ClientWidth = 306 ClientWidth = 314
TabOrder = 1 TabOrder = 1
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 6 Left = 6
Height = 77 Height = 77
Top = 3 Top = 3
Width = 296 Width = 296
ClientHeight = 70 ClientHeight = 75
ClientWidth = 288 ClientWidth = 294
TabOrder = 0 TabOrder = 0
object Label2: TLabel object Label2: TLabel
Left = 5 Left = 5
Height = 16 Height = 19
Top = 14 Top = 14
Width = 117 Width = 122
Caption = 'Nome do Servidor:' Caption = 'Nome do Servidor:'
ParentColor = False ParentColor = False
end end
object Label1: TLabel object Label1: TLabel
Left = 11 Left = 11
Height = 16 Height = 19
Top = 42 Top = 42
Width = 111 Width = 116
Caption = 'Número da Porta:' Caption = 'Número da Porta:'
ParentColor = False ParentColor = False
end end
object edtServerName: TEdit object edtServerName: TEdit
Left = 133 Left = 133
Height = 22 Height = 29
Top = 8 Top = 8
Width = 155 Width = 155
TabOrder = 0 TabOrder = 0
end end
object edtPortNumber: TEdit object edtPortNumber: TEdit
Left = 133 Left = 133
Height = 22 Height = 29
Top = 36 Top = 36
Width = 155 Width = 155
TabOrder = 1 TabOrder = 1
...@@ -63,20 +63,20 @@ object itServiceParameters: TitServiceParameters ...@@ -63,20 +63,20 @@ object itServiceParameters: TitServiceParameters
Height = 48 Height = 48
Top = 88 Top = 88
Width = 296 Width = 296
ClientHeight = 41 ClientHeight = 46
ClientWidth = 288 ClientWidth = 294
TabOrder = 1 TabOrder = 1
object Label3: TLabel object Label3: TLabel
Left = 0 Left = 0
Height = 16 Height = 19
Top = 12 Top = 12
Width = 122 Width = 126
Caption = 'Código do Sistema:' Caption = 'Código do Sistema:'
ParentColor = False ParentColor = False
end end
object edtSystemCode: TEdit object edtSystemCode: TEdit
Left = 133 Left = 133
Height = 22 Height = 29
Top = 8 Top = 8
Width = 155 Width = 155
TabOrder = 0 TabOrder = 0
...@@ -87,35 +87,35 @@ object itServiceParameters: TitServiceParameters ...@@ -87,35 +87,35 @@ object itServiceParameters: TitServiceParameters
Height = 80 Height = 80
Top = 144 Top = 144
Width = 296 Width = 296
ClientHeight = 73 ClientHeight = 78
ClientWidth = 288 ClientWidth = 294
TabOrder = 2 TabOrder = 2
object Label5: TLabel object Label5: TLabel
Left = 9 Left = 9
Height = 16 Height = 19
Top = 12 Top = 12
Width = 113 Width = 117
Caption = 'Nome do Usuário:' Caption = 'Nome do Usuário:'
ParentColor = False ParentColor = False
end end
object Label4: TLabel object Label4: TLabel
Left = 80 Left = 80
Height = 16 Height = 19
Top = 46 Top = 46
Width = 42 Width = 45
Caption = 'Senha:' Caption = 'Senha:'
ParentColor = False ParentColor = False
end end
object edtUserName: TEdit object edtUserName: TEdit
Left = 133 Left = 133
Height = 22 Height = 29
Top = 6 Top = 6
Width = 155 Width = 155
TabOrder = 0 TabOrder = 0
end end
object edtPassword: TEdit object edtPassword: TEdit
Left = 133 Left = 133
Height = 22 Height = 29
Top = 40 Top = 40
Width = 155 Width = 155
EchoMode = emPassword EchoMode = emPassword
...@@ -126,18 +126,18 @@ object itServiceParameters: TitServiceParameters ...@@ -126,18 +126,18 @@ object itServiceParameters: TitServiceParameters
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 39 Height = 49
Top = 237 Top = 240
Width = 306 Width = 314
Align = alBottom Align = alBottom
ClientHeight = 39 ClientHeight = 49
ClientWidth = 306 ClientWidth = 314
TabOrder = 0 TabOrder = 0
object BitBtn1: TBitBtn object BitBtn1: TBitBtn
Left = 141 Left = 96
Height = 25 Height = 35
Top = 6 Top = 6
Width = 75 Width = 99
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
Caption = 'Ok' Caption = 'Ok'
Kind = bkOK Kind = bkOK
...@@ -146,10 +146,10 @@ object itServiceParameters: TitServiceParameters ...@@ -146,10 +146,10 @@ object itServiceParameters: TitServiceParameters
TabOrder = 0 TabOrder = 0
end end
object BitBtn2: TBitBtn object BitBtn2: TBitBtn
Left = 229 Left = 203
Height = 25 Height = 35
Top = 6 Top = 6
Width = 75 Width = 97
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
Caption = 'Cancel' Caption = 'Cancel'
Kind = bkCancel Kind = bkCancel
......
EvoUMLPlugin/src/ituServiceParameters.pas
View file @ d36b4459
...@@ -4,7 +4,7 @@ interface ...@@ -4,7 +4,7 @@ interface
uses uses
LCLType, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, LCLType, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls; Dialogs, StdCtrls, Buttons, ExtCtrls, cxuSession;
type type
TitServiceParameters = class(TForm) TitServiceParameters = class(TForm)
...@@ -27,6 +27,7 @@ type ...@@ -27,6 +27,7 @@ type
Label4: TLabel; Label4: TLabel;
procedure BitBtn1Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject);
private private
fSession: cxSession;
function GetPassword: string; function GetPassword: string;
function GetPortNumber: integer; function GetPortNumber: integer;
function GetServerName: string; function GetServerName: string;
...@@ -40,6 +41,7 @@ type ...@@ -40,6 +41,7 @@ type
{ Private declarations } { Private declarations }
public public
{ Public declarations } { Public declarations }
property Session: cxSession read fSession write fSession;
property ServerName: string read GetServerName write SetServerName; property ServerName: string read GetServerName write SetServerName;
property PortNumber: integer read GetPortNumber write SetPortNumber; property PortNumber: integer read GetPortNumber write SetPortNumber;
property SystemCode: integer read GetSystemCode write SetSystemCode; property SystemCode: integer read GetSystemCode write SetSystemCode;
...@@ -55,6 +57,7 @@ implementation ...@@ -55,6 +57,7 @@ implementation
{ TServiceParameters } { TServiceParameters }
procedure TitServiceParameters.BitBtn1Click(Sender: TObject); procedure TitServiceParameters.BitBtn1Click(Sender: TObject);
var lConnectioString: String;
begin begin
if edtServerName.Text = '' then if edtServerName.Text = '' then
begin begin
...@@ -79,7 +82,7 @@ begin ...@@ -79,7 +82,7 @@ begin
end; end;
try try
strtoint(edtPortNumber.Text); StrToInt(edtPortNumber.Text);
except except
Application.MessageBox('Porta informada invlida.','Ateno', MB_ICONEXCLAMATION); Application.MessageBox('Porta informada invlida.','Ateno', MB_ICONEXCLAMATION);
edtPortNumber.SetFocus; edtPortNumber.SetFocus;
...@@ -88,13 +91,29 @@ begin ...@@ -88,13 +91,29 @@ begin
end; end;
try try
strtoint(edtSystemCode.Text); StrToInt(edtSystemCode.Text);
except except
Application.MessageBox('Cdigo do sistema informado invlido.','Ateno', MB_ICONEXCLAMATION); Application.MessageBox('Cdigo do sistema informado invlido.','Ateno', MB_ICONEXCLAMATION);
edtSystemCode.SetFocus; edtSystemCode.SetFocus;
edtSystemCode.SelectAll; edtSystemCode.SelectAll;
modalresult := mrnone; modalresult := mrnone;
end; end;
try
lConnectioString := format('ServerName=%s;PortNumber=%d;SystemCode=%d;UserName=%s;Password=%s;',
[edtServerName.Caption, StrToInt(edtPortNumber.Caption),
StrToInt(edtSystemCode.Caption), edtUserName.Caption,
edtPassword.Caption]);
fSession := cxSession.Create(lConnectioString);
except
on e:Exception do
begin
Application.MessageBox(PCHAR(e.Message), 'Ateno', MB_ICONEXCLAMATION);
modalresult := mrnone;
end;
end;
end; end;
function TitServiceParameters.GetPassword: string; function TitServiceParameters.GetPassword: string;
......
EvoUMLPlugin/src/uCadastroCasoDeUso.dfm
View file @ d36b4459
This diff is collapsed.
EvoUMLPlugin/src/uCadastroCasoDeUso.pas
View file @ d36b4459
...@@ -19,6 +19,8 @@ type ...@@ -19,6 +19,8 @@ type
TCadastroCasoDeUso = class(TForm) TCadastroCasoDeUso = class(TForm)
BitBtn1: TBitBtn; BitBtn1: TBitBtn;
BitBtn2: TBitBtn; BitBtn2: TBitBtn;
edtUseCaseName: TEdit;
Label4: TLabel;
Panel3: TPanel; Panel3: TPanel;
pnPrincipal: TPanel; pnPrincipal: TPanel;
lblNome: TLabel; lblNome: TLabel;
...@@ -41,9 +43,6 @@ type ...@@ -41,9 +43,6 @@ type
edtPackage: TEdit; edtPackage: TEdit;
Label3: TLabel; Label3: TLabel;
btnSelecionarDestino: TSpeedButton; btnSelecionarDestino: TSpeedButton;
Panel2: TPanel;
edtUseCaseName: TEdit;
Label4: TLabel;
Label5: TLabel; Label5: TLabel;
procedure imgIconeClick(Sender: TObject); procedure imgIconeClick(Sender: TObject);
procedure btnSelecionarDestinoClick(Sender: TObject); procedure btnSelecionarDestinoClick(Sender: TObject);
...@@ -51,6 +50,7 @@ type ...@@ -51,6 +50,7 @@ type
procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject);
private private
FOID: integer; FOID: integer;
FContextField: utField;
fUMLUseCase: IUMLUseCase; fUMLUseCase: IUMLUseCase;
fFormIcones: TCadastroCasoDeUsoIcones; fFormIcones: TCadastroCasoDeUsoIcones;
fcxCadastroCasoDeUso: cxCadatroCasoDeUso; fcxCadastroCasoDeUso: cxCadatroCasoDeUso;
...@@ -63,7 +63,8 @@ type ...@@ -63,7 +63,8 @@ type
{ Private declarations } { Private declarations }
public public
{ Public declarations } { Public declarations }
Constructor Create(Sender: TComponent; piConnectionString: string; piUseCase: IUMLUseCase); reintroduce; Constructor Create(Sender: TComponent; piCadatroCasoDeUso: cxCadatroCasoDeUso; piUseCase: IUMLUseCase); reintroduce;
Destructor Destroy; override;
property UseCasePackage: IUMLPackage read fUseCasePackage write fUseCasePackage; property UseCasePackage: IUMLPackage read fUseCasePackage write fUseCasePackage;
property UseCase: IUMLUseCase read fUMLUseCase; property UseCase: IUMLUseCase read fUMLUseCase;
...@@ -81,15 +82,21 @@ uses IntegracaoDelphiSUML; ...@@ -81,15 +82,21 @@ uses IntegracaoDelphiSUML;
type type
CP1252String = type AnsiString(1252); CP1252String = type AnsiString(1252);
constructor TCadastroCasoDeUso.Create(Sender: TComponent; piConnectionString: string; piUseCase: IUMLUseCase); constructor TCadastroCasoDeUso.Create(Sender: TComponent; piCadatroCasoDeUso: cxCadatroCasoDeUso; piUseCase: IUMLUseCase);
begin begin
inherited Create(sender); inherited Create(sender);
fUMLUseCase := piUseCase; fUMLUseCase := piUseCase;
fFormIcones := TCadastroCasoDeUsoIcones.Create(self); fFormIcones := TCadastroCasoDeUsoIcones.Create(self);
fcxCadastroCasoDeUso := cxCadatroCasoDeUso.Create(piConnectionString); fcxCadastroCasoDeUso := piCadatroCasoDeUso;
self.Initialize; self.Initialize;
end; end;
destructor TCadastroCasoDeUso.Destroy;
begin
FreeAndNil(FContextField);
inherited Destroy;
end;
procedure TCadastroCasoDeUso.imgIconeClick(Sender: TObject); procedure TCadastroCasoDeUso.imgIconeClick(Sender: TObject);
begin begin
if fFormIcones.ShowModal = mrOk then if fFormIcones.ShowModal = mrOk then
...@@ -101,27 +108,25 @@ begin ...@@ -101,27 +108,25 @@ begin
end; end;
procedure TCadastroCasoDeUso.Initialize; procedure TCadastroCasoDeUso.Initialize;
var lField, lResponseField: utField; var lUseCaseCode: string;
lUseCaseCode: string; lRequestField, lResponseField: utField;
begin begin
//Retorna do caso de uso os atributos da classe //Retorna do caso de uso os atributos da classe
lResponseField := utField.Create; FreeAndNil(FContextField);
try FContextField := utField.Create;
lField := utField.Create;
fcxCadastroCasoDeUso.rmObtemContexto(lField, lResponseField); lRequestField := utField.Create;
SendToInterface(lResponseField); fcxCadastroCasoDeUso.rmObtemContexto(lRequestField, FContextField);
finally SendToInterface(FContextField);
// lResponseField.free;
end;
if assigned(fUMLUseCase) then if assigned(fUMLUseCase) then
begin begin
lField := utField.Create; lRequestField := utField.Create;
lUseCaseCode := fUMLUseCase.GetTaggedValueAsString('DBMappings', 'DBUseCaseMap', 'Code'); lUseCaseCode := fUMLUseCase.GetTaggedValueAsString('DBMappings', 'DBUseCaseMap', 'Code');
lField.AddField('CODIGO').AsString := lUseCaseCode; lRequestField.AddField('CODIGO').AsString := lUseCaseCode;
lResponseField := utField.Create; lResponseField := utField.Create;
try try
fcxCadastroCasoDeUso.rmEditaObjeto(lField, lResponseField); fcxCadastroCasoDeUso.rmEditaObjeto(lRequestField, lResponseField);
SendToInterface(lResponseField); SendToInterface(lResponseField);
finally finally
lResponseField.free; lResponseField.free;
...@@ -135,8 +140,8 @@ begin ...@@ -135,8 +140,8 @@ begin
begin begin
lResponseField := utField.Create; lResponseField := utField.Create;
try try
lField := utField.Create; lRequestField := utField.Create;
fcxCadastroCasoDeUso.rmIncluiObjeto(lField, lResponseField); fcxCadastroCasoDeUso.rmIncluiObjeto(lRequestField, lResponseField);
SendToInterface(lResponseField); SendToInterface(lResponseField);
finally finally
lResponseField.free; lResponseField.free;
...@@ -162,19 +167,19 @@ begin ...@@ -162,19 +167,19 @@ begin
// lFieldCasoDeUso.AddAttribute('OID').AsInteger := FOID; // lFieldCasoDeUso.AddAttribute('OID').AsInteger := FOID;
lFieldCasoDeUso.AddAttribute('nome').AsString := edtNome.Text; lFieldCasoDeUso.AddAttribute('nome').AsString := edtNome.Text;
lFieldCasoDeUso.AddAttribute('descricao').AsString := edtDescricao.Text; lFieldCasoDeUso.AddAttribute('descricao').AsString := edtDescricao.Text;
if cbxEntidade.ItemIndex <> -1 then lFieldCasoDeUso.AddAttribute('idoentidade').AsInteger := integer(cbxEntidade.Items.Objects[cbxEntidade.ItemIndex]); if cbxEntidade.ItemIndex <> -1 then lFieldCasoDeUso.AddAttribute('idoentidade').AsInteger := utAttribute(cbxEntidade.Items.Objects[cbxEntidade.ItemIndex]).AsInteger;
if cbxCategoria.ItemIndex <> -1 then lFieldCasoDeUso.AddAttribute('idocategoria').AsInteger := integer(cbxCategoria.Items.Objects[cbxCategoria.ItemIndex]); if cbxCategoria.ItemIndex <> -1 then lFieldCasoDeUso.AddAttribute('idocategoria').AsInteger := utAttribute(cbxCategoria.Items.Objects[cbxCategoria.ItemIndex]).AsInteger;
if assigned(fFormIcones.ltvIcones.Selected) then lFieldCasoDeUso.AddAttribute('idoicone').AsInteger := integer(fFormIcones.ltvIcones.Selected.Data); if assigned(fFormIcones.ltvIcones.Selected) then lFieldCasoDeUso.AddAttribute('idoicone').AsInteger := utAttribute(fFormIcones.ltvIcones.Selected.Data).AsInteger;
lFieldSistemas := lFieldCasoDeUso.AddField('sistemas'); lFieldSistemas := lFieldCasoDeUso.AddField('sistemas');
for I := 0 to ltvSistema.Items.Count - 1 do for I := 0 to ltvSistema.Items.Count - 1 do
if ltvSistema.Items[i].Checked then if ltvSistema.Items[i].Checked then
lFieldSistemas.AddField('ido').AsInteger := integer(ltvSistema.Items[i].Data); lFieldSistemas.AddField('ido').AsInteger := utAttribute(ltvSistema.Items[i].Data).AsInteger;
lFieldOperacoes := lFieldCasoDeUso.AddField('operacoes'); lFieldOperacoes := lFieldCasoDeUso.AddField('operacoes');
for I := 0 to ltvOperacao.Items.Count - 1 do for I := 0 to ltvOperacao.Items.Count - 1 do
if ltvOperacao.Items[i].Checked then if ltvOperacao.Items[i].Checked then
lFieldOperacoes.AddField('ido').AsInteger := integer(ltvOperacao.Items[i].Data); lFieldOperacoes.AddField('ido').AsInteger := utAttribute(ltvOperacao.Items[i].Data).AsInteger;
end; end;
procedure TCadastroCasoDeUso.SendToInterface(piField: utField); procedure TCadastroCasoDeUso.SendToInterface(piField: utField);
...@@ -392,7 +397,10 @@ begin ...@@ -392,7 +397,10 @@ begin
lElementSelector.ClearSelectableModels(); lElementSelector.ClearSelectableModels();
lElementSelector.AddSelectableModel('UMLPackage'); lElementSelector.AddSelectableModel('UMLPackage');
if lElementSelector.Execute('Selecione o local para criar o caso de uso') then if lElementSelector.Execute('Selecione o local para criar o caso de uso') then
begin
UseCasePackage := lElementSelector.GetSelectedModel as IUMLPackage; UseCasePackage := lElementSelector.GetSelectedModel as IUMLPackage;
edtPackage.Text := UseCasePackage.PathName;
end;
end; end;
procedure TCadastroCasoDeUso.btnSalvarClick(Sender: TObject); procedure TCadastroCasoDeUso.btnSalvarClick(Sender: TObject);
...@@ -414,12 +422,6 @@ begin ...@@ -414,12 +422,6 @@ begin
try try
if assigned(fUMLUseCase) then if assigned(fUMLUseCase) then
begin begin
// if (assigned(fUseCasePackage.FindByName(edtUseCaseName.Text))) and (edtUseCaseName.Text <> fUMLUseCase.Name) then
// begin
// application.MessageBox('Caso de uso j existente no pacote selecionado.','StarUML', MB_ICONEXCLAMATION + MB_OK);
// exit;
// end;
SalvaObjeto; SalvaObjeto;
fUMLUseCase.Name := edtUseCaseName.Text; fUMLUseCase.Name := edtUseCaseName.Text;
end end
......
EvoUMLPlugin/src/uCadastroClasse.dfm
View file @ d36b4459
This diff is collapsed.
EvoUMLPlugin/src/uCadastroClasse.pas
View file @ d36b4459
This diff is collapsed.
EvoUMLPlugin/src/uDBAttributeParameters.dfm
View file @ d36b4459
This diff is collapsed.
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