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

EvoUMLPlugin/src/CurioAddIn.lpi

@@ -459,7 +459,7 @@
     </Other>
   </CompilerOptions>
   <Debugging>
-    <Exceptions Count="3">
+    <Exceptions Count="4">
       <Item1>
         <Name Value="EAbort"/>
       </Item1>
@@ -469,6 +469,9 @@
       <Item3>
         <Name Value="EFOpenError"/>
       </Item3>
+      <Item4>
+        <Name Value="Exception"/>
+      </Item4>
     </Exceptions>
   </Debugging>
 </CONFIG>

EvoUMLPlugin/src/ituOQLExplorerV2.dfm

@@ -2,10 +2,10 @@ object OQLExplorerV2: TOQLExplorerV2
   Left = 534
   Height = 552
   Top = 331
-  Width = 1090
+  Width = 1091
   Caption = 'Curio OQL Explorer'
   ClientHeight = 552
-  ClientWidth = 1090
+  ClientWidth = 1091
   Color = clBtnFace
   Font.Color = clWindowText
   Font.Height = -11
@@ -11577,36 +11577,35 @@ object OQLExplorerV2: TOQLExplorerV2
     001FF80000000000001FF80000000000001FFFFFFFFFFFFFFFFFFFFFFFFFFFFF
     FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
   }
+  Position = poScreenCenter
+  ShowInTaskBar = stAlways
   OnClose = FormClose
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   OnResize = FormResize
   OnShow = FormShow
-  Position = poScreenCenter
-  ShowInTaskBar = stAlways
-  LCLVersion = '2.2.4.0'
   object pcCXOQL: TPageControl
     Left = 0
     Height = 517
     Top = 35
-    Width = 1090
-    ActivePage = tsCXOQL
+    Width = 1091
+    ActivePage = tsPASunit
     Align = alClient
-    TabIndex = 0
+    TabIndex = 1
     TabOrder = 0
     object tsCXOQL: TTabSheet
       Caption = 'CXOQL'
       ClientHeight = 491
-      ClientWidth = 1082
+      ClientWidth = 1083
       object pnlCXOQL: TPanel
         Left = 0
         Height = 491
         Top = 0
-        Width = 1082
+        Width = 1083
         Align = alClient
         BevelOuter = bvNone
         ClientHeight = 491
-        ClientWidth = 1082
+        ClientWidth = 1083
         ParentBackground = False
         TabOrder = 0
         object splVertical: TSplitter
@@ -11615,8 +11614,8 @@ object OQLExplorerV2: TOQLExplorerV2
           Top = 0
           Width = 4
           Color = clBtnFace
-          OnCanResize = splVerticalCanResize
           ParentColor = False
+          OnCanResize = splVerticalCanResize
         end
         object pnlOQLList: TPanel
           Left = 0
@@ -11627,6 +11626,7 @@ object OQLExplorerV2: TOQLExplorerV2
           BevelOuter = bvNone
           ClientHeight = 491
           ClientWidth = 274
+          ParentBackground = False
           TabOrder = 0
           object pnlList: TPanel
             Left = 0
@@ -11637,6 +11637,7 @@ object OQLExplorerV2: TOQLExplorerV2
             BevelOuter = bvNone
             ClientHeight = 465
             ClientWidth = 274
+            ParentBackground = False
             TabOrder = 0
             object lvOQLList: TListView
               Left = 0
@@ -11696,17 +11697,18 @@ object OQLExplorerV2: TOQLExplorerV2
           Left = 278
           Height = 491
           Top = 0
-          Width = 804
+          Width = 805
           Align = alClient
           BevelOuter = bvNone
           ClientHeight = 491
-          ClientWidth = 804
+          ClientWidth = 805
+          ParentBackground = False
           TabOrder = 1
           object pnlOQLExplorer: TPanel
             Left = 0
             Height = 418
             Top = 73
-            Width = 804
+            Width = 805
             Align = alClient
             BevelOuter = bvNone
             ParentBackground = False
@@ -11716,11 +11718,11 @@ object OQLExplorerV2: TOQLExplorerV2
             Left = 0
             Height = 73
             Top = 0
-            Width = 804
+            Width = 805
             Align = alTop
             BevelOuter = bvNone
             ClientHeight = 73
-            ClientWidth = 804
+            ClientWidth = 805
             ParentBackground = False
             TabOrder = 0
             object labelName: TLabel
@@ -11760,25 +11762,32 @@ object OQLExplorerV2: TOQLExplorerV2
     object tsPASunit: TTabSheet
       Caption = 'Unit'
       ClientHeight = 491
-      ClientWidth = 1082
+      ClientWidth = 1083
       ImageIndex = 1
       object pnlPASUnit: TPanel
         Left = 0
         Height = 491
         Top = 0
-        Width = 1082
+        Width = 1083
         Align = alClient
         BevelOuter = bvNone
         ClientHeight = 491
-        ClientWidth = 1082
+        ClientWidth = 1083
         ParentBackground = False
         TabOrder = 0
         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
-          Height = 491
-          Top = 0
-          Width = 1082
-          Align = alClient
+          Height = 467
+          Top = 24
+          Width = 1083
+          Anchors = [akTop, akLeft, akRight, akBottom]
           Color = clWindow
           Font.Color = clWindowText
           Font.Height = 13
@@ -12246,6 +12255,8 @@ object OQLExplorerV2: TOQLExplorerV2
             object SynGutterMarks1: TSynGutterMarks
               Width = 24
               MouseActions = <>
+              MaxExtraMarksColums = 0
+              Options = [sgmoDeDuplicateMarksOnOverflow]
             end
             object SynGutterLineNumber1: TSynGutterLineNumber
               Width = 13
@@ -12278,6 +12289,38 @@ object OQLExplorerV2: TOQLExplorerV2
             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
@@ -12285,7 +12328,7 @@ object OQLExplorerV2: TOQLExplorerV2
     Left = 0
     Height = 35
     Top = 0
-    Width = 1090
+    Width = 1091
     ButtonHeight = 24
     ButtonWidth = 24
     Caption = 'ToolBar1'
@@ -12494,7 +12537,27 @@ object OQLExplorerV2: TOQLExplorerV2
     CompilerMode = pcmObjFPC
     NestedComments = True
     TypeHelpers = False
+    StringMultilineMode = []
     Left = 1002
     Top = 12
   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