Skip to content

S
StarUML Evológica Plugin
Commit ebe3caac authored by Erika Segatto's avatar Erika Segatto
Browse files
Options

inclui a geração de código de classe de domínio Java para projeto sem curio

parent 1c46e551
Hide whitespace changes
Inline Side-by-side
Showing with 2063 additions and 43 deletions
EvoUMLPlugin/src/CurioAddIn.lpi
View file @ ebe3caac
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<Flags>
......@@ -9,9 +9,9 @@
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="CurioAddIn"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
......@@ -429,9 +429,6 @@
<ShowAll Value="True"/>
</Verbosity>
<CustomOptions Value="-dUseCThreads"/>
<OtherDefines Count="1">
<Define0 Value="FullDebugMode"/>
</OtherDefines>
</Other>
</CompilerOptions>
<Debugging>
......
EvoUMLPlugin/src/DelphiAddInObj.pas
View file @ ebe3caac
......@@ -417,7 +417,9 @@ begin
lPreview.mem_ClassCSharp.Lines.Text := lUtilitario.GerarClassPreview_CSharp(lModel as IUMLClass);
lPreview.mem_ClassJava.Lines.Text := lUtilitario.GerarClassPreview_Java(lModel as IUMLClass);
lPreview.mem_ClassSQL.Lines.Text := lUtilitario.GerarSQLPreview(lModel);
lPreview.mem_ClassOracle.Lines.Text := lUtilitario.GerarSQLPreview(lModel, dbvOracle);
lPreview.mem_ClassJavaHibernate.Lines.Text := lUtilitario.GerarClassPreview_JavaHibernate(lModel as IUMLClass);
lPreview.mem_ClassJavaDomain.Lines.Text := lUtilitario.GerarClassPreview_JavaDomain(lModel as IUMLClass);
lPreview.mem_ClassJavaMapper.Lines.Text := lUtilitario.GerarClassPreview_JavaMapper(lModel as IUMLClass);
lPreview.ShowModal;
finally
FreeAndNil(lPreview);
......
EvoUMLPlugin/src/IntegracaoDelphiSUML.pas
View file @ ebe3caac
......@@ -96,6 +96,9 @@ type
function GerarClassPreview_Pascal(piClass : IUMLClass) : string;
function GerarClassPreview_CSharp(piClass : IUMLClass) : string;
function GerarClassPreview_Java(piClass : IUMLClass) : string;
function GerarClassPreview_JavaHibernate(piClass : IUMLClass) : string;
function GerarClassPreview_JavaDomain(piClass : IUMLClass) : string;
function GerarClassPreview_JavaMapper(piClass : IUMLClass) : string;
procedure GerarUnitRegisterModelMappings(piModelMappingsOptions: TModelMappingsOptions; piProgress: TFShowProgress);
procedure GerarUnitRegisterModelMappings_CSharp(piModelMappingsOptions: TModelMappingsOptions; piProgress: TFShowProgress);
......@@ -4652,7 +4655,7 @@ end;
function TUtil.GerarUseCaseClientPreview_Pascal(piParams: TCodeGenParams): string;
begin
Result := '';
end;
function TUtil.GerarRelationsPartnerShips(piClassTicket: acClassTicket; piInstantCodeClass: TInstantCodeClass): string;
......@@ -5067,6 +5070,441 @@ begin
end;
end;
function TUtil.GerarClassPreview_JavaHibernate(piClass: IUMLClass): string;
function ObterTipoAtributo(piTipoCurio: string): string;
begin
if piTipoCurio = 'acString' then Result := 'String'
else if piTipoCurio = 'acText' then Result := 'String'
else if piTipoCurio = 'acBlob' then Result := 'bynary[]'
else if piTipoCurio = 'acGraphic' then Result := 'bynary[]'
else if piTipoCurio = 'acDateTime' then Result := 'OffsetDateTime'
else if piTipoCurio = 'acInt' then Result := 'Integer'
else if piTipoCurio = 'acCurrency' then Result := 'BigDecimal'
else if piTipoCurio = 'acDouble' then Result := 'BigDecimal'
else Result := piTipoCurio;
end;
procedure EscreveAtributoClasse(const piCodigoClasse: PStringWriter; piNomeAtributo, piTipoAtributo, piNomeColuna: String);
begin
piCodigoClasse.WriteLine('@Column(name = "'+piNomeColuna+'")');
piCodigoClasse.WriteLine('private ' + piTipoAtributo+' '+piNomeAtributo+';');
end;
procedure EscreveGetterSetterClasse(const piCodigoClasse: PStringWriter; piNomeAtributo, piTipoAtributo: String; piVisibility: Integer; piApenasGetter: Boolean = False);
begin
//Escreve getter and setter
piCodigoClasse.WriteLine('public ' + piTipoAtributo+' get'+piNomeAtributo+'() { return '+' f'+piNomeAtributo+'; }');
if not piApenasGetter then
piCodigoClasse.WriteLine('public void set'+piNomeAtributo+'('+piTipoAtributo+' pi'+piNomeAtributo+') { f'+piNomeAtributo+' = pi'+piNomeAtributo+'; }');
piCodigoClasse.WriteLine('');
end;
const
_TipoId = 'Long';
_NomeId = 'Id';
var
lsNomeClasse,
lsAtributo,
lsTipoAttribute: string;
index: integer;
lClassTicket: acClassTicket;
lAttributeTicket: acAttributeTicket;
lCodigoClasse: PStringWriter;
lParamsConstrutor: string;
lRelation: acRelationTicket;
lHasImport: array[0..2] of Boolean;
begin
Result := '';
lParamsConstrutor := '';
lsNomeClasse := piClass.Name;
lClassTicket := MetaModel.GetClassTicketByName(lsNomeClasse);
for index := 0 to 2 do
lHasImport[index] := False;
if Copy(lsNomeClasse, 1, 2) = 'ng' then lsNomeClasse := RightStr(lsNomeClasse, Length(lsNomeClasse)-2);
lCodigoClasse := PStringWriter.Create;
try
lCodigoClasse.WriteLine('package adapters.persistence.entities;');
lCodigoClasse.WriteLine('');
lCodigoClasse.WriteLine('import javax.persistence.*;');
// Imports de tipos
if _TipoId = 'Long' then
begin
lCodigoClasse.WriteLine('import java.lang.Long;');
lHasImport[1] := True;
end;
for index := 0 to lClassTicket.Attributes.Count - 1 do
begin
lAttributeTicket := lClassTicket.Attributes.Objects[index] as acAttributeTicket;
lsTipoAttribute := ObterTipoAtributo(lAttributeTicket.AttributeType);
if (lsTipoAttribute = 'BigDecimal') and (not lHasImport[0]) then
begin
lCodigoClasse.WriteLine('import java.math.BigDecimal;');
lHasImport[0] := True;
end
else if (lsTipoAttribute = 'Long') and (not lHasImport[1]) then
begin
lCodigoClasse.WriteLine('import java.lang.Long;');
lHasImport[1] := True;
end
else if (lsTipoAttribute = 'OffsetDateTime') and (not lHasImport[2]) then
begin
lCodigoClasse.WriteLine('import java.time.OffsetDateTime;');
lHasImport[2] := True;
end;
end;
lCodigoClasse.WriteLine('');
// Incio da classe
lCodigoClasse.WriteLine('@Entity');
lCodigoClasse.WriteLine('@TableGenerator(name = "ddoPessoa", table = "SISBTNUMER", valueColumnName = "SISBNONUME",');
lCodigoClasse.WriteLine(' pkColumnName = "SISBDSNUME", pkColumnValue = "CGR_DDO_PESSOA", allocationSize = 1)');
lCodigoClasse.WriteLine('@Inheritance(strategy = InheritanceType.JOINED)');
lCodigoClasse.WriteLine('@DiscriminatorColumn(name = "CX_TYPE")');
lCodigoClasse.WriteLine('@Table(name = "CGR_DDO_PESSOA")');
lCodigoClasse.WriteLine('public abstract class ' + lsNomeClasse + ' {');
lCodigoClasse.WriteLine('');
lCodigoClasse.Indent();
// Escreve atributo id
EscreveAtributoClasse(lCodigoClasse, _NomeId, _TipoId, 'TODO');
// DECLARAO ATRIBUTOS: Percorre atributos da classe
for index := 0 to lClassTicket.Attributes.Count - 1 do
begin
lAttributeTicket := lClassTicket.Attributes.Objects[index] as acAttributeTicket;
lsAtributo := lClassTicket.Attributes.Strings[index];
lsTipoAttribute := ObterTipoAtributo(lAttributeTicket.AttributeType);
EscreveAtributoClasse(lCodigoClasse, lsAtributo, lsTipoAttribute, '');
end;
//Escrever RelationsPartnerShips
for index := 0 to lClassTicket.RelationTicketsIn.Count - 1 do
begin
lRelation := (lClassTicket.RelationTicketsIn.Objects[index] as acRelationTicket);
if (lRelation.DestinationPropertyName <> '') then
begin
//Escreve atributo
lsAtributo := lRelation.DestinationPropertyName;
if lRelation.DestinationMaxMultiplicity > 1
then lsTipoAttribute := 'List<'+ lRelation.OriginClassTicket.DisplayName +'>'
else lsTipoAttribute := lRelation.OriginClassTicket.DisplayName;
EscreveAtributoClasse(lCodigoClasse, lsAtributo, lsTipoAttribute, '');
end;
end;
for index := 0 to lClassTicket.RelationTicketsOut.Count - 1 do
begin
lRelation := (lClassTicket.RelationTicketsOut.Objects[index] as acRelationTicket);
if (lRelation.OriginPropertyName <> '') then
begin
//Escreve atributo
lsAtributo := lRelation.OriginPropertyName;
if lRelation.OriginMaxMultiplicity > 1
then lsTipoAttribute := 'List<'+lRelation.DestinationClassTicket.DisplayName+'>'
else lsTipoAttribute := lRelation.DestinationClassTicket.DisplayName;
EscreveAtributoClasse(lCodigoClasse, lsAtributo, lsTipoAttribute, '');
end;
end;
lCodigoClasse.WriteLine('');
//Escrever mtodos
//Escreve construtor com id
lCodigoClasse.WriteLine('');
lCodigoClasse.WriteLine('public '+lsNomeClasse+'('+_TipoId+' piId, '+strutils.LeftStr(lParamsConstrutor, Length(lParamsConstrutor)-2)+') {');
lCodigoClasse.Indent();
lCodigoClasse.WriteLine('id = piId;');
for index := 0 to lClassTicket.Attributes.Count - 1 do
begin
lsAtributo := lClassTicket.Attributes.Strings[index];
lCodigoClasse.WriteLine('f' + lsAtributo + ' = pi' + lsAtributo + ';');
end;
lCodigoClasse.Outdent();
lCodigoClasse.WriteLine('}');
//Escreve construtor sem id
lCodigoClasse.WriteLine('');
lCodigoClasse.WriteLine('public '+lsNomeClasse+'('+strutils.LeftStr(lParamsConstrutor, Length(lParamsConstrutor)-2)+') {');
lCodigoClasse.Indent();
for index := 0 to lClassTicket.Attributes.Count - 1 do
begin
lsAtributo := lClassTicket.Attributes.Strings[index];
lCodigoClasse.WriteLine('f' + lsAtributo + ' = pi' + lsAtributo + ';');
end;
lCodigoClasse.Outdent();
lCodigoClasse.WriteLine('}');
//Escrever mtodo ToString
lCodigoClasse.WriteLine('');
lCodigoClasse.WriteLine('@Override');
lCodigoClasse.WriteLine('public String toString() {');
lCodigoClasse.Indent();
lCodigoClasse.WriteLine('return "'+lsNomeClasse+'{ " +');
lCodigoClasse.WriteLine('"id="+ id +');
for index := 0 to lClassTicket.Attributes.Count - 1 do
begin
lsAtributo := lClassTicket.Attributes.Strings[index];
lCodigoClasse.WriteLine('"'+lsAtributo+'="+ '+lsAtributo+' +');
end;
lCodigoClasse.WriteLine('"}";');
lCodigoClasse.Outdent();
lCodigoClasse.WriteLine('}');
lCodigoClasse.WriteLine('');
//Fim
lCodigoClasse.Outdent();
lCodigoClasse.WriteLine('}');
Result := lCodigoClasse.AsString;
finally
lCodigoClasse.Free;
end;
//lClass := piModelElement as IUMLClass;
//
//lsNomeClasse := lClass.Name;
//
//lsNomeTabela := Uppercase(Copy(lsNomeClasse, 0, 2)) + 'U' + Copy(lsNomeClasse, 3, Length(lsNomeClasse)-2);
//
//lClassTicket := MetaModel.GetClassTicketByName(lsNomeClasse);
//lClassToDBMapTicket := lMetaModelPersistenceMapSQL.GetClassToDBMapTicket(lClassTicket);
//
//lsResult := concat(lsResult, SQLScriptCreateDirectTable(lClassToDBMapTicket, piDBVendor));
//
//lsResult := Concat(lsResult, #13#10#13#10);
//
//lsResult := Concat(lsResult, SQLScriptDirectTableForeignKeys(lClassToDBMapTicket, piDBVendor));
end;
function TUtil.GerarClassPreview_JavaDomain(piClass: IUMLClass): string;
function ObterTipoAtributo(piTipoCurio: string): string;
begin
if piTipoCurio = 'acString' then Result := 'String'
else if piTipoCurio = 'acText' then Result := 'String'
else if piTipoCurio = 'acBlob' then Result := 'bynary[]'
else if piTipoCurio = 'acGraphic' then Result := 'bynary[]'
else if piTipoCurio = 'acDateTime' then Result := 'OffsetDateTime'
else if piTipoCurio = 'acInt' then Result := 'Integer'
else if piTipoCurio = 'acCurrency' then Result := 'BigDecimal'
else if piTipoCurio = 'acDouble' then Result := 'BigDecimal'
else Result := piTipoCurio;
end;
procedure EscreveAtributoClasse(const piCodigoClasse: PStringWriter; piNomeAtributo, piTipoAtributo: String; piVisibility: Integer);
begin
//Escreve atributo
case piVisibility of
acAttributeVisibility.pvPublic : piCodigoClasse.WriteLine('public ');
acAttributeVisibility.pvProtected : piCodigoClasse.Write('protected ');
acAttributeVisibility.pvPrivate : piCodigoClasse.Write('private ');
else piCodigoClasse.Write('private ');
end;
piCodigoClasse.WriteLine(piTipoAtributo+' f'+piNomeAtributo+';');
end;
procedure EscreveGetterSetterClasse(const piCodigoClasse: PStringWriter; piNomeAtributo, piTipoAtributo: String; piVisibility: Integer; piApenasGetter: Boolean = False);
begin
//Escreve getter and setter
piCodigoClasse.WriteLine('public ' + piTipoAtributo+' get'+piNomeAtributo+'() { return '+' f'+piNomeAtributo+'; }');
if not piApenasGetter then
piCodigoClasse.WriteLine('public void set'+piNomeAtributo+'('+piTipoAtributo+' pi'+piNomeAtributo+') { f'+piNomeAtributo+' = pi'+piNomeAtributo+'; }');
piCodigoClasse.WriteLine('');
end;
const
_TipoId = 'Long';
_NomeId = 'Id';
var
lsNomeClasse,
lsAtributo,
lsTipoAttribute: string;
index: integer;
lClassTicket: acClassTicket;
lAttributeTicket: acAttributeTicket;
lCodigoClasse: PStringWriter;
lParamsConstrutor: string;
lRelation: acRelationTicket;
lHasImport: array[0..2] of Boolean;
begin
Result := '';
lParamsConstrutor := '';
lsNomeClasse := piClass.Name;
lClassTicket := MetaModel.GetClassTicketByName(lsNomeClasse);
for index := 0 to 2 do
lHasImport[index] := False;
lCodigoClasse := PStringWriter.Create;
try
lCodigoClasse.WriteLine('package domain;');
lCodigoClasse.WriteLine('');
// Imports de tipos
if _TipoId = 'Long' then
begin
lCodigoClasse.WriteLine('import java.lang.Long;');
lHasImport[1] := True;
end;
for index := 0 to lClassTicket.Attributes.Count - 1 do
begin
lAttributeTicket := lClassTicket.Attributes.Objects[index] as acAttributeTicket;
lsTipoAttribute := ObterTipoAtributo(lAttributeTicket.AttributeType);
if (lsTipoAttribute = 'BigDecimal') and (not lHasImport[0]) then
begin
lCodigoClasse.WriteLine('import java.math.BigDecimal;');
lHasImport[0] := True;
end
else if (lsTipoAttribute = 'Long') and (not lHasImport[1]) then
begin
lCodigoClasse.WriteLine('import java.lang.Long;');
lHasImport[1] := True;
end
else if (lsTipoAttribute = 'OffsetDateTime') and (not lHasImport[2]) then
begin
lCodigoClasse.WriteLine('import java.time.OffsetDateTime;');
lHasImport[2] := True;
end;
end;
lCodigoClasse.WriteLine('');
// Incio da classe
lCodigoClasse.WriteLine('public class ' + lsNomeClasse + ' {');
lCodigoClasse.WriteLine('');
lCodigoClasse.Indent();
// Escreve atributo id
EscreveAtributoClasse(lCodigoClasse, _NomeId, _TipoId, acAttributeVisibility.pvPrivate);
// DECLARAO ATRIBUTOS: Percorre atributos da classe
for index := 0 to lClassTicket.Attributes.Count - 1 do
begin
lAttributeTicket := lClassTicket.Attributes.Objects[index] as acAttributeTicket;
lsAtributo := lClassTicket.Attributes.Strings[index];
lsTipoAttribute := ObterTipoAtributo(lAttributeTicket.AttributeType);
EscreveAtributoClasse(lCodigoClasse, lsAtributo, lsTipoAttribute, lAttributeTicket.Visibility);
end;
//Escrever RelationsPartnerShips
for index := 0 to lClassTicket.RelationTicketsIn.Count - 1 do
begin
lRelation := (lClassTicket.RelationTicketsIn.Objects[index] as acRelationTicket);
if (lRelation.DestinationPropertyName <> '') then
begin
//Escreve atributo
lsAtributo := lRelation.DestinationPropertyName;
if lRelation.DestinationMaxMultiplicity > 1
then lsTipoAttribute := 'List<'+ lRelation.OriginClassTicket.DisplayName +'>'
else lsTipoAttribute := lRelation.OriginClassTicket.DisplayName;
EscreveAtributoClasse(lCodigoClasse, lsAtributo, lsTipoAttribute, acAttributeVisibility.pvProtected);
end;
end;
for index := 0 to lClassTicket.RelationTicketsOut.Count - 1 do
begin
lRelation := (lClassTicket.RelationTicketsOut.Objects[index] as acRelationTicket);
if (lRelation.OriginPropertyName <> '') then
begin
//Escreve atributo
lsAtributo := lRelation.OriginPropertyName;
if lRelation.OriginMaxMultiplicity > 1
then lsTipoAttribute := 'List<'+lRelation.DestinationClassTicket.DisplayName+'>'
else lsTipoAttribute := lRelation.DestinationClassTicket.DisplayName;
EscreveAtributoClasse(lCodigoClasse, lsAtributo, lsTipoAttribute, acAttributeVisibility.pvProtected);
end;
end;
lCodigoClasse.WriteLine('');
// GETTER/SETTER: Percorre atributos da classe
EscreveGetterSetterClasse(lCodigoClasse, _NomeId, _TipoId, acAttributeVisibility.pvPublic, True);
for index := 0 to lClassTicket.Attributes.Count - 1 do
begin
lAttributeTicket := lClassTicket.Attributes.Objects[index] as acAttributeTicket;
lsAtributo := lClassTicket.Attributes.Strings[index];
lsTipoAttribute := ObterTipoAtributo(lAttributeTicket.AttributeType);
lParamsConstrutor:= lParamsConstrutor + lsTipoAttribute + ' pi'+ lsAtributo + ', ';
EscreveGetterSetterClasse(lCodigoClasse, lsAtributo, lsTipoAttribute, lAttributeTicket.Visibility);
end;
//Escrever RelationsPartnerShips
for index := 0 to lClassTicket.RelationTicketsIn.Count - 1 do
begin
lRelation := (lClassTicket.RelationTicketsIn.Objects[index] as acRelationTicket);
if (lRelation.DestinationPropertyName <> '') then
begin
//Escreve atributo
lsAtributo := lRelation.DestinationPropertyName;
if lRelation.DestinationMaxMultiplicity > 1
then lsTipoAttribute := 'List<'+lRelation.OriginClassTicket.DisplayName+'>'
else lsTipoAttribute := lRelation.OriginClassTicket.DisplayName;
EscreveGetterSetterClasse(lCodigoClasse, lsAtributo, lsTipoAttribute, acAttributeVisibility.pvProtected);
end;
end;
for index := 0 to lClassTicket.RelationTicketsOut.Count - 1 do
begin
lRelation := (lClassTicket.RelationTicketsOut.Objects[index] as acRelationTicket);
if (lRelation.OriginPropertyName <> '') then
begin
//Escreve atributo
lsAtributo := lRelation.OriginPropertyName;
if lRelation.OriginMaxMultiplicity > 1
then lsTipoAttribute := 'List<'+lRelation.DestinationClassTicket.DisplayName+'>'
else lsTipoAttribute := lRelation.DestinationClassTicket.DisplayName;
EscreveGetterSetterClasse(lCodigoClasse, lsAtributo, lsTipoAttribute, acAttributeVisibility.pvProtected, lRelation.OriginMaxMultiplicity > 1);
end;
end;
//Escrever mtodos
//Escreve construtor com id
lCodigoClasse.WriteLine('');
lCodigoClasse.WriteLine('public '+lsNomeClasse+'('+_TipoId+' piId, '+strutils.LeftStr(lParamsConstrutor, Length(lParamsConstrutor)-2)+') {');
lCodigoClasse.Indent();
lCodigoClasse.WriteLine('id = piId;');
for index := 0 to lClassTicket.Attributes.Count - 1 do
begin
lsAtributo := lClassTicket.Attributes.Strings[index];
lCodigoClasse.WriteLine('f' + lsAtributo + ' = pi' + lsAtributo + ';');
end;
lCodigoClasse.Outdent();
lCodigoClasse.WriteLine('}');
//Escreve construtor sem id
lCodigoClasse.WriteLine('');
lCodigoClasse.WriteLine('public '+lsNomeClasse+'('+strutils.LeftStr(lParamsConstrutor, Length(lParamsConstrutor)-2)+') {');
lCodigoClasse.Indent();
for index := 0 to lClassTicket.Attributes.Count - 1 do
begin
lsAtributo := lClassTicket.Attributes.Strings[index];
lCodigoClasse.WriteLine('f' + lsAtributo + ' = pi' + lsAtributo + ';');
end;
lCodigoClasse.Outdent();
lCodigoClasse.WriteLine('}');
//Escrever mtodo ToString
lCodigoClasse.WriteLine('');
lCodigoClasse.WriteLine('@Override');
lCodigoClasse.WriteLine('public String toString() {');
lCodigoClasse.Indent();
lCodigoClasse.WriteLine('return "'+lsNomeClasse+'{ " +');
lCodigoClasse.WriteLine('"id="+ id +');
for index := 0 to lClassTicket.Attributes.Count - 1 do
begin
lsAtributo := lClassTicket.Attributes.Strings[index];
lCodigoClasse.WriteLine('"'+lsAtributo+'="+ '+lsAtributo+' +');
end;
lCodigoClasse.WriteLine('"}";');
lCodigoClasse.Outdent();
lCodigoClasse.WriteLine('}');
lCodigoClasse.WriteLine('');
//Fim
lCodigoClasse.Outdent();
lCodigoClasse.WriteLine('}');
Result := lCodigoClasse.AsString;
finally
lCodigoClasse.Free;
end;
end;
function TUtil.GerarClassPreview_JavaMapper(piClass: IUMLClass): string;
begin
Result := '';
end;
function TUtil.GerarClassPreview_Pascal(piClass : IUMLClass): string;
var
lsNomeClasse, lsAtributo, lsTipoAttribute, lsNomeUnit: string;
......
EvoUMLPlugin/src/fCodeGen.dfm
View file @ ebe3caac
object CodeGen: TCodeGen
Left = 2569
Left = 0
Height = 616
Top = 219
Top = 0
Width = 889
Caption = 'CodeGen'
ClientHeight = 616
......@@ -13,7 +13,7 @@ object CodeGen: TCodeGen
KeyPreview = True
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object PageControl1: TPageControl
Left = 0
Height = 616
......
EvoUMLPlugin/src/formMemo.dfm
View file @ ebe3caac
object PreviewClassCode: TPreviewClassCode
Left = 2149
Left = 229
Height = 580
Top = 247
Top = 38
Width = 803
Caption = 'Preview Class Code'
ClientHeight = 580
......@@ -12,7 +12,7 @@ object PreviewClassCode: TPreviewClassCode
Font.Name = 'Tahoma'
KeyPreview = True
Position = poScreenCenter
LCLVersion = '2.0.2.0'
LCLVersion = '2.0.4.0'
object Panel2: TPanel
Left = 0
Height = 580
......@@ -61,11 +61,11 @@ object PreviewClassCode: TPreviewClassCode
Height = 530
Top = 0
Width = 793
ActivePage = TabSheet3
ActivePage = tbJavaDomain
Align = alClient
TabIndex = 0
TabIndex = 5
TabOrder = 0
object TabSheet3: TTabSheet
object tbObjPascal: TTabSheet
Caption = 'ObjPascal'
ClientHeight = 504
ClientWidth = 785
......@@ -75,9 +75,15 @@ object PreviewClassCode: TPreviewClassCode
Top = 0
Width = 785
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 = <>
......@@ -541,7 +547,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 23
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -573,7 +579,7 @@ object PreviewClassCode: TPreviewClassCode
end
end
end
object TabSheet4: TTabSheet
object tbJavaCurio: TTabSheet
Caption = 'Java'
ClientHeight = 504
ClientWidth = 785
......@@ -584,9 +590,15 @@ object PreviewClassCode: TPreviewClassCode
Top = 0
Width = 785
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 = <>
......@@ -1050,7 +1062,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 23
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -1082,7 +1094,7 @@ object PreviewClassCode: TPreviewClassCode
end
end
end
object TabSheet5: TTabSheet
object tbCSharp: TTabSheet
Caption = 'C#'
ClientHeight = 504
ClientWidth = 785
......@@ -1093,9 +1105,15 @@ object PreviewClassCode: TPreviewClassCode
Top = 0
Width = 785
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 = <>
......@@ -1559,7 +1577,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 23
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -1591,7 +1609,7 @@ object PreviewClassCode: TPreviewClassCode
end
end
end
object TabSheet6: TTabSheet
object tbSQL: TTabSheet
Caption = 'SQL'
ClientHeight = 504
ClientWidth = 785
......@@ -1615,9 +1633,15 @@ object PreviewClassCode: TPreviewClassCode
Top = 0
Width = 777
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 = <>
......@@ -2081,7 +2105,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 23
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -2124,9 +2148,15 @@ object PreviewClassCode: TPreviewClassCode
Top = 0
Width = 777
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 = <>
......@@ -2590,7 +2620,7 @@ object PreviewClassCode: TPreviewClassCode
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 23
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
......@@ -2624,6 +2654,1548 @@ object PreviewClassCode: TPreviewClassCode
end
end
end
object tbJavaHibernate: TTabSheet
Caption = 'Java Hibernate'
ClientHeight = 504
ClientWidth = 785
inline mem_ClassJavaHibernate: TSynEdit
Left = 0
Height = 504
Top = 0
Width = 785
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 = 33
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
Highlighter = SynJavaSyn1
Keystrokes = <
item
Command = ecUp
ShortCut = 38
end
item
Command = ecSelUp
ShortCut = 8230
end
item
Command = ecScrollUp
ShortCut = 16422
end
item
Command = ecDown
ShortCut = 40
end
item
Command = ecSelDown
ShortCut = 8232
end
item
Command = ecScrollDown
ShortCut = 16424
end
item
Command = ecLeft
ShortCut = 37
end
item
Command = ecSelLeft
ShortCut = 8229
end
item
Command = ecWordLeft
ShortCut = 16421
end
item
Command = ecSelWordLeft
ShortCut = 24613
end
item
Command = ecRight
ShortCut = 39
end
item
Command = ecSelRight
ShortCut = 8231
end
item
Command = ecWordRight
ShortCut = 16423
end
item
Command = ecSelWordRight
ShortCut = 24615
end
item
Command = ecPageDown
ShortCut = 34
end
item
Command = ecSelPageDown
ShortCut = 8226
end
item
Command = ecPageBottom
ShortCut = 16418
end
item
Command = ecSelPageBottom
ShortCut = 24610
end
item
Command = ecPageUp
ShortCut = 33
end
item
Command = ecSelPageUp
ShortCut = 8225
end
item
Command = ecPageTop
ShortCut = 16417
end
item
Command = ecSelPageTop
ShortCut = 24609
end
item
Command = ecLineStart
ShortCut = 36
end
item
Command = ecSelLineStart
ShortCut = 8228
end
item
Command = ecEditorTop
ShortCut = 16420
end
item
Command = ecSelEditorTop
ShortCut = 24612
end
item
Command = ecLineEnd
ShortCut = 35
end
item
Command = ecSelLineEnd
ShortCut = 8227
end
item
Command = ecEditorBottom
ShortCut = 16419
end
item
Command = ecSelEditorBottom
ShortCut = 24611
end
item
Command = ecToggleMode
ShortCut = 45
end
item
Command = ecCopy
ShortCut = 16429
end
item
Command = ecPaste
ShortCut = 8237
end
item
Command = ecDeleteChar
ShortCut = 46
end
item
Command = ecCut
ShortCut = 8238
end
item
Command = ecDeleteLastChar
ShortCut = 8
end
item
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = ecDeleteLastWord
ShortCut = 16392
end
item
Command = ecUndo
ShortCut = 32776
end
item
Command = ecRedo
ShortCut = 40968
end
item
Command = ecLineBreak
ShortCut = 13
end
item
Command = ecSelectAll
ShortCut = 16449
end
item
Command = ecCopy
ShortCut = 16451
end
item
Command = ecBlockIndent
ShortCut = 24649
end
item
Command = ecLineBreak
ShortCut = 16461
end
item
Command = ecInsertLine
ShortCut = 16462
end
item
Command = ecDeleteWord
ShortCut = 16468
end
item
Command = ecBlockUnindent
ShortCut = 24661
end
item
Command = ecPaste
ShortCut = 16470
end
item
Command = ecCut
ShortCut = 16472
end
item
Command = ecDeleteLine
ShortCut = 16473
end
item
Command = ecDeleteEOL
ShortCut = 24665
end
item
Command = ecUndo
ShortCut = 16474
end
item
Command = ecRedo
ShortCut = 24666
end
item
Command = ecGotoMarker0
ShortCut = 16432
end
item
Command = ecGotoMarker1
ShortCut = 16433
end
item
Command = ecGotoMarker2
ShortCut = 16434
end
item
Command = ecGotoMarker3
ShortCut = 16435
end
item
Command = ecGotoMarker4
ShortCut = 16436
end
item
Command = ecGotoMarker5
ShortCut = 16437
end
item
Command = ecGotoMarker6
ShortCut = 16438
end
item
Command = ecGotoMarker7
ShortCut = 16439
end
item
Command = ecGotoMarker8
ShortCut = 16440
end
item
Command = ecGotoMarker9
ShortCut = 16441
end
item
Command = ecSetMarker0
ShortCut = 24624
end
item
Command = ecSetMarker1
ShortCut = 24625
end
item
Command = ecSetMarker2
ShortCut = 24626
end
item
Command = ecSetMarker3
ShortCut = 24627
end
item
Command = ecSetMarker4
ShortCut = 24628
end
item
Command = ecSetMarker5
ShortCut = 24629
end
item
Command = ecSetMarker6
ShortCut = 24630
end
item
Command = ecSetMarker7
ShortCut = 24631
end
item
Command = ecSetMarker8
ShortCut = 24632
end
item
Command = ecSetMarker9
ShortCut = 24633
end
item
Command = EcFoldLevel1
ShortCut = 41009
end
item
Command = EcFoldLevel2
ShortCut = 41010
end
item
Command = EcFoldLevel3
ShortCut = 41011
end
item
Command = EcFoldLevel4
ShortCut = 41012
end
item
Command = EcFoldLevel5
ShortCut = 41013
end
item
Command = EcFoldLevel6
ShortCut = 41014
end
item
Command = EcFoldLevel7
ShortCut = 41015
end
item
Command = EcFoldLevel8
ShortCut = 41016
end
item
Command = EcFoldLevel9
ShortCut = 41017
end
item
Command = EcFoldLevel0
ShortCut = 41008
end
item
Command = EcFoldCurrent
ShortCut = 41005
end
item
Command = EcUnFoldCurrent
ShortCut = 41003
end
item
Command = EcToggleMarkupWord
ShortCut = 32845
end
item
Command = ecNormalSelect
ShortCut = 24654
end
item
Command = ecColumnSelect
ShortCut = 24643
end
item
Command = ecLineSelect
ShortCut = 24652
end
item
Command = ecTab
ShortCut = 9
end
item
Command = ecShiftTab
ShortCut = 8201
end
item
Command = ecMatchBracket
ShortCut = 24642
end
item
Command = ecColSelUp
ShortCut = 40998
end
item
Command = ecColSelDown
ShortCut = 41000
end
item
Command = ecColSelLeft
ShortCut = 40997
end
item
Command = ecColSelRight
ShortCut = 40999
end
item
Command = ecColSelPageDown
ShortCut = 40994
end
item
Command = ecColSelPageBottom
ShortCut = 57378
end
item
Command = ecColSelPageUp
ShortCut = 40993
end
item
Command = ecColSelPageTop
ShortCut = 57377
end
item
Command = ecColSelLineStart
ShortCut = 40996
end
item
Command = ecColSelLineEnd
ShortCut = 40995
end
item
Command = ecColSelEditorTop
ShortCut = 57380
end
item
Command = ecColSelEditorBottom
ShortCut = 57379
end>
MouseActions = <>
MouseTextActions = <>
MouseSelActions = <>
Lines.Strings = (
''
)
Options = [eoAutoIndent, eoBracketHighlight, eoEnhanceHomeKey, eoGroupUndo, eoHalfPageScroll, eoHideRightMargin, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoAltSetsColumnMode]
Options2 = [eoEnhanceEndKey, eoFoldedCopyPaste, eoOverwriteBlock, eoColorSelectionTillEol]
MouseOptions = [emAltSetsColumnMode, emCtrlWheelZoom]
VisibleSpecialChars = [vscSpace, vscTabAtLast]
ReadOnly = True
RightEdge = 0
ScrollBars = ssAutoBoth
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50
SelectedColor.FramePriority = 50
SelectedColor.BoldPriority = 50
SelectedColor.ItalicPriority = 50
SelectedColor.UnderlinePriority = 50
SelectedColor.StrikeOutPriority = 50
BracketHighlightStyle = sbhsBoth
BracketMatchColor.Background = clNone
BracketMatchColor.Foreground = clNone
BracketMatchColor.Style = [fsBold]
FoldedCodeColor.Background = clNone
FoldedCodeColor.Foreground = clGray
FoldedCodeColor.FrameColor = clGray
MouseLinkColor.Background = clNone
MouseLinkColor.Foreground = clBlue
LineHighlightColor.Background = clNone
LineHighlightColor.Foreground = clNone
inline SynLeftGutterPartList1: TSynGutterPartList
object SynGutterMarks1: TSynGutterMarks
Width = 24
Visible = False
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
DigitCount = 2
ShowOnlyLineNumbersMultiplesOf = 1
ZeroStart = False
LeadingZeros = False
end
object SynGutterChanges1: TSynGutterChanges
Width = 4
MouseActions = <>
ModifiedColor = 59900
SavedColor = clGreen
end
object SynGutterSeparator1: TSynGutterSeparator
Width = 2
MouseActions = <>
MarkupInfo.Background = clWhite
MarkupInfo.Foreground = clGray
end
object SynGutterCodeFolding1: TSynGutterCodeFolding
Visible = False
MouseActions = <>
MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray
MouseActionsExpanded = <>
MouseActionsCollapsed = <>
end
end
end
end
object tbJavaDomain: TTabSheet
Caption = 'Java Dominio'
ClientHeight = 504
ClientWidth = 785
inline mem_ClassJavaDomain: TSynEdit
Left = 0
Height = 504
Top = 0
Width = 785
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 = 33
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
Highlighter = SynJavaSyn1
Keystrokes = <
item
Command = ecUp
ShortCut = 38
end
item
Command = ecSelUp
ShortCut = 8230
end
item
Command = ecScrollUp
ShortCut = 16422
end
item
Command = ecDown
ShortCut = 40
end
item
Command = ecSelDown
ShortCut = 8232
end
item
Command = ecScrollDown
ShortCut = 16424
end
item
Command = ecLeft
ShortCut = 37
end
item
Command = ecSelLeft
ShortCut = 8229
end
item
Command = ecWordLeft
ShortCut = 16421
end
item
Command = ecSelWordLeft
ShortCut = 24613
end
item
Command = ecRight
ShortCut = 39
end
item
Command = ecSelRight
ShortCut = 8231
end
item
Command = ecWordRight
ShortCut = 16423
end
item
Command = ecSelWordRight
ShortCut = 24615
end
item
Command = ecPageDown
ShortCut = 34
end
item
Command = ecSelPageDown
ShortCut = 8226
end
item
Command = ecPageBottom
ShortCut = 16418
end
item
Command = ecSelPageBottom
ShortCut = 24610
end
item
Command = ecPageUp
ShortCut = 33
end
item
Command = ecSelPageUp
ShortCut = 8225
end
item
Command = ecPageTop
ShortCut = 16417
end
item
Command = ecSelPageTop
ShortCut = 24609
end
item
Command = ecLineStart
ShortCut = 36
end
item
Command = ecSelLineStart
ShortCut = 8228
end
item
Command = ecEditorTop
ShortCut = 16420
end
item
Command = ecSelEditorTop
ShortCut = 24612
end
item
Command = ecLineEnd
ShortCut = 35
end
item
Command = ecSelLineEnd
ShortCut = 8227
end
item
Command = ecEditorBottom
ShortCut = 16419
end
item
Command = ecSelEditorBottom
ShortCut = 24611
end
item
Command = ecToggleMode
ShortCut = 45
end
item
Command = ecCopy
ShortCut = 16429
end
item
Command = ecPaste
ShortCut = 8237
end
item
Command = ecDeleteChar
ShortCut = 46
end
item
Command = ecCut
ShortCut = 8238
end
item
Command = ecDeleteLastChar
ShortCut = 8
end
item
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = ecDeleteLastWord
ShortCut = 16392
end
item
Command = ecUndo
ShortCut = 32776
end
item
Command = ecRedo
ShortCut = 40968
end
item
Command = ecLineBreak
ShortCut = 13
end
item
Command = ecSelectAll
ShortCut = 16449
end
item
Command = ecCopy
ShortCut = 16451
end
item
Command = ecBlockIndent
ShortCut = 24649
end
item
Command = ecLineBreak
ShortCut = 16461
end
item
Command = ecInsertLine
ShortCut = 16462
end
item
Command = ecDeleteWord
ShortCut = 16468
end
item
Command = ecBlockUnindent
ShortCut = 24661
end
item
Command = ecPaste
ShortCut = 16470
end
item
Command = ecCut
ShortCut = 16472
end
item
Command = ecDeleteLine
ShortCut = 16473
end
item
Command = ecDeleteEOL
ShortCut = 24665
end
item
Command = ecUndo
ShortCut = 16474
end
item
Command = ecRedo
ShortCut = 24666
end
item
Command = ecGotoMarker0
ShortCut = 16432
end
item
Command = ecGotoMarker1
ShortCut = 16433
end
item
Command = ecGotoMarker2
ShortCut = 16434
end
item
Command = ecGotoMarker3
ShortCut = 16435
end
item
Command = ecGotoMarker4
ShortCut = 16436
end
item
Command = ecGotoMarker5
ShortCut = 16437
end
item
Command = ecGotoMarker6
ShortCut = 16438
end
item
Command = ecGotoMarker7
ShortCut = 16439
end
item
Command = ecGotoMarker8
ShortCut = 16440
end
item
Command = ecGotoMarker9
ShortCut = 16441
end
item
Command = ecSetMarker0
ShortCut = 24624
end
item
Command = ecSetMarker1
ShortCut = 24625
end
item
Command = ecSetMarker2
ShortCut = 24626
end
item
Command = ecSetMarker3
ShortCut = 24627
end
item
Command = ecSetMarker4
ShortCut = 24628
end
item
Command = ecSetMarker5
ShortCut = 24629
end
item
Command = ecSetMarker6
ShortCut = 24630
end
item
Command = ecSetMarker7
ShortCut = 24631
end
item
Command = ecSetMarker8
ShortCut = 24632
end
item
Command = ecSetMarker9
ShortCut = 24633
end
item
Command = EcFoldLevel1
ShortCut = 41009
end
item
Command = EcFoldLevel2
ShortCut = 41010
end
item
Command = EcFoldLevel3
ShortCut = 41011
end
item
Command = EcFoldLevel4
ShortCut = 41012
end
item
Command = EcFoldLevel5
ShortCut = 41013
end
item
Command = EcFoldLevel6
ShortCut = 41014
end
item
Command = EcFoldLevel7
ShortCut = 41015
end
item
Command = EcFoldLevel8
ShortCut = 41016
end
item
Command = EcFoldLevel9
ShortCut = 41017
end
item
Command = EcFoldLevel0
ShortCut = 41008
end
item
Command = EcFoldCurrent
ShortCut = 41005
end
item
Command = EcUnFoldCurrent
ShortCut = 41003
end
item
Command = EcToggleMarkupWord
ShortCut = 32845
end
item
Command = ecNormalSelect
ShortCut = 24654
end
item
Command = ecColumnSelect
ShortCut = 24643
end
item
Command = ecLineSelect
ShortCut = 24652
end
item
Command = ecTab
ShortCut = 9
end
item
Command = ecShiftTab
ShortCut = 8201
end
item
Command = ecMatchBracket
ShortCut = 24642
end
item
Command = ecColSelUp
ShortCut = 40998
end
item
Command = ecColSelDown
ShortCut = 41000
end
item
Command = ecColSelLeft
ShortCut = 40997
end
item
Command = ecColSelRight
ShortCut = 40999
end
item
Command = ecColSelPageDown
ShortCut = 40994
end
item
Command = ecColSelPageBottom
ShortCut = 57378
end
item
Command = ecColSelPageUp
ShortCut = 40993
end
item
Command = ecColSelPageTop
ShortCut = 57377
end
item
Command = ecColSelLineStart
ShortCut = 40996
end
item
Command = ecColSelLineEnd
ShortCut = 40995
end
item
Command = ecColSelEditorTop
ShortCut = 57380
end
item
Command = ecColSelEditorBottom
ShortCut = 57379
end>
MouseActions = <>
MouseTextActions = <>
MouseSelActions = <>
Lines.Strings = (
''
)
Options = [eoAutoIndent, eoBracketHighlight, eoEnhanceHomeKey, eoGroupUndo, eoHalfPageScroll, eoHideRightMargin, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoAltSetsColumnMode]
Options2 = [eoEnhanceEndKey, eoFoldedCopyPaste, eoOverwriteBlock, eoColorSelectionTillEol]
MouseOptions = [emAltSetsColumnMode, emCtrlWheelZoom]
VisibleSpecialChars = [vscSpace, vscTabAtLast]
ReadOnly = True
RightEdge = 0
ScrollBars = ssAutoBoth
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50
SelectedColor.FramePriority = 50
SelectedColor.BoldPriority = 50
SelectedColor.ItalicPriority = 50
SelectedColor.UnderlinePriority = 50
SelectedColor.StrikeOutPriority = 50
BracketHighlightStyle = sbhsBoth
BracketMatchColor.Background = clNone
BracketMatchColor.Foreground = clNone
BracketMatchColor.Style = [fsBold]
FoldedCodeColor.Background = clNone
FoldedCodeColor.Foreground = clGray
FoldedCodeColor.FrameColor = clGray
MouseLinkColor.Background = clNone
MouseLinkColor.Foreground = clBlue
LineHighlightColor.Background = clNone
LineHighlightColor.Foreground = clNone
inline SynLeftGutterPartList1: TSynGutterPartList
object SynGutterMarks1: TSynGutterMarks
Width = 24
Visible = False
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
DigitCount = 2
ShowOnlyLineNumbersMultiplesOf = 1
ZeroStart = False
LeadingZeros = False
end
object SynGutterChanges1: TSynGutterChanges
Width = 4
MouseActions = <>
ModifiedColor = 59900
SavedColor = clGreen
end
object SynGutterSeparator1: TSynGutterSeparator
Width = 2
MouseActions = <>
MarkupInfo.Background = clWhite
MarkupInfo.Foreground = clGray
end
object SynGutterCodeFolding1: TSynGutterCodeFolding
Visible = False
MouseActions = <>
MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray
MouseActionsExpanded = <>
MouseActionsCollapsed = <>
end
end
end
end
object tbJavaMapper: TTabSheet
Caption = 'Java Mapper'
ClientHeight = 504
ClientWidth = 785
inline mem_ClassJavaMapper: TSynEdit
Left = 0
Height = 504
Top = 0
Width = 785
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 = 33
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
Highlighter = SynJavaSyn1
Keystrokes = <
item
Command = ecUp
ShortCut = 38
end
item
Command = ecSelUp
ShortCut = 8230
end
item
Command = ecScrollUp
ShortCut = 16422
end
item
Command = ecDown
ShortCut = 40
end
item
Command = ecSelDown
ShortCut = 8232
end
item
Command = ecScrollDown
ShortCut = 16424
end
item
Command = ecLeft
ShortCut = 37
end
item
Command = ecSelLeft
ShortCut = 8229
end
item
Command = ecWordLeft
ShortCut = 16421
end
item
Command = ecSelWordLeft
ShortCut = 24613
end
item
Command = ecRight
ShortCut = 39
end
item
Command = ecSelRight
ShortCut = 8231
end
item
Command = ecWordRight
ShortCut = 16423
end
item
Command = ecSelWordRight
ShortCut = 24615
end
item
Command = ecPageDown
ShortCut = 34
end
item
Command = ecSelPageDown
ShortCut = 8226
end
item
Command = ecPageBottom
ShortCut = 16418
end
item
Command = ecSelPageBottom
ShortCut = 24610
end
item
Command = ecPageUp
ShortCut = 33
end
item
Command = ecSelPageUp
ShortCut = 8225
end
item
Command = ecPageTop
ShortCut = 16417
end
item
Command = ecSelPageTop
ShortCut = 24609
end
item
Command = ecLineStart
ShortCut = 36
end
item
Command = ecSelLineStart
ShortCut = 8228
end
item
Command = ecEditorTop
ShortCut = 16420
end
item
Command = ecSelEditorTop
ShortCut = 24612
end
item
Command = ecLineEnd
ShortCut = 35
end
item
Command = ecSelLineEnd
ShortCut = 8227
end
item
Command = ecEditorBottom
ShortCut = 16419
end
item
Command = ecSelEditorBottom
ShortCut = 24611
end
item
Command = ecToggleMode
ShortCut = 45
end
item
Command = ecCopy
ShortCut = 16429
end
item
Command = ecPaste
ShortCut = 8237
end
item
Command = ecDeleteChar
ShortCut = 46
end
item
Command = ecCut
ShortCut = 8238
end
item
Command = ecDeleteLastChar
ShortCut = 8
end
item
Command = ecDeleteLastChar
ShortCut = 8200
end
item
Command = ecDeleteLastWord
ShortCut = 16392
end
item
Command = ecUndo
ShortCut = 32776
end
item
Command = ecRedo
ShortCut = 40968
end
item
Command = ecLineBreak
ShortCut = 13
end
item
Command = ecSelectAll
ShortCut = 16449
end
item
Command = ecCopy
ShortCut = 16451
end
item
Command = ecBlockIndent
ShortCut = 24649
end
item
Command = ecLineBreak
ShortCut = 16461
end
item
Command = ecInsertLine
ShortCut = 16462
end
item
Command = ecDeleteWord
ShortCut = 16468
end
item
Command = ecBlockUnindent
ShortCut = 24661
end
item
Command = ecPaste
ShortCut = 16470
end
item
Command = ecCut
ShortCut = 16472
end
item
Command = ecDeleteLine
ShortCut = 16473
end
item
Command = ecDeleteEOL
ShortCut = 24665
end
item
Command = ecUndo
ShortCut = 16474
end
item
Command = ecRedo
ShortCut = 24666
end
item
Command = ecGotoMarker0
ShortCut = 16432
end
item
Command = ecGotoMarker1
ShortCut = 16433
end
item
Command = ecGotoMarker2
ShortCut = 16434
end
item
Command = ecGotoMarker3
ShortCut = 16435
end
item
Command = ecGotoMarker4
ShortCut = 16436
end
item
Command = ecGotoMarker5
ShortCut = 16437
end
item
Command = ecGotoMarker6
ShortCut = 16438
end
item
Command = ecGotoMarker7
ShortCut = 16439
end
item
Command = ecGotoMarker8
ShortCut = 16440
end
item
Command = ecGotoMarker9
ShortCut = 16441
end
item
Command = ecSetMarker0
ShortCut = 24624
end
item
Command = ecSetMarker1
ShortCut = 24625
end
item
Command = ecSetMarker2
ShortCut = 24626
end
item
Command = ecSetMarker3
ShortCut = 24627
end
item
Command = ecSetMarker4
ShortCut = 24628
end
item
Command = ecSetMarker5
ShortCut = 24629
end
item
Command = ecSetMarker6
ShortCut = 24630
end
item
Command = ecSetMarker7
ShortCut = 24631
end
item
Command = ecSetMarker8
ShortCut = 24632
end
item
Command = ecSetMarker9
ShortCut = 24633
end
item
Command = EcFoldLevel1
ShortCut = 41009
end
item
Command = EcFoldLevel2
ShortCut = 41010
end
item
Command = EcFoldLevel3
ShortCut = 41011
end
item
Command = EcFoldLevel4
ShortCut = 41012
end
item
Command = EcFoldLevel5
ShortCut = 41013
end
item
Command = EcFoldLevel6
ShortCut = 41014
end
item
Command = EcFoldLevel7
ShortCut = 41015
end
item
Command = EcFoldLevel8
ShortCut = 41016
end
item
Command = EcFoldLevel9
ShortCut = 41017
end
item
Command = EcFoldLevel0
ShortCut = 41008
end
item
Command = EcFoldCurrent
ShortCut = 41005
end
item
Command = EcUnFoldCurrent
ShortCut = 41003
end
item
Command = EcToggleMarkupWord
ShortCut = 32845
end
item
Command = ecNormalSelect
ShortCut = 24654
end
item
Command = ecColumnSelect
ShortCut = 24643
end
item
Command = ecLineSelect
ShortCut = 24652
end
item
Command = ecTab
ShortCut = 9
end
item
Command = ecShiftTab
ShortCut = 8201
end
item
Command = ecMatchBracket
ShortCut = 24642
end
item
Command = ecColSelUp
ShortCut = 40998
end
item
Command = ecColSelDown
ShortCut = 41000
end
item
Command = ecColSelLeft
ShortCut = 40997
end
item
Command = ecColSelRight
ShortCut = 40999
end
item
Command = ecColSelPageDown
ShortCut = 40994
end
item
Command = ecColSelPageBottom
ShortCut = 57378
end
item
Command = ecColSelPageUp
ShortCut = 40993
end
item
Command = ecColSelPageTop
ShortCut = 57377
end
item
Command = ecColSelLineStart
ShortCut = 40996
end
item
Command = ecColSelLineEnd
ShortCut = 40995
end
item
Command = ecColSelEditorTop
ShortCut = 57380
end
item
Command = ecColSelEditorBottom
ShortCut = 57379
end>
MouseActions = <>
MouseTextActions = <>
MouseSelActions = <>
Lines.Strings = (
''
)
Options = [eoAutoIndent, eoBracketHighlight, eoEnhanceHomeKey, eoGroupUndo, eoHalfPageScroll, eoHideRightMargin, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoAltSetsColumnMode]
Options2 = [eoEnhanceEndKey, eoFoldedCopyPaste, eoOverwriteBlock, eoColorSelectionTillEol]
MouseOptions = [emAltSetsColumnMode, emCtrlWheelZoom]
VisibleSpecialChars = [vscSpace, vscTabAtLast]
ReadOnly = True
RightEdge = 0
ScrollBars = ssAutoBoth
SelectedColor.BackPriority = 50
SelectedColor.ForePriority = 50
SelectedColor.FramePriority = 50
SelectedColor.BoldPriority = 50
SelectedColor.ItalicPriority = 50
SelectedColor.UnderlinePriority = 50
SelectedColor.StrikeOutPriority = 50
BracketHighlightStyle = sbhsBoth
BracketMatchColor.Background = clNone
BracketMatchColor.Foreground = clNone
BracketMatchColor.Style = [fsBold]
FoldedCodeColor.Background = clNone
FoldedCodeColor.Foreground = clGray
FoldedCodeColor.FrameColor = clGray
MouseLinkColor.Background = clNone
MouseLinkColor.Foreground = clBlue
LineHighlightColor.Background = clNone
LineHighlightColor.Foreground = clNone
inline SynLeftGutterPartList1: TSynGutterPartList
object SynGutterMarks1: TSynGutterMarks
Width = 24
Visible = False
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 17
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
DigitCount = 2
ShowOnlyLineNumbersMultiplesOf = 1
ZeroStart = False
LeadingZeros = False
end
object SynGutterChanges1: TSynGutterChanges
Width = 4
MouseActions = <>
ModifiedColor = 59900
SavedColor = clGreen
end
object SynGutterSeparator1: TSynGutterSeparator
Width = 2
MouseActions = <>
MarkupInfo.Background = clWhite
MarkupInfo.Foreground = clGray
end
object SynGutterCodeFolding1: TSynGutterCodeFolding
Visible = False
MouseActions = <>
MarkupInfo.Background = clNone
MarkupInfo.Foreground = clGray
MouseActionsExpanded = <>
MouseActionsCollapsed = <>
end
end
end
end
end
end
end
......@@ -2632,33 +4204,38 @@ object PreviewClassCode: TPreviewClassCode
Enabled = False
CompilerMode = pcmObjFPC
NestedComments = True
left = 383
top = 19
left = 512
top = 104
end
object SynJavaSyn1: TSynJavaSyn
DefaultFilter = 'Java Files (*.java)|*.java'
Enabled = False
left = 503
top = 19
AnnotationAttri.Foreground = clScrollBar
CommentAttri.Foreground = clScrollBar
KeyAttri.Foreground = clTeal
NumberAttri.Foreground = clBlue
SymbolAttri.Foreground = clTeal
left = 584
top = 104
end
object SynSQLSyn1: TSynSQLSyn
DefaultFilter = 'SQL Files (*.sql)|*.sql'
Enabled = False
SQLDialect = sqlMSSQL2K
left = 589
top = 19
left = 512
top = 168
end
object SynCppSyn1: TSynCppSyn
DefaultFilter = 'C++ Files (*.c,*.cpp,*.h,*.hpp,*.hh)|*.c;*.cpp;*.h;*.hpp;*.hh'
Enabled = False
left = 688
top = 32
left = 656
top = 104
end
object SynSQLSyn2: TSynSQLSyn
DefaultFilter = 'SQL Files (*.sql)|*.sql'
Enabled = False
SQLDialect = sqlOracle
left = 589
top = 85
left = 584
top = 168
end
end
EvoUMLPlugin/src/formMemo.pas
View file @ ebe3caac
......@@ -12,6 +12,9 @@ type
{ TPreviewClassCode }
TPreviewClassCode = class(TForm)
mem_ClassJavaHibernate: TSynEdit;
mem_ClassJavaDomain: TSynEdit;
mem_ClassJavaMapper: TSynEdit;
Panel2: TPanel;
Panel1: TPanel;
Button1: TButton;
......@@ -28,10 +31,13 @@ type
SynSQLSyn2: TSynSQLSyn;
TabSheet1: TTabSheet;
pgc_ClassCode: TPageControl;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
tbJavaMapper: TTabSheet;
tbJavaDomain: TTabSheet;
tbJavaHibernate: TTabSheet;
tbObjPascal: TTabSheet;
tbJavaCurio: TTabSheet;
tbCSharp: TTabSheet;
tbSQL: TTabSheet;
PageControl1: TPageControl;
TabSheet10: TTabSheet;
TabSheet14: TTabSheet;
......
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