Skip to content

S
StarUML Evológica Plugin
Commit 5f660be4 authored by Luis Gustavo Zanoni Bermudes's avatar Luis Gustavo Zanoni Bermudes
Browse files
Options

feat: [EVOUMLPlugin] - Implementação de geração de Classe Java mapeando os... 

feat: [EVOUMLPlugin] -  Implementação de geração de Classe Java mapeando os OQLs do OQLStudio, mudança no fluxo de exportação para acomodar diversas linguagens
parent 2bde221e
Expand all Show whitespace changes
Inline Side-by-side
Showing with 369 additions and 44 deletions
EvoUMLPlugin/src/CurioAddIn.lpi
View file @ 5f660be4
...@@ -459,7 +459,7 @@ ...@@ -459,7 +459,7 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="3"> <Exceptions Count="4">
<Item1> <Item1>
<Name Value="EAbort"/> <Name Value="EAbort"/>
</Item1> </Item1>
...@@ -469,6 +469,9 @@ ...@@ -469,6 +469,9 @@
<Item3> <Item3>
<Name Value="EFOpenError"/> <Name Value="EFOpenError"/>
</Item3> </Item3>
<Item4>
<Name Value="Exception"/>
</Item4>
</Exceptions> </Exceptions>
</Debugging> </Debugging>
</CONFIG> </CONFIG>
EvoUMLPlugin/src/ituOQLExplorerV2.dfm
View file @ 5f660be4
...@@ -2,10 +2,10 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -2,10 +2,10 @@ object OQLExplorerV2: TOQLExplorerV2
Left = 534 Left = 534
Height = 552 Height = 552
Top = 331 Top = 331
Width = 1090 Width = 1091
Caption = 'Curio OQL Explorer' Caption = 'Curio OQL Explorer'
ClientHeight = 552 ClientHeight = 552
ClientWidth = 1090 ClientWidth = 1091
Color = clBtnFace Color = clBtnFace
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
...@@ -11577,36 +11577,35 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11577,36 +11577,35 @@ object OQLExplorerV2: TOQLExplorerV2
001FF80000000000001FF80000000000001FFFFFFFFFFFFFFFFFFFFFFFFFFFFF 001FF80000000000001FF80000000000001FFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
} }
Position = poScreenCenter
ShowInTaskBar = stAlways
OnClose = FormClose OnClose = FormClose
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate OnCreate = FormCreate
OnResize = FormResize OnResize = FormResize
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter
ShowInTaskBar = stAlways
LCLVersion = '2.2.4.0'
object pcCXOQL: TPageControl object pcCXOQL: TPageControl
Left = 0 Left = 0
Height = 517 Height = 517
Top = 35 Top = 35
Width = 1090 Width = 1091
ActivePage = tsCXOQL ActivePage = tsPASunit
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 1
TabOrder = 0 TabOrder = 0
object tsCXOQL: TTabSheet object tsCXOQL: TTabSheet
Caption = 'CXOQL' Caption = 'CXOQL'
ClientHeight = 491 ClientHeight = 491
ClientWidth = 1082 ClientWidth = 1083
object pnlCXOQL: TPanel object pnlCXOQL: TPanel
Left = 0 Left = 0
Height = 491 Height = 491
Top = 0 Top = 0
Width = 1082 Width = 1083
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 491 ClientHeight = 491
ClientWidth = 1082 ClientWidth = 1083
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
object splVertical: TSplitter object splVertical: TSplitter
...@@ -11615,8 +11614,8 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11615,8 +11614,8 @@ object OQLExplorerV2: TOQLExplorerV2
Top = 0 Top = 0
Width = 4 Width = 4
Color = clBtnFace Color = clBtnFace
OnCanResize = splVerticalCanResize
ParentColor = False ParentColor = False
OnCanResize = splVerticalCanResize
end end
object pnlOQLList: TPanel object pnlOQLList: TPanel
Left = 0 Left = 0
...@@ -11627,6 +11626,7 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11627,6 +11626,7 @@ object OQLExplorerV2: TOQLExplorerV2
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 491 ClientHeight = 491
ClientWidth = 274 ClientWidth = 274
ParentBackground = False
TabOrder = 0 TabOrder = 0
object pnlList: TPanel object pnlList: TPanel
Left = 0 Left = 0
...@@ -11637,6 +11637,7 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11637,6 +11637,7 @@ object OQLExplorerV2: TOQLExplorerV2
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 465 ClientHeight = 465
ClientWidth = 274 ClientWidth = 274
ParentBackground = False
TabOrder = 0 TabOrder = 0
object lvOQLList: TListView object lvOQLList: TListView
Left = 0 Left = 0
...@@ -11696,17 +11697,18 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11696,17 +11697,18 @@ object OQLExplorerV2: TOQLExplorerV2
Left = 278 Left = 278
Height = 491 Height = 491
Top = 0 Top = 0
Width = 804 Width = 805
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 491 ClientHeight = 491
ClientWidth = 804 ClientWidth = 805
ParentBackground = False
TabOrder = 1 TabOrder = 1
object pnlOQLExplorer: TPanel object pnlOQLExplorer: TPanel
Left = 0 Left = 0
Height = 418 Height = 418
Top = 73 Top = 73
Width = 804 Width = 805
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ParentBackground = False ParentBackground = False
...@@ -11716,11 +11718,11 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11716,11 +11718,11 @@ object OQLExplorerV2: TOQLExplorerV2
Left = 0 Left = 0
Height = 73 Height = 73
Top = 0 Top = 0
Width = 804 Width = 805
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 73 ClientHeight = 73
ClientWidth = 804 ClientWidth = 805
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
object labelName: TLabel object labelName: TLabel
...@@ -11760,25 +11762,32 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11760,25 +11762,32 @@ object OQLExplorerV2: TOQLExplorerV2
object tsPASunit: TTabSheet object tsPASunit: TTabSheet
Caption = 'Unit' Caption = 'Unit'
ClientHeight = 491 ClientHeight = 491
ClientWidth = 1082 ClientWidth = 1083
ImageIndex = 1 ImageIndex = 1
object pnlPASUnit: TPanel object pnlPASUnit: TPanel
Left = 0 Left = 0
Height = 491 Height = 491
Top = 0 Top = 0
Width = 1082 Width = 1083
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 491 ClientHeight = 491
ClientWidth = 1082 ClientWidth = 1083
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
inline memUnit: TSynEdit inline memUnit: TSynEdit
AnchorSideLeft.Control = pnlPASUnit
AnchorSideTop.Control = pnlRadioOQL
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlPASUnit
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlPASUnit
AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 491 Height = 467
Top = 0 Top = 24
Width = 1082 Width = 1083
Align = alClient Anchors = [akTop, akLeft, akRight, akBottom]
Color = clWindow Color = clWindow
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = 13 Font.Height = 13
...@@ -12246,6 +12255,8 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -12246,6 +12255,8 @@ object OQLExplorerV2: TOQLExplorerV2
object SynGutterMarks1: TSynGutterMarks object SynGutterMarks1: TSynGutterMarks
Width = 24 Width = 24
MouseActions = <> MouseActions = <>
MaxExtraMarksColums = 0
Options = [sgmoDeDuplicateMarksOnOverflow]
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 13 Width = 13
...@@ -12278,6 +12289,38 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -12278,6 +12289,38 @@ object OQLExplorerV2: TOQLExplorerV2
end end
end end
end end
object pnlRadioOQL: TPanel
AnchorSideLeft.Control = memUnit
AnchorSideRight.Control = memUnit
AnchorSideRight.Side = asrBottom
Left = 0
Height = 24
Top = 0
Width = 1083
Anchors = [akTop, akLeft, akRight]
ClientHeight = 24
ClientWidth = 1083
ParentBackground = False
TabOrder = 1
object rdPascalClass: TRadioButton
Left = 8
Height = 17
Top = 0
Width = 48
Caption = 'Pascal'
TabOrder = 0
OnChange = rdPascalClassChange
end
object rdJavaClass: TRadioButton
Left = 64
Height = 17
Top = 0
Width = 41
Caption = 'Java'
TabOrder = 1
OnChange = rdJavaClassChange
end
end
end end
end end
end end
...@@ -12285,7 +12328,7 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -12285,7 +12328,7 @@ object OQLExplorerV2: TOQLExplorerV2
Left = 0 Left = 0
Height = 35 Height = 35
Top = 0 Top = 0
Width = 1090 Width = 1091
ButtonHeight = 24 ButtonHeight = 24
ButtonWidth = 24 ButtonWidth = 24
Caption = 'ToolBar1' Caption = 'ToolBar1'
...@@ -12494,7 +12537,27 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -12494,7 +12537,27 @@ object OQLExplorerV2: TOQLExplorerV2
CompilerMode = pcmObjFPC CompilerMode = pcmObjFPC
NestedComments = True NestedComments = True
TypeHelpers = False TypeHelpers = False
StringMultilineMode = []
Left = 1002 Left = 1002
Top = 12 Top = 12
end end
object TaskDialog1: TTaskDialog
Buttons = <>
Caption = 'Export'
RadioButtons = <
item
Caption = 'Pascal'
end
item
Caption = 'Java'
end
item
Caption = 'Nenhum'
Default = True
end>
QueryItemIndex = 0
Text = 'Escolha a linguagem para poder exportar a classe OQL'
Title = 'Exportar classe OQL'
Left = 624
end
end end
EvoUMLPlugin/src/ituOQLExplorerV2.pas
View file @ 5f660be4
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