remove (scoped) enum element prefixes in lcl imports

Author: ollydev

Source/script/imports/lcl/simba.import_lcl_controls.pas

@@ -893,7 +893,7 @@ procedure ImportLCLControls(Script: TSimbaScript);
     addGlobalType('enum(Top, Left, Right, Bottom)', 'ELazAnchorKind');
     addGlobalType('set of ELazAnchorKind', 'ELazAnchors');
 
-    addGlobalType('enum(asrTop, asrBottom, asrCenter)', 'ELazAnchorSideReference');
+    addGlobalType('enum(Top, Bottom, Center)', 'ELazAnchorSideReference');
     addGlobalType('procedure(Sender: TLazObject; var Key: Int16; Shift: ELazShiftStates) of object', 'TLazKeyEvent', FFI_DEFAULT_ABI);
     addGlobalType('procedure(Sender: TLazObject; var Key: Char) of object', 'TLazKeyPressEvent', FFI_DEFAULT_ABI);
     addGlobalType('procedure(Sender: TLazObject; Button: ELazMouseButton; Shift: ELazShiftStates; X, Y: Integer) of object', 'TLazMouseEvent', FFI_DEFAULT_ABI);

Source/script/imports/lcl/simba.import_lcl_graphics.pas

@@ -762,16 +762,16 @@ procedure ImportLCLGraphics(Script: TSimbaScript);
 begin
   with Script.Compiler do
   begin
-    addGlobalType('record Left, Top ,Right, Bottom: Integer; end', 'TLazRect');
-    addGlobalType('enum(fqDefault, fqDraft, fqProof, fqNonAntialiased, fqAntialiased, fqCleartype, fqCleartypeNatural)', 'ELazFontQuality');
-    addGlobalType('set of enum(fsBold, fsItalic, fsStrikeOut, fsUnderline)', 'ELazFontStyles');
-    addGlobalType('enum(fpDefault, fpVariable, fpFixed)', 'ELazFontPitch');
-    addGlobalType('enum(psSolid, psDash, psDot, psDashDot, psDashDotDot, psInsideFrame, psPattern, psClear)', 'ELazPenStyle');
-    addGlobalType('enum(pmBlack, pmWhite, pmNop, pmNot, pmCopy, pmNotCopy, pmMergePenNot, pmMaskPenNot, pmMergeNotPen, pmMaskNotPen, pmMerge, pmNotMerge, pmMask, pmNotMask, pmXor, pmNotXor)', 'ELazPenMode');
-    addGlobalType('enum(bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross, bsImage, bsPattern)', 'ELazBrushStyle');
-    addGlobalType('enum(tmAuto, tmFixed)', 'ELazTransparentMode');
-    addGlobalType('enum(amDontCare, amOn, amOff)', 'ELazAntialiasingMode');
-    addGlobalType('enum(tlTop, tlCenter, tlBottom)', 'ELazTextLayout');
+    addGlobalType('record Left, Top, Right, Bottom: Integer; end', 'TLazRect');
+    addGlobalType('enum(Default, Draft, Proof, NonAntialiased, Antialiased, Cleartype, CleartypeNatural)', 'ELazFontQuality');
+    addGlobalType('set of enum(Bold, Italic, StrikeOut, Underline)', 'ELazFontStyles');
+    addGlobalType('enum(Default, Variable, Fixed)', 'ELazFontPitch');
+    addGlobalType('enum(Solid, Dash, Dot, DashDot, DashDotDot, InsideFrame, Pattern, Clear)', 'ELazPenStyle');
+    addGlobalType('enum(Black, White, Nop, Nott, Copy, NotCopy, MergePenNot, MaskPenNot, MergeNotPen, MaskNotPen, Merge, NotMerge, Mask, NotMask, Xorr, NotXor)', 'ELazPenMode');
+    addGlobalType('enum(Solid, Clear, Horizontal, Vertical, FDiagonal, BDiagonal, Cross, DiagCross, Image, Pattern)', 'ELazBrushStyle');
+    addGlobalType('enum(Auto, Fixed)', 'ELazTransparentMode');
+    addGlobalType('enum(DontCare, On, Off)', 'ELazAntialiasingMode');
+    addGlobalType('enum(Top, Center, Bottom)', 'ELazTextLayout');
 
     addClass('TLazGraphicsObject', 'TLazObject', TGraphicsObject);
     addProperty('TLazGraphicsObject', 'OnChanging', 'TLazNotifyEvent', @_LapeGraphicsObject_OnChanging_Read, @_LapeGraphicsObject_OnChanging_Write);

Source/script/imports/lcl/simba.import_lcl_stdctrls.pas

@@ -1141,13 +1141,13 @@ procedure ImportLCLStdCtrls(Script: TSimbaScript);
 begin
   with Script.Compiler do
   begin
-    addGlobalType('enum(ssNone, ssHorizontal, ssVertical, ssBoth, ssAutoHorizontal, ssAutoVertical, ssAutoBoth)', 'ELazScrollStyle');
-    addGlobalType('set of enum(odSelected, odGrayed, odDisabled, odChecked, odFocused, odDefault, odHotLight, odInactive, odNoAccel, odNoFocusRect, odReserved1, odReserved2, odComboBoxEdit, odBackgroundPainted)', 'ELazOwnerDrawStates');
-    addGlobalType('enum(csDropDown, csSimple, csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable, csOwnerDrawEditableFixed, csOwnerDrawEditableVariable)', 'ELazComboBoxStyle');
-    addGlobalType('enum(lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable, lbVirtual)', 'ELazListBoxStyle');
-    addGlobalType('enum(taLeftJustify, taRightJustify, taCenter)', 'ELazAlignment');
-    addGlobalType('enum(cbUnchecked, cbChecked, cbGrayed)', 'ELazCheckBoxState');
-    addGlobalType('enum(blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom)', 'ELazButtonLayout');
+    addGlobalType('enum(None, Horizontal, Vertical, Both, AutoHorizontal, AutoVertical, AutoBoth)', 'ELazScrollStyle');
+    addGlobalType('set of enum(Selected, Grayed, Disabled, Checked, Focused, Default, HotLight, Inactive, NoAccel, NoFocusRect, Reserved1, Reserved2, ComboBoxEdit, BackgroundPainted)', 'ELazOwnerDrawStates');
+    addGlobalType('enum(DropDown, Simple, DropDownList, OwnerDrawFixed, OwnerDrawVariable, OwnerDrawEditableFixed, OwnerDrawEditableVariable)', 'ELazComboBoxStyle');
+    addGlobalType('enum(Standard, OwnerDrawFixed, OwnerDrawVariable, Virtual)', 'ELazListBoxStyle');
+    addGlobalType('enum(LeftJustify, RightJustify, Center)', 'ELazAlignment');
+    addGlobalType('enum(Unchecked, Checked, Grayed)', 'ELazCheckBoxState');
+    addGlobalType('enum(GlyphLeft, GlyphRight, GlyphTop, GlyphBottom)', 'ELazButtonLayout');
 
     addGlobalType('procedure(Control: TLazWinControl; Index: Integer; ARect: TLazRect; State: ELazOwnerDrawStates) of object', 'TLazDrawItemEvent', FFI_DEFAULT_ABI);
     addGlobalType('procedure(Control: TLazWinControl; Index: Integer; var AHeight: Integer) of object', 'TLazMeasureItemEvent', FFI_DEFAULT_ABI);

Source/script/imports/lcl/simba.import_lcl_system.pas

@@ -608,7 +608,7 @@ procedure ImportLCLSystem(Script: TSimbaScript);
     addGlobalType('type UInt32', 'TLazHandle');
     {$ENDIF}
 
-    addGlobalType('enum(soBeginning, soCurrent, soEnd)', 'ELazSeekOrigin');
+    addGlobalType('enum(Beginning, Current, Ending)', 'ELazSeekOrigin');
     addGlobalType('procedure(Sender: TLazObject) of object', 'TLazNotifyEvent', FFI_DEFAULT_ABI);
 
     addClass('TLazComponent', 'TLazObject', TComponent);