Skip to content

Commit

Permalink
Cleanup
Browse files Browse the repository at this point in the history
  • Loading branch information
@ollydev
ollydev committed Jul 24, 2023
1 parent c8479db commit 2b7b6c2
Show file tree
Hide file tree
Showing 9 changed files with 17 additions and 542 deletions.
1 change: 0 additions & 1 deletion Source/Simba.lpi
View file
Original file line number Diff line number Diff line change
Expand Up @@ -476,7 +476,6 @@
<Unit23>
<Filename Value="finders/simba.finder_dtm.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="simba.finder_dtm"/>
</Unit23>
<Unit24>
<Filename Value="script/imports/simba/simba.import_tpa.pas"/>
Expand Down
105 changes: 4 additions & 101 deletions Source/script/imports/lcl/simba.import_lcl_comctrls.pas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -81,16 +81,6 @@ procedure _LapeCustomProgressBar_Min_Write(const Params: PParamArray); LAPE_WRAP
PCustomProgressBar(Params^[0])^.Min := PInteger(Params^[1])^;
end;

procedure _LapeCustomProgressBar_Orientation_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PProgressBarOrientation(Result)^ := PCustomProgressBar(Params^[0])^.Orientation;
end;

procedure _LapeCustomProgressBar_Orientation_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
begin
PCustomProgressBar(Params^[0])^.Orientation := PProgressBarOrientation(Params^[1])^;
end;

procedure _LapeCustomProgressBar_Position_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PInteger(Result)^ := PCustomProgressBar(Params^[0])^.Position;
Expand Down Expand Up @@ -121,16 +111,6 @@ procedure _LapeCustomProgressBar_Step_Write(const Params: PParamArray); LAPE_WRA
PCustomProgressBar(Params^[0])^.Step := PInteger(Params^[1])^;
end;

procedure _LapeCustomProgressBar_Style_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PProgressBarStyle(Result)^ := PCustomProgressBar(Params^[0])^.Style;
end;

procedure _LapeCustomProgressBar_Style_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
begin
PCustomProgressBar(Params^[0])^.Style := PProgressBarStyle(Params^[1])^;
end;

procedure _LapeCustomProgressBar_BarShowText_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
Pboolean(Result)^ := PCustomProgressBar(Params^[0])^.BarShowText;
Expand Down Expand Up @@ -256,16 +236,6 @@ procedure _LapeCustomTrackBar_Reversed_Write(const Params: PParamArray); LAPE_WR
PCustomTrackBar(Params^[0])^.Reversed := PBoolean(Params^[1])^;
end;

procedure _LapeCustomTrackBar_ScalePos_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PTrackBarScalePos(Result)^ := PCustomTrackBar(Params^[0])^.ScalePos;
end;

procedure _LapeCustomTrackBar_ScalePos_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
begin
PCustomTrackBar(Params^[0])^.ScalePos := PTrackBarScalePos(Params^[1])^;
end;

procedure _LapeCustomTrackBar_SelEnd_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PInteger(Result)^ := PCustomTrackBar(Params^[0])^.SelEnd;
Expand Down Expand Up @@ -516,16 +486,6 @@ procedure _LapeCustomTabControl_CanChangePageIndex(const Params: PParamArray; co
Pboolean(Result)^ := PCustomTabControl(Params^[0])^.CanChangePageIndex();
end;

procedure _LapeCustomTabControl_GetMinimumTabWidth(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PInteger(Result)^ := PCustomTabControl(Params^[0])^.GetMinimumTabWidth();
end;

procedure _LapeCustomTabControl_GetMinimumTabHeight(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PInteger(Result)^ := PCustomTabControl(Params^[0])^.GetMinimumTabHeight();
end;

procedure _LapeCustomTabControl_TabToPageIndex(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PInteger(Result)^ := PCustomTabControl(Params^[0])^.TabToPageIndex(PInteger(Params^[1])^);
Expand All @@ -536,16 +496,6 @@ procedure _LapeCustomTabControl_PageToTabIndex(const Params: PParamArray; const
PInteger(Result)^ := PCustomTabControl(Params^[0])^.PageToTabIndex(PInteger(Params^[1])^);
end;

procedure _LapeCustomTabControl_MultiLine_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PBoolean(Result)^ := PCustomTabControl(Params^[0])^.MultiLine;
end;

procedure _LapeCustomTabControl_MultiLine_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
begin
PCustomTabControl(Params^[0])^.MultiLine := PBoolean(Params^[1])^;
end;

procedure _LapeCustomTabControl_OnChanging_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PTabChangingEvent(Result)^ := PCustomTabControl(Params^[0])^.OnChanging;
Expand All @@ -556,16 +506,6 @@ procedure _LapeCustomTabControl_OnChanging_Write(const Params: PParamArray); LAP
PCustomTabControl(Params^[0])^.OnChanging := PTabChangingEvent(Params^[1])^;
end;

procedure _LapeCustomTabControl_Options_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PTabControlOptions(Result)^ := PCustomTabControl(Params^[0])^.Options;
end;

procedure _LapeCustomTabControl_Options_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
begin
PCustomTabControl(Params^[0])^.Options := PTabControlOptions(Params^[1])^;
end;

procedure _LapeCustomTabControl_Page_Index_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PCustomPage(Result)^ := PCustomTabControl(Params^[0])^.Page[PInteger(Params^[1])^];
Expand Down Expand Up @@ -706,26 +646,6 @@ procedure _LapeStatusPanel_Alignment_Write(const Params: PParamArray); LAPE_WRAP
PStatusPanel(Params^[0])^.Alignment := PAlignment(Params^[1])^;
end;

procedure _LapeStatusPanel_Bevel_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PStatusPanelBevel(Result)^ := PStatusPanel(Params^[0])^.Bevel;
end;

procedure _LapeStatusPanel_Bevel_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
begin
PStatusPanel(Params^[0])^.Bevel := PStatusPanelBevel(Params^[1])^;
end;

procedure _LapeStatusPanel_Style_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PStatusPanelStyle(Result)^ := PStatusPanel(Params^[0])^.Style;
end;

procedure _LapeStatusPanel_Style_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
begin
PStatusPanel(Params^[0])^.Style := PStatusPanelStyle(Params^[1])^;
end;

procedure _LapeStatusPanel_Text_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
begin
PString(Result)^ := PStatusPanel(Params^[0])^.Text;
Expand Down Expand Up @@ -870,34 +790,22 @@ procedure ImportLCLComCtrls(Compiler: TSimbaScript_Compiler);
begin
with Compiler do
begin
addGlobalType('(pbHorizontal, pbVertical, pbRightToLeft, pbTopDown)', 'TProgressBarOrientation');
addGlobalType('(pbstNormal, pbstMarquee)', 'TProgressBarStyle');
addGlobalType('(trHorizontal, trVertical)', 'TTrackBarOrientation');
addGlobalType('(tmBottomRight, tmTopLeft, tmBoth)', 'TTickMark');
addGlobalType('(tsNone, tsAuto, tsManual)', 'TTickStyle');
addGlobalType('(trLeft, trRight, trTop, trBottom)', 'TTrackBarScalePos');
addGlobalType('procedure(Sender: TObject; Index: Integer) of object', 'TCheckListClicked', FFI_DEFAULT_ABI);
addGlobalType('procedure(Sender: TObject; var AllowChange: Boolean) of object', 'TTabChangingEvent', FFI_DEFAULT_ABI);
addGlobalType('(tsTabs, tsButtons, tsFlatButtons)', 'TTabStyle');
addGlobalType('(tpTop, tpBottom, tpLeft, tpRight)', 'TTabPosition');
addGlobalType('(nboShowCloseButtons, nboMultiLine, nboHidePageListPopup, nboKeyboardTabSwitch, nboShowAddTabButton)', 'TCTabControlOption');
addGlobalType('set of TCTabControlOption', 'TCTabControlOptions');
addGlobalType('(ppText, ppBorder, ppWidth)', 'TPanelPart');
addGlobalType('set of TPanelPart', 'TPanelParts');
addGlobalType('(psText, psOwnerDraw)', 'TStatusPanelStyle');
addGlobalType('(pbNone, pbLowered, pbRaised)', 'TStatusPanelBevel');
addGlobalType('(trHorizontal, trVertical)', 'TTrackBarOrientation');

addClass('TCustomProgressBar', 'TWinControl');
addGlobalFunc('procedure TCustomProgressBar.Init(AOwner: TComponent); override', @_LapeCustomProgressBar_Init);
addGlobalFunc('procedure TCustomProgressBar.StepIt;', @_LapeCustomProgressBar_StepIt);
addGlobalFunc('procedure TCustomProgressBar.StepBy(Delta: Integer);', @_LapeCustomProgressBar_StepBy);
addClassVar('TCustomProgressBar', 'Max', 'Integer', @_LapeCustomProgressBar_Max_Read, @_LapeCustomProgressBar_Max_Write);
addClassVar('TCustomProgressBar', 'Min', 'Integer', @_LapeCustomProgressBar_Min_Read, @_LapeCustomProgressBar_Min_Write);
addClassVar('TCustomProgressBar', 'Orientation', 'TProgressBarOrientation', @_LapeCustomProgressBar_Orientation_Read, @_LapeCustomProgressBar_Orientation_Write);
addClassVar('TCustomProgressBar', 'Position', 'Integer', @_LapeCustomProgressBar_Position_Read, @_LapeCustomProgressBar_Position_Write);
addClassVar('TCustomProgressBar', 'Smooth', 'boolean', @_LapeCustomProgressBar_Smooth_Read, @_LapeCustomProgressBar_Smooth_Write);
addClassVar('TCustomProgressBar', 'Step', 'Integer', @_LapeCustomProgressBar_Step_Read, @_LapeCustomProgressBar_Step_Write);
addClassVar('TCustomProgressBar', 'Style', 'TProgressBarStyle', @_LapeCustomProgressBar_Style_Read, @_LapeCustomProgressBar_Style_Write);
addClassVar('TCustomProgressBar', 'BarShowText', 'boolean', @_LapeCustomProgressBar_BarShowText_Read, @_LapeCustomProgressBar_BarShowText_Write);

addClass('TProgressBar', 'TCustomProgressBar');
Expand All @@ -915,7 +823,6 @@ procedure ImportLCLComCtrls(Compiler: TSimbaScript_Compiler);
addClassVar('TCustomTrackBar', 'PageSize', 'Integer', @_LapeCustomTrackBar_PageSize_Read, @_LapeCustomTrackBar_PageSize_Write);
addClassVar('TCustomTrackBar', 'Position', 'Integer', @_LapeCustomTrackBar_Position_Read, @_LapeCustomTrackBar_Position_Write);
addClassVar('TCustomTrackBar', 'Reversed', 'Boolean', @_LapeCustomTrackBar_Reversed_Read, @_LapeCustomTrackBar_Reversed_Write);
addClassVar('TCustomTrackBar', 'ScalePos', 'TTrackBarScalePos', @_LapeCustomTrackBar_ScalePos_Read, @_LapeCustomTrackBar_ScalePos_Write);
addClassVar('TCustomTrackBar', 'SelEnd', 'Integer', @_LapeCustomTrackBar_SelEnd_Read, @_LapeCustomTrackBar_SelEnd_Write);
addClassVar('TCustomTrackBar', 'SelStart', 'Integer', @_LapeCustomTrackBar_SelStart_Read, @_LapeCustomTrackBar_SelStart_Write);
addClassVar('TCustomTrackBar', 'ShowSelRange', 'Boolean', @_LapeCustomTrackBar_ShowSelRange_Read, @_LapeCustomTrackBar_ShowSelRange_Write);
Expand Down Expand Up @@ -953,10 +860,8 @@ procedure ImportLCLComCtrls(Compiler: TSimbaScript_Compiler);
addGlobalFunc('function TCustomTabControl.GetImageIndex(ThePageIndex: Integer): Integer;', @_LapeCustomTabControl_GetImageIndex);
addGlobalFunc('function TCustomTabControl.CustomPage(Index: integer): TCustomPage;', @_LapeCustomTabControl_CustomPage);
addGlobalFunc('function TCustomTabControl.TabToPageIndex(AIndex: integer): integer;', @_LapeCustomTabControl_TabToPageIndex);
addGlobalFunc('function TCustomTabControl.PageToTabIndex(AIndex: integer): integer;', @_LapeCustomTabControl_PageToTabIndex);;
addClassVar('TCustomTabControl', 'MultiLine', 'Boolean', @_LapeCustomTabControl_MultiLine_Read, @_LapeCustomTabControl_MultiLine_Write);
addGlobalFunc('function TCustomTabControl.PageToTabIndex(AIndex: integer): integer;', @_LapeCustomTabControl_PageToTabIndex);
addClassVar('TCustomTabControl', 'OnChanging', 'TTabChangingEvent', @_LapeCustomTabControl_OnChanging_Read, @_LapeCustomTabControl_OnChanging_Write);
addClassVar('TCustomTabControl', 'Options', 'TCTabControlOptions', @_LapeCustomTabControl_Options_Read, @_LapeCustomTabControl_Options_Write);
addClassVar('TCustomTabControl', 'Page', 'TCustomPage', @_LapeCustomTabControl_Page_Index_Read);
addClassVar('TCustomTabControl', 'PageCount', 'integer', @_LapeCustomTabControl_PageCount_Read);
addClassVar('TCustomTabControl', 'PageIndex', 'Integer', @_LapeCustomTabControl_PageIndex_Read, @_LapeCustomTabControl_PageIndex_Write);
Expand All @@ -982,9 +887,7 @@ procedure ImportLCLComCtrls(Compiler: TSimbaScript_Compiler);
addClass('TStatusPanel');
addGlobalFunc('function TStatusPanel.StatusBar: TStatusBar;', @_LapeStatusPanel_StatusBar);
addClassVar('TStatusPanel', 'Alignment', 'TAlignment', @_LapeStatusPanel_Alignment_Read, @_LapeStatusPanel_Alignment_Write);
addClassVar('TStatusPanel', 'Bevel', 'TStatusPanelBevel', @_LapeStatusPanel_Bevel_Read, @_LapeStatusPanel_Bevel_Write);
addClassVar('TStatusPanel', 'Style', 'TStatusPanelStyle', @_LapeStatusPanel_Style_Read, @_LapeStatusPanel_Style_Write);
addClassVar('TStatusPanel', 'Text', 'TCaption', @_LapeStatusPanel_Text_Read, @_LapeStatusPanel_Text_Write);
addClassVar('TStatusPanel', 'Text', 'String', @_LapeStatusPanel_Text_Read, @_LapeStatusPanel_Text_Write);
addClassVar('TStatusPanel', 'Width', 'Integer', @_LapeStatusPanel_Width_Read, @_LapeStatusPanel_Width_Write);

addClass('TStatusPanels');
Expand All @@ -997,7 +900,7 @@ procedure ImportLCLComCtrls(Compiler: TSimbaScript_Compiler);
addClassVar('TStatusBar', 'Canvas', 'TCanvas', @_LapeStatusBar_Canvas_Read);
addClassVar('TStatusBar', 'AutoHint', 'Boolean', @_LapeStatusBar_AutoHint_Read, @_LapeStatusBar_AutoHint_Write);
addClassVar('TStatusBar', 'Panels', 'TStatusPanels', @_LapeStatusBar_Panels_Read, @_LapeStatusBar_Panels_Write);
addClassVar('TStatusBar', 'SimpleText', 'TCaption', @_LapeStatusBar_SimpleText_Read, @_LapeStatusBar_SimpleText_Write);
addClassVar('TStatusBar', 'SimpleText', 'String', @_LapeStatusBar_SimpleText_Read, @_LapeStatusBar_SimpleText_Write);
addClassVar('TStatusBar', 'SimplePanel', 'Boolean', @_LapeStatusBar_SimplePanel_Read, @_LapeStatusBar_SimplePanel_Write);
addClassVar('TStatusBar', 'SizeGrip', 'Boolean', @_LapeStatusBar_SizeGrip_Read, @_LapeStatusBar_SizeGrip_Write);
addClassVar('TStatusBar', 'OnHint', 'TNotifyEvent', @_LapeStatusBar_OnHint_Read, @_LapeStatusBar_OnHint_Write);
Expand Down
Loading

0 comments on commit 2b7b6c2

Please sign in to comment.