Skip to content

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

Ajustes

parent 7b8e54f3
Expand all Show whitespace changes
Inline Side-by-side
Showing with 623 additions and 522 deletions
EvoUMLPlugin/deploy/staruml-evologica/Curio.mnu
View file @ 1c46e551
......@@ -10,28 +10,32 @@
</HEADER>
<BODY>
<MAINMENU>
<MAINITEM index="7" base="NEW_TOP" caption="Curio" beginGroup="TRUE">
<MAINITEM index="6" base="NEW_TOP" caption="Curio" beginGroup="TRUE">
<MAINITEM caption="Generate RegisterModelMappings" actionId="1" />
<MAINITEM caption="Code Generator" actionId="6" beginGroup="TRUE"/>
<MAINITEM caption="Quick OQL" actionId="18" beginGroup="TRUE"/>
<MAINITEM caption="OQL Studio" actionId="19" />
<MAINITEM caption="Element documentation" actionId="12" beginGroup="TRUE"/>
<!-- <MAINITEM caption="Element documentation" actionId="12" beginGroup="TRUE"/>
<MAINITEM caption="Convert ALL XSDs to Usecase XSD" actionId="14" beginGroup="TRUE"/>
<MAINITEM caption="Dynamo" actionId="20" beginGroup="TRUE"/>
<MAINITEM caption="Dynamo" beginGroup="TRUE">
<MAINITEM caption="Manage Forms..." actionId="20"/>
</MAINITEM> -->
</MAINITEM>
<MAINITEM caption="Curio" beginGroup="TRUE" availableWhen="MODEL_SELECTED">
<MAINITEM caption="Associations" beginGroup="TRUE">
<MAINITEM caption="Association code preview..." actionId="2" />
</MAINITEM>
<MAINITEM caption="Classes" beginGroup="TRUE">
<MAINITEM caption="Insert class..." actionId="9" />
<MAINITEM caption="Edit selected class..." actionId="10"/>
<MAINITEM caption="Class code preview..." actionId="2" beginGroup="TRUE" />
</MAINITEM>
<!-- <MAINITEM caption="Transitions" >
<MAINITEM caption="XSD Editor..." actionId="7" />
</MAINITEM>-->
</MAINITEM> -->
<MAINITEM caption="Usecases" beginGroup="TRUE">
<MAINITEM caption="Insert usecase..." actionId="8" />
......@@ -53,6 +57,7 @@
<POPUPITEM caption="Associations" >
<POPUPITEM caption="Association code preview..." actionId="2" />
</POPUPITEM>
<POPUPITEM caption="Classes" >
<POPUPITEM caption="Class code preview..." actionId="2" />
<POPUPITEM caption="Insert class..." actionId="9" beginGroup="TRUE" />
......@@ -61,13 +66,17 @@
<!-- <POPUPITEM caption="Transitions" >
<POPUPITEM caption="XSD Editor..." actionId="7" />
</POPUPITEM>-->
</POPUPITEM> -->
<POPUPITEM caption="Usecases" >
<POPUPITEM caption="Insert usecase..." actionId="8" />
<POPUPITEM caption="Edit selected usecase..." actionId="11"/>
<POPUPITEM caption="XSDs Editor..." actionId="13" beginGroup="TRUE" />
</POPUPITEM>
<POPUPITEM caption="Dynamo" >
<POPUPITEM caption="Manage Forms" actionId="20" />
</POPUPITEM>
</POPUPMENU>
</BODY>
</ADDINMENU>
......
EvoUMLPlugin/src/CurioAddIn.dpr
View file @ 1c46e551
......@@ -29,10 +29,12 @@ uses
utuLinksManager,
utuLinkSock,
acuFramework,
acuSystem,
acuSystemCurrentConfig,
acuApplicationLog,
acuPersistenceLog,
acuQuerySQLODBC,
ituExplorerV2,
acuAudit,
IntegracaoDelphiSUML in 'IntegracaoDelphiSUML.pas',
Mostra_Processamento in 'Mostra_Processamento.pas' {FMostra_Processamento},
InstantClasses in 'InstantCode\InstantClasses.pas',
......@@ -60,20 +62,21 @@ begin
end;
{$ifend}
gSystemConfig := acSystem.Create('');
if not assigned(gApplicationLog) then gApplicationLog := acApplicationLog.Create;
if not assigned(gPersistenceManager) then gPersistenceManager := acPersistenceManager.Create;
if not assigned(gAuditLog) then gAuditLog := acAuditLog.Create;
utuMessage.ChangeLocaleFormatSetting;
gDefaultDatabaseDriver := typeOf(acDatabaseSQLODBC);
if not assigned(acApplicationLog.Instance) then acApplicationLog.Instance := acApplicationLog.Create;
if not assigned(acPersistenceManager.Instance) then acPersistenceManager.Instance := acPersistenceManager.Create;
if not assigned(acPersistenceManager.Audit) then acPersistenceManager.Audit := acAudit.Create;
if not Assigned(acPersistenceLog.Instance) then acPersistenceLog.Instance := acPersistenceLog.Create;
if not Assigned(acSystemCurrentConfig.Instance) then acSystemCurrentConfig.Instance := acSystemCurrentConfig.Create;
mxMessage.ChangeLocaleFormatSetting;
acRepositorySQL.DefaultDatabaseDriver := typeOf(acDatabaseSQLODBC);
PersistenceManager.DefaultRepositoryClass := typeOf(acRepositorySQL);
PersistenceManager.RegisterClass(typeOf(acPersistentObject), acPersistentObjectClassFactory.Create);
gSQLDialectManager := acSQLDialectManager.Create;
gSQLDialectManager.RegisterSQLDialect('MS SQL Server', typeOf(acSQLDialectSQLServer), acSQLDialectSQLServerClassFactory.Create);
gSQLDialectManager.RegisterSQLDialect('Oracle', typeOf(acSQLDialectOracle), acSQLDialectOracleClassFactory.Create);
gSQLDialectManager.RegisterSQLDialect('DB2', typeOf(acSQLDialectDB2), acSQLDialectDB2ClassFactory.Create);
gLinksManager := utLinksManager.Create;
gLinksManager.RegisterLink('tcp/ip', typeOf(utLinkSock), utLinkSockClassFactory.Create);
if not Assigned(acSQLDialectManager.Instance) then acSQLDialectManager.Instance := acSQLDialectManager.Create;
acSQLDialectManager.Instance.RegisterSQLDialect('MS SQL Server', typeOf(acSQLDialectSQLServer), acSQLDialectSQLServerClassFactory.Create);
acSQLDialectManager.Instance.RegisterSQLDialect('Oracle', typeOf(acSQLDialectOracle), acSQLDialectOracleClassFactory.Create);
acSQLDialectManager.Instance.RegisterSQLDialect('DB2', typeOf(acSQLDialectDB2), acSQLDialectDB2ClassFactory.Create);
if not Assigned(utLinksManager.Instance) then utLinksManager.Instance := utLinksManager.Create;
utLinksManager.Instance.RegisterLink('tcp/ip', typeOf(utLinkSock), utLinkSockClassFactory.Create);
{$IFDEF DARWIN}
MainPool := Nil;
......
EvoUMLPlugin/src/CurioAddIn.lpi
View file @ 1c46e551
......@@ -98,9 +98,6 @@
<TargetOS Value="win32"/>
</CodeGeneration>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
......@@ -171,23 +168,30 @@
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams>
<RequiredPackages Count="5">
<RequiredPackages Count="7">
<Item1>
<PackageName Value="JvStdCtrlsLazR"/>
<PackageName Value="CurioApplication"/>
</Item1>
<Item2>
<PackageName Value="evoumlintf"/>
<PackageName Value="Curio"/>
</Item2>
<Item3>
<PackageName Value="curio"/>
<PackageName Value="CurioPersistence"/>
</Item3>
<Item4>
<PackageName Value="SynEdit"/>
<PackageName Value="CurioModeling"/>
</Item4>
<Item5>
<PackageName Value="LCL"/>
<PackageName Value="evoumlintf"/>
</Item5>
<Item6>
<PackageName Value="SynEdit"/>
</Item6>
<Item7>
<PackageName Value="LCL"/>
</Item7>
</RequiredPackages>
<Units Count="32">
<Unit0>
......
EvoUMLPlugin/src/IntegracaoDelphiSUML.pas
View file @ 1c46e551
This diff is collapsed.
EvoUMLPlugin/src/ituCadastrarFormulario.pas
View file @ 1c46e551
......@@ -6,8 +6,8 @@ interface
uses
LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, StdCtrls, Dialogs, JvExControls, ComCtrls, ExtCtrls, Buttons,
MaskEdit, JvBaseEdits, JvCheckBox, utuMessage, Grids, ValEdit, StarUMLintf,
Controls, Forms, StdCtrls, Dialogs, ComCtrls, ExtCtrls, Buttons,
MaskEdit, utuMessage, Grids, ValEdit, StarUMLintf,
cxuCadastroDefinicaoClasse, IntegracaoDelphiSUML, acuModel;
type
......@@ -473,7 +473,7 @@ begin
end;
end;
lClass := fUtil.MetaModel.ClassTicketByCode[fClassCode] as acClassTicket;
lClass := fUtil.MetaModel.GetClassTicketByCode(fClassCode) as acClassTicket;
FillListViewClassData(lClass);
lvCampos.Selected := nil;
lvCamposClick(nil);
......
EvoUMLPlugin/src/ituDataBaseLogin.dfm
View file @ 1c46e551
......@@ -13,7 +13,7 @@ object DataBaseLogin: TDataBaseLogin
OnShow = FormShow
ParentFont = True
Position = poOwnerFormCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.1.0.0'
object GroupBox2: TGroupBox
Left = 8
Height = 216
......
EvoUMLPlugin/src/ituDataBaseLogin.pas
View file @ 1c46e551
......@@ -103,7 +103,7 @@ begin
GetUserDSNList(cbODBCD_DSN.Items);
GetDriverList(cbODBCD_DRIVERS.Items);
for lObj in gSQLDialectManager.InstancedObjects do
for lObj in acSQLDialectManager.Instance.InstancedObjects do
begin
cbDialect.AddItem(acFactoredObject(lObj).Ticket.Code, lObj);
end;
......
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