mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-18 13:32:19 -05:00
841 lines
38 KiB
ObjectPascal
841 lines
38 KiB
ObjectPascal
unit uPSI_ComCtrls;
|
|
{$I PascalScript.inc}
|
|
{
|
|
This file has been generated by UnitParser v0.7, written by M. Knight
|
|
and updated by NP. v/d Spek and George Birbilis.
|
|
Source Code from Carlo Kok has been used to implement various sections of
|
|
UnitParser. Components of ROPS are used in the construction of UnitParser,
|
|
code implementing the class wrapper is taken from Carlo Kok's conv utility
|
|
|
|
}
|
|
interface
|
|
|
|
uses
|
|
SysUtils
|
|
,Classes
|
|
,uPSComponent
|
|
,uPSRuntime
|
|
,uPSCompiler
|
|
;
|
|
|
|
{ compile-time registration functions }
|
|
procedure SIRegister_TTabControl(CL: TPSPascalCompiler);
|
|
procedure SIRegister_TCustomTabControl(CL: TPSPascalCompiler);
|
|
procedure SIRegister_TTabControlNoteBookStrings(CL: TPSPascalCompiler);
|
|
procedure SIRegister_TTabControlStrings(CL: TPSPascalCompiler);
|
|
procedure SIRegister_TPageControl(CL: TPSPascalCompiler);
|
|
procedure SIRegister_TTabSheet(CL: TPSPascalCompiler);
|
|
procedure SIRegister_TStatusBar(CL: TPSPascalCompiler);
|
|
procedure SIRegister_TStatusPanels(CL: TPSPascalCompiler);
|
|
procedure SIRegister_TStatusPanel(CL: TPSPascalCompiler);
|
|
procedure SIRegister_ComCtrls(CL: TPSPascalCompiler);
|
|
|
|
{ run-time registration functions }
|
|
procedure RIRegister_ComCtrls_Routines(S: TPSExec);
|
|
procedure RIRegister_TTabControl(CL: TPSRuntimeClassImporter);
|
|
procedure RIRegister_TCustomTabControl(CL: TPSRuntimeClassImporter);
|
|
procedure RIRegister_TTabControlNoteBookStrings(CL: TPSRuntimeClassImporter);
|
|
procedure RIRegister_TTabControlStrings(CL: TPSRuntimeClassImporter);
|
|
procedure RIRegister_TPageControl(CL: TPSRuntimeClassImporter);
|
|
procedure RIRegister_TTabSheet(CL: TPSRuntimeClassImporter);
|
|
procedure RIRegister_TStatusBar(CL: TPSRuntimeClassImporter);
|
|
procedure RIRegister_TStatusPanels(CL: TPSRuntimeClassImporter);
|
|
procedure RIRegister_TStatusPanel(CL: TPSRuntimeClassImporter);
|
|
procedure RIRegister_ComCtrls(CL: TPSRuntimeClassImporter);
|
|
|
|
implementation
|
|
|
|
|
|
uses
|
|
LResources
|
|
,LCLIntf
|
|
,LCLType
|
|
,FileUtil
|
|
,LCLProc
|
|
,AvgLvlTree
|
|
,ImgList
|
|
,ActnList
|
|
,GraphType
|
|
,Graphics
|
|
,Menus
|
|
,Controls
|
|
,Forms
|
|
,ExtCtrls
|
|
,Buttons
|
|
,Themes
|
|
,ComCtrls
|
|
,CheckLst
|
|
,StdCtrls
|
|
;
|
|
|
|
|
|
(* === compile-time registration functions === *)
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure SIRegister_TTabControl(CL: TPSPascalCompiler);
|
|
begin
|
|
//with RegClassS(CL,'TCustomTabControl', 'TTabControl') do
|
|
with CL.AddClassN(CL.FindClass('TCustomTabControl'),'TTabControl') do
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure SIRegister_TCustomTabControl(CL: TPSPascalCompiler);
|
|
begin
|
|
//with RegClassS(CL,'TCustomControl', 'TCustomTabControl') do
|
|
with CL.AddClassN(CL.FindClass('TCustomControl'),'TCustomTabControl') do
|
|
begin
|
|
RegisterMethod('Function IndexOfTabAt( X, Y : Integer) : Integer');
|
|
RegisterMethod('Function GetHitTestInfoAt( X, Y : Integer) : THitTests');
|
|
RegisterMethod('Function IndexOfTabWithCaption( const TabCaption : string) : Integer');
|
|
RegisterMethod('Function TabRect( Index : Integer) : TRect');
|
|
RegisterMethod('Function RowCount : Integer');
|
|
RegisterMethod('Procedure ScrollTabs( Delta : Integer)');
|
|
RegisterMethod('Procedure BeginUpdate');
|
|
RegisterMethod('Procedure EndUpdate');
|
|
RegisterMethod('Function IsUpdating : boolean');
|
|
RegisterProperty('TabIndex', 'Integer', iptrw);
|
|
RegisterProperty('Tabs', 'TStrings', iptrw);
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure SIRegister_TTabControlNoteBookStrings(CL: TPSPascalCompiler);
|
|
begin
|
|
//with RegClassS(CL,'TTabControlStrings', 'TTabControlNoteBookStrings') do
|
|
with CL.AddClassN(CL.FindClass('TTabControlStrings'),'TTabControlNoteBookStrings') do
|
|
begin
|
|
RegisterProperty('NoteBook', 'TNoteBook', iptr);
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure SIRegister_TTabControlStrings(CL: TPSPascalCompiler);
|
|
begin
|
|
//with RegClassS(CL,'TStrings', 'TTabControlStrings') do
|
|
with CL.AddClassN(CL.FindClass('TStrings'),'TTabControlStrings') do
|
|
begin
|
|
RegisterMethod('Constructor Create( TheTabControl : TCustomTabControl)');
|
|
RegisterMethod('Function GetHitTestInfoAt( X, Y : Integer) : THitTests');
|
|
RegisterMethod('Function GetSize : integer');
|
|
RegisterMethod('Function IndexOfTabAt( X, Y : Integer) : Integer');
|
|
RegisterMethod('Function RowCount : Integer');
|
|
RegisterMethod('Function TabRect( Index : Integer) : TRect');
|
|
RegisterMethod('Procedure ImageListChange( Sender : TObject)');
|
|
RegisterMethod('Procedure ScrollTabs( Delta : Integer)');
|
|
RegisterMethod('Procedure TabControlBoundsChange');
|
|
RegisterMethod('Procedure UpdateTabImages');
|
|
RegisterMethod('Procedure BeginUpdate');
|
|
RegisterMethod('Procedure EndUpdate');
|
|
RegisterMethod('Function IsUpdating : boolean');
|
|
RegisterProperty('TabControl', 'TCustomTabControl', iptr);
|
|
RegisterProperty('TabIndex', 'integer', iptrw);
|
|
RegisterProperty('HotTrack', 'Boolean', iptrw);
|
|
RegisterProperty('Images', 'TCustomImageList', iptrw);
|
|
RegisterProperty('MultiLine', 'Boolean', iptrw);
|
|
RegisterProperty('MultiSelect', 'Boolean', iptrw);
|
|
RegisterProperty('OwnerDraw', 'Boolean', iptrw);
|
|
RegisterProperty('RaggedRight', 'Boolean', iptrw);
|
|
RegisterProperty('ScrollOpposite', 'Boolean', iptrw);
|
|
RegisterProperty('TabHeight', 'Smallint', iptrw);
|
|
RegisterProperty('TabWidth', 'Smallint', iptrw);
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure SIRegister_TPageControl(CL: TPSPascalCompiler);
|
|
begin
|
|
//with RegClassS(CL,'TCustomNotebook', 'TPageControl') do
|
|
with CL.AddClassN(CL.FindClass('TNoteBook'),'TPageControl') do
|
|
begin
|
|
RegisterMethod('Function FindNextPage( CurPage : TTabSheet; GoForward, CheckTabVisible : Boolean) : TTabSheet');
|
|
RegisterMethod('Procedure SelectNextPage( GoForward : Boolean)');
|
|
RegisterMethod('Procedure SelectNextPage( GoForward : Boolean; CheckTabVisible : Boolean)');
|
|
RegisterProperty('ActivePageIndex', 'Integer', iptrw);
|
|
RegisterProperty('Pages', 'TTabSheet Integer', iptr);
|
|
RegisterProperty('ActivePage', 'TTabSheet', iptrw);
|
|
RegisterProperty('TabIndex', 'Integer', iptrw);
|
|
RegisterProperty('OnChange', 'TNotifyEvent', iptrw);
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure SIRegister_TTabSheet(CL: TPSPascalCompiler);
|
|
begin
|
|
//with RegClassS(CL,'TCustomPage', 'TTabSheet') do
|
|
with CL.AddClassN(CL.FindClass('TPage'),'TTabSheet') do
|
|
begin
|
|
RegisterProperty('PageControl', 'TPageControl', iptrw);
|
|
RegisterProperty('TabIndex', 'Integer', iptr);
|
|
RegisterProperty('OnMouseDown','TMouseEvent',iptrw);
|
|
RegisterProperty('OnMouseMove','TMouseMoveEvent',iptrw);
|
|
RegisterProperty('OnMouseUp','TMouseEvent',iptrw);
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure SIRegister_TStatusBar(CL: TPSPascalCompiler);
|
|
begin
|
|
//with RegClassS(CL,'TWinControl', 'TStatusBar') do
|
|
with CL.AddClassN(CL.FindClass('TWinControl'),'TStatusBar') do
|
|
begin
|
|
RegisterMethod('Procedure InvalidatePanel( PanelIndex : integer; PanelParts : TPanelParts)');
|
|
RegisterMethod('Procedure BeginUpdate');
|
|
RegisterMethod('Procedure EndUpdate');
|
|
RegisterMethod('Function GetPanelIndexAt( X, Y : Integer) : Integer');
|
|
RegisterMethod('Function SizeGripEnabled : Boolean');
|
|
RegisterMethod('Function UpdatingStatusBar : boolean');
|
|
RegisterProperty('Canvas', 'TCanvas', iptr);
|
|
RegisterProperty('AutoHint', 'Boolean', iptrw);
|
|
RegisterProperty('Panels', 'TStatusPanels', iptrw);
|
|
RegisterProperty('SimpleText', 'String', iptrw);
|
|
RegisterProperty('SimplePanel', 'Boolean', iptrw);
|
|
RegisterProperty('SizeGrip', 'Boolean', iptrw);
|
|
RegisterProperty('OnDrawPanel', 'TDrawPanelEvent', iptrw);
|
|
RegisterProperty('OnHint', 'TNotifyEvent', iptrw);
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure SIRegister_TStatusPanels(CL: TPSPascalCompiler);
|
|
begin
|
|
//with RegClassS(CL,'TCollection', 'TStatusPanels') do
|
|
with CL.AddClassN(CL.FindClass('TCollection'),'TStatusPanels') do
|
|
begin
|
|
RegisterMethod('Constructor Create( AStatusBar : TStatusBar)');
|
|
RegisterMethod('Function Add : TStatusPanel');
|
|
RegisterProperty('Items', 'TStatusPanel Integer', iptrw);
|
|
SetDefaultPropery('Items');
|
|
RegisterProperty('StatusBar', 'TStatusBar', iptr);
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure SIRegister_TStatusPanel(CL: TPSPascalCompiler);
|
|
begin
|
|
//with RegClassS(CL,'TCollectionItem', 'TStatusPanel') do
|
|
with CL.AddClassN(CL.FindClass('TCollectionItem'),'TStatusPanel') do
|
|
begin
|
|
RegisterMethod('Function StatusBar : TStatusBar');
|
|
RegisterProperty('Alignment', 'TAlignment', iptrw);
|
|
RegisterProperty('Bevel', 'TStatusPanelBevel', iptrw);
|
|
RegisterProperty('Style', 'TStatusPanelStyle', iptrw);
|
|
RegisterProperty('Text', 'string', iptrw);
|
|
RegisterProperty('Width', 'Integer', iptrw);
|
|
end;
|
|
end;
|
|
(* === compile-time registration functions === *)
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure SIRegister_TCheckListBox(CL: TPSPascalCompiler);
|
|
begin
|
|
//with RegClassS(CL,'TCustomCheckListBox', 'TCheckListBox') do
|
|
with CL.AddClassN(CL.FindClass('TCustomCheckListBox'),'TCheckListBox') do
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure SIRegister_TCustomCheckListBox(CL: TPSPascalCompiler);
|
|
begin
|
|
//with RegClassS(CL,'TCustomListBox', 'TCustomCheckListBox') do
|
|
with CL.AddClassN(CL.FindClass('TCustomListBox'),'TCustomCheckListBox') do
|
|
begin
|
|
RegisterMethod('Procedure Toggle( AIndex : Integer)');
|
|
RegisterProperty('AllowGrayed', 'Boolean', iptrw);
|
|
RegisterProperty('Checked', 'Boolean Integer', iptrw);
|
|
RegisterProperty('ItemEnabled', 'Boolean Integer', iptrw);
|
|
RegisterProperty('State', 'TCheckBoxState Integer', iptrw);
|
|
RegisterProperty('Count', 'integer', iptr);
|
|
RegisterProperty('OnClickCheck', 'TNotifyEvent', iptrw);
|
|
RegisterProperty('OnItemClick', 'TCheckListClicked', iptrw);
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure SIRegister_CheckLst(CL: TPSPascalCompiler);
|
|
begin
|
|
CL.AddTypeS('TCheckListClicked', 'Procedure ( Sender : TObject; Index : integ'
|
|
+'er)');
|
|
SIRegister_TCustomCheckListBox(CL);
|
|
SIRegister_TCheckListBox(CL);
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure SIRegister_ComCtrls(CL: TPSPascalCompiler);
|
|
begin
|
|
CL.AddTypeS('THitTest', '( htAbove, htBelow, htNowhere, htOnItem, htOnButton,'
|
|
+' htOnIcon, htOnIndent, htOnLabel, htOnRight, htOnStateIcon, htToLeft, htTo'
|
|
+'Right )');
|
|
CL.AddTypeS('THitTests', 'set of THitTest');
|
|
CL.AddTypeS('TStatusPanelStyle', '( psText, psOwnerDraw )');
|
|
CL.AddTypeS('TStatusPanelBevel', '( pbNone, pbLowered, pbRaised )');
|
|
CL.AddClassN(CL.FindClass('TOBJECT'),'TStatusBar');
|
|
CL.AddTypeS('TPanelPart', '( ppText, ppBorder, ppWidth )');
|
|
CL.AddTypeS('TPanelParts', 'set of TPanelPart');
|
|
//CL.AddTypeS('TStatusPanelClass', 'class of TStatusPanel');
|
|
SIRegister_TStatusPanel(CL);
|
|
SIRegister_TStatusPanels(CL);
|
|
CL.AddTypeS('TDrawPanelEvent', 'Procedure ( StatusBar : TStatusBar; Panel : T'
|
|
+'StatusPanel; const Rect : TRect)');
|
|
SIRegister_TStatusBar(CL);
|
|
CL.AddClassN(CL.FindClass('TOBJECT'),'TPageControl');
|
|
CL.AddTypeS('TTabStyle', '( tsTabs, tsButtons, tsFlatButtons )');
|
|
SIRegister_TTabSheet(CL);
|
|
SIRegister_TPageControl(CL);
|
|
CL.AddClassN(CL.FindClass('TOBJECT'),'TCustomTabControl');
|
|
SIRegister_TTabControlStrings(CL);
|
|
SIRegister_TTabControlNoteBookStrings(CL);
|
|
CL.AddTypeS('TDrawTabEvent', 'Procedure ( Control : TCustomTabControl; TabInd'
|
|
+'ex : Integer; const Rect : TRect; Active : Boolean)');
|
|
SIRegister_TCustomTabControl(CL);
|
|
SIRegister_TTabControl(CL);
|
|
SIRegister_CheckLst(CL);
|
|
end;
|
|
|
|
(* === run-time registration functions === *)
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomTabControlTabs_W(Self: TCustomTabControl; const T: TStrings);
|
|
begin Self.Tabs := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomTabControlTabs_R(Self: TCustomTabControl; var T: TStrings);
|
|
begin T := Self.Tabs; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomTabControlTabIndex_W(Self: TCustomTabControl; const T: Integer);
|
|
begin Self.TabIndex := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomTabControlTabIndex_R(Self: TCustomTabControl; var T: Integer);
|
|
begin T := Self.TabIndex; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlNoteBookStringsNoteBook_R(Self: TTabControlNoteBookStrings; var T: TNoteBook);
|
|
begin T := TNoteBook(Self.NoteBook); end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsTabWidth_W(Self: TTabControlStrings; const T: Smallint);
|
|
begin Self.TabWidth := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsTabWidth_R(Self: TTabControlStrings; var T: Smallint);
|
|
begin T := Self.TabWidth; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsTabHeight_W(Self: TTabControlStrings; const T: Smallint);
|
|
begin Self.TabHeight := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsTabHeight_R(Self: TTabControlStrings; var T: Smallint);
|
|
begin T := Self.TabHeight; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsScrollOpposite_W(Self: TTabControlStrings; const T: Boolean);
|
|
begin Self.ScrollOpposite := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsScrollOpposite_R(Self: TTabControlStrings; var T: Boolean);
|
|
begin T := Self.ScrollOpposite; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsRaggedRight_W(Self: TTabControlStrings; const T: Boolean);
|
|
begin Self.RaggedRight := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsRaggedRight_R(Self: TTabControlStrings; var T: Boolean);
|
|
begin T := Self.RaggedRight; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsOwnerDraw_W(Self: TTabControlStrings; const T: Boolean);
|
|
begin Self.OwnerDraw := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsOwnerDraw_R(Self: TTabControlStrings; var T: Boolean);
|
|
begin T := Self.OwnerDraw; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsMultiSelect_W(Self: TTabControlStrings; const T: Boolean);
|
|
begin Self.MultiSelect := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsMultiSelect_R(Self: TTabControlStrings; var T: Boolean);
|
|
begin T := Self.MultiSelect; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsMultiLine_W(Self: TTabControlStrings; const T: Boolean);
|
|
begin Self.MultiLine := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsMultiLine_R(Self: TTabControlStrings; var T: Boolean);
|
|
begin T := Self.MultiLine; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsImages_W(Self: TTabControlStrings; const T: TCustomImageList);
|
|
begin Self.Images := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsImages_R(Self: TTabControlStrings; var T: TCustomImageList);
|
|
begin T := Self.Images; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsHotTrack_W(Self: TTabControlStrings; const T: Boolean);
|
|
begin Self.HotTrack := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsHotTrack_R(Self: TTabControlStrings; var T: Boolean);
|
|
begin T := Self.HotTrack; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsTabIndex_W(Self: TTabControlStrings; const T: integer);
|
|
begin Self.TabIndex := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsTabIndex_R(Self: TTabControlStrings; var T: integer);
|
|
begin T := Self.TabIndex; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabControlStringsTabControl_R(Self: TTabControlStrings; var T: TCustomTabControl);
|
|
begin T := Self.TabControl; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TPageControlOnChange_W(Self: TPageControl; const T: TNotifyEvent);
|
|
begin Self.OnChange := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TPageControlOnChange_R(Self: TPageControl; var T: TNotifyEvent);
|
|
begin T := Self.OnChange; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TPageControlTabIndex_W(Self: TPageControl; const T: Integer);
|
|
begin Self.TabIndex := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TPageControlTabIndex_R(Self: TPageControl; var T: Integer);
|
|
begin T := Self.TabIndex; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TPageControlActivePage_W(Self: TPageControl; const T: TTabSheet);
|
|
begin Self.ActivePage := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TPageControlActivePage_R(Self: TPageControl; var T: TTabSheet);
|
|
begin T := Self.ActivePage; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TPageControlPages_R(Self: TPageControl; var T: TTabSheet; const t1: Integer);
|
|
begin T := Self.Pages[t1]; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TPageControlActivePageIndex_W(Self: TPageControl; const T: Integer);
|
|
begin Self.ActivePageIndex := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TPageControlActivePageIndex_R(Self: TPageControl; var T: Integer);
|
|
begin T := Self.ActivePageIndex; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
{$IFNDEF FPC}
|
|
procedure TTabSheetTabIndex_W(Self: TTabSheet; const T: Integer);
|
|
begin Self.TabIndex := T; end;
|
|
{$ENDIF}
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabSheetTabIndex_R(Self: TTabSheet; var T: Integer);
|
|
begin T := Self.TabIndex; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabSheetPageControl_W(Self: TTabSheet; const T: TPageControl);
|
|
begin Self.PageControl := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TTabSheetPageControl_R(Self: TTabSheet; var T: TPageControl);
|
|
begin T := Self.PageControl; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarOnHint_W(Self: TStatusBar; const T: TNotifyEvent);
|
|
begin Self.OnHint := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarOnHint_R(Self: TStatusBar; var T: TNotifyEvent);
|
|
begin T := Self.OnHint; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarOnDrawPanel_W(Self: TStatusBar; const T: TDrawPanelEvent);
|
|
begin Self.OnDrawPanel := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarOnDrawPanel_R(Self: TStatusBar; var T: TDrawPanelEvent);
|
|
begin T := Self.OnDrawPanel; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarOnCreatePanelClass_W(Self: TStatusBar; const T: TSBCreatePanelClassEvent);
|
|
begin Self.OnCreatePanelClass := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarOnCreatePanelClass_R(Self: TStatusBar; var T: TSBCreatePanelClassEvent);
|
|
begin T := Self.OnCreatePanelClass; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarSizeGrip_W(Self: TStatusBar; const T: Boolean);
|
|
begin Self.SizeGrip := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarSizeGrip_R(Self: TStatusBar; var T: Boolean);
|
|
begin T := Self.SizeGrip; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarSimplePanel_W(Self: TStatusBar; const T: Boolean);
|
|
begin Self.SimplePanel := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarSimplePanel_R(Self: TStatusBar; var T: Boolean);
|
|
begin T := Self.SimplePanel; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarSimpleText_W(Self: TStatusBar; const T: String);
|
|
begin Self.SimpleText := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarSimpleText_R(Self: TStatusBar; var T: String);
|
|
begin T := Self.SimpleText; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarPanels_W(Self: TStatusBar; const T: TStatusPanels);
|
|
begin Self.Panels := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarPanels_R(Self: TStatusBar; var T: TStatusPanels);
|
|
begin T := Self.Panels; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarAutoHint_W(Self: TStatusBar; const T: Boolean);
|
|
begin Self.AutoHint := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarAutoHint_R(Self: TStatusBar; var T: Boolean);
|
|
begin T := Self.AutoHint; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusBarCanvas_R(Self: TStatusBar; var T: TCanvas);
|
|
begin T := Self.Canvas; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusPanelsStatusBar_R(Self: TStatusPanels; var T: TStatusBar);
|
|
begin T := Self.StatusBar; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusPanelsItems_W(Self: TStatusPanels; const T: TStatusPanel; const t1: Integer);
|
|
begin Self.Items[t1] := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusPanelsItems_R(Self: TStatusPanels; var T: TStatusPanel; const t1: Integer);
|
|
begin T := Self.Items[t1]; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusPanelWidth_W(Self: TStatusPanel; const T: Integer);
|
|
begin Self.Width := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusPanelWidth_R(Self: TStatusPanel; var T: Integer);
|
|
begin T := Self.Width; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusPanelText_W(Self: TStatusPanel; const T: string);
|
|
begin Self.Text := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusPanelText_R(Self: TStatusPanel; var T: string);
|
|
begin T := Self.Text; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusPanelStyle_W(Self: TStatusPanel; const T: TStatusPanelStyle);
|
|
begin Self.Style := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusPanelStyle_R(Self: TStatusPanel; var T: TStatusPanelStyle);
|
|
begin T := Self.Style; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusPanelBevel_W(Self: TStatusPanel; const T: TStatusPanelBevel);
|
|
begin Self.Bevel := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusPanelBevel_R(Self: TStatusPanel; var T: TStatusPanelBevel);
|
|
begin T := Self.Bevel; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusPanelAlignment_W(Self: TStatusPanel; const T: TAlignment);
|
|
begin Self.Alignment := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TStatusPanelAlignment_R(Self: TStatusPanel; var T: TAlignment);
|
|
begin T := Self.Alignment; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_ComCtrls_Routines(S: TPSExec);
|
|
begin
|
|
S.RegisterDelphiFunction(@CompareExpandedNodes, 'CompareExpandedNodes', cdRegister);
|
|
S.RegisterDelphiFunction(@CompareTextWithExpandedNode, 'CompareTextWithExpandedNode', cdRegister);
|
|
S.RegisterDelphiFunction(@Register, 'Register', cdRegister);
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_TTabControl(CL: TPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TTabControl) do
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_TCustomTabControl(CL: TPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TCustomTabControl) do
|
|
begin
|
|
RegisterMethod(@TCustomTabControl.IndexOfTabAt, 'IndexOfTabAt');
|
|
RegisterMethod(@TCustomTabControl.GetHitTestInfoAt, 'GetHitTestInfoAt');
|
|
RegisterMethod(@TCustomTabControl.IndexOfTabWithCaption, 'IndexOfTabWithCaption');
|
|
RegisterMethod(@TCustomTabControl.TabRect, 'TabRect');
|
|
RegisterMethod(@TCustomTabControl.RowCount, 'RowCount');
|
|
RegisterMethod(@TCustomTabControl.ScrollTabs, 'ScrollTabs');
|
|
RegisterMethod(@TCustomTabControl.BeginUpdate, 'BeginUpdate');
|
|
RegisterMethod(@TCustomTabControl.EndUpdate, 'EndUpdate');
|
|
RegisterMethod(@TCustomTabControl.IsUpdating, 'IsUpdating');
|
|
RegisterPropertyHelper(@TCustomTabControlTabIndex_R,@TCustomTabControlTabIndex_W,'TabIndex');
|
|
RegisterPropertyHelper(@TCustomTabControlTabs_R,@TCustomTabControlTabs_W,'Tabs');
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_TTabControlNoteBookStrings(CL: TPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TTabControlNoteBookStrings) do
|
|
begin
|
|
RegisterPropertyHelper(@TTabControlNoteBookStringsNoteBook_R,nil,'NoteBook');
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_TTabControlStrings(CL: TPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TTabControlStrings) do
|
|
begin
|
|
RegisterVirtualConstructor(@TTabControlStrings.Create, 'Create');
|
|
RegisterVirtualMethod(@TTabControlStrings.GetHitTestInfoAt, 'GetHitTestInfoAt');
|
|
RegisterVirtualMethod(@TTabControlStrings.IndexOfTabAt, 'IndexOfTabAt');
|
|
RegisterVirtualMethod(@TTabControlStrings.RowCount, 'RowCount');
|
|
RegisterVirtualMethod(@TTabControlStrings.TabRect, 'TabRect');
|
|
RegisterVirtualMethod(@TTabControlStrings.ImageListChange, 'ImageListChange');
|
|
RegisterVirtualMethod(@TTabControlStrings.ScrollTabs, 'ScrollTabs');
|
|
RegisterVirtualMethod(@TTabControlStrings.TabControlBoundsChange, 'TabControlBoundsChange');
|
|
RegisterVirtualMethod(@TTabControlStrings.UpdateTabImages, 'UpdateTabImages');
|
|
RegisterVirtualMethod(@TTabControlStrings.BeginUpdate, 'BeginUpdate');
|
|
RegisterVirtualMethod(@TTabControlStrings.EndUpdate, 'EndUpdate');
|
|
RegisterVirtualMethod(@TTabControlStrings.IsUpdating, 'IsUpdating');
|
|
RegisterPropertyHelper(@TTabControlStringsTabControl_R,nil,'TabControl');
|
|
RegisterPropertyHelper(@TTabControlStringsTabIndex_R,@TTabControlStringsTabIndex_W,'TabIndex');
|
|
RegisterPropertyHelper(@TTabControlStringsHotTrack_R,@TTabControlStringsHotTrack_W,'HotTrack');
|
|
RegisterPropertyHelper(@TTabControlStringsImages_R,@TTabControlStringsImages_W,'Images');
|
|
RegisterPropertyHelper(@TTabControlStringsMultiLine_R,@TTabControlStringsMultiLine_W,'MultiLine');
|
|
RegisterPropertyHelper(@TTabControlStringsMultiSelect_R,@TTabControlStringsMultiSelect_W,'MultiSelect');
|
|
RegisterPropertyHelper(@TTabControlStringsOwnerDraw_R,@TTabControlStringsOwnerDraw_W,'OwnerDraw');
|
|
RegisterPropertyHelper(@TTabControlStringsRaggedRight_R,@TTabControlStringsRaggedRight_W,'RaggedRight');
|
|
RegisterPropertyHelper(@TTabControlStringsScrollOpposite_R,@TTabControlStringsScrollOpposite_W,'ScrollOpposite');
|
|
RegisterPropertyHelper(@TTabControlStringsTabHeight_R,@TTabControlStringsTabHeight_W,'TabHeight');
|
|
RegisterPropertyHelper(@TTabControlStringsTabWidth_R,@TTabControlStringsTabWidth_W,'TabWidth');
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_TPageControl(CL: TPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TPageControl) do
|
|
begin
|
|
RegisterMethod(@TPageControl.FindNextPage, 'FindNextPage');
|
|
RegisterMethod(@TPageControl.SelectNextPage, 'SelectNextPage');
|
|
RegisterMethod(@TPageControl.SelectNextPage, 'SelectNextPage');
|
|
RegisterPropertyHelper(@TPageControlActivePageIndex_R,@TPageControlActivePageIndex_W,'ActivePageIndex');
|
|
RegisterPropertyHelper(@TPageControlPages_R,nil,'Pages');
|
|
RegisterPropertyHelper(@TPageControlActivePage_R,@TPageControlActivePage_W,'ActivePage');
|
|
RegisterPropertyHelper(@TPageControlTabIndex_R,@TPageControlTabIndex_W,'TabIndex');
|
|
RegisterPropertyHelper(@TPageControlOnChange_R,@TPageControlOnChange_W,'OnChange');
|
|
end;
|
|
end;
|
|
procedure TControlOnMouseDown_W(Self: TTabsheet; T: TMouseEvent); begin Self.OnMouseDown := T; end;
|
|
procedure TControlOnMouseDown_R(Self: TTabsheet; var T: TMouseEvent); begin T := Self.OnMouseDown; end;
|
|
procedure TControlOnMouseMove_W(Self: TTabsheet; T: TMouseMoveEvent); begin Self.OnMouseMove := T; end;
|
|
procedure TControlOnMouseMove_R(Self: TTabsheet; var T: TMouseMoveEvent); begin T := Self.OnMouseMove; end;
|
|
procedure TControlOnMouseUp_W(Self: TTabsheet; T: TMouseEvent); begin Self.OnMouseUp := T; end;
|
|
procedure TControlOnMouseUp_R(Self: TTabsheet; var T: TMouseEvent); begin T := Self.OnMouseUp; end;
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_TTabSheet(CL: TPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TTabSheet) do
|
|
begin
|
|
RegisterPropertyHelper(@TTabSheetPageControl_R,@TTabSheetPageControl_W,'PageControl');
|
|
RegisterPropertyHelper(@TTabSheetTabIndex_R,nil,'TabIndex');
|
|
RegisterEventPropertyHelper(@TControlOnMouseDown_R,@TControlOnMouseDown_W,'OnMouseDown');
|
|
RegisterEventPropertyHelper(@TControlOnMouseMove_R,@TControlOnMouseMove_W,'OnMouseMove');
|
|
RegisterEventPropertyHelper(@TControlOnMouseUp_R,@TControlOnMouseUp_W,'OnMouseUp');
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_TStatusBar(CL: TPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TStatusBar) do
|
|
begin
|
|
RegisterVirtualMethod(@TStatusBar.InvalidatePanel, 'InvalidatePanel');
|
|
RegisterMethod(@TStatusBar.BeginUpdate, 'BeginUpdate');
|
|
RegisterMethod(@TStatusBar.EndUpdate, 'EndUpdate');
|
|
RegisterMethod(@TStatusBar.GetPanelIndexAt, 'GetPanelIndexAt');
|
|
RegisterMethod(@TStatusBar.SizeGripEnabled, 'SizeGripEnabled');
|
|
RegisterMethod(@TStatusBar.UpdatingStatusBar, 'UpdatingStatusBar');
|
|
RegisterPropertyHelper(@TStatusBarCanvas_R,nil,'Canvas');
|
|
RegisterPropertyHelper(@TStatusBarAutoHint_R,@TStatusBarAutoHint_W,'AutoHint');
|
|
RegisterPropertyHelper(@TStatusBarPanels_R,@TStatusBarPanels_W,'Panels');
|
|
RegisterPropertyHelper(@TStatusBarSimpleText_R,@TStatusBarSimpleText_W,'SimpleText');
|
|
RegisterPropertyHelper(@TStatusBarSimplePanel_R,@TStatusBarSimplePanel_W,'SimplePanel');
|
|
RegisterPropertyHelper(@TStatusBarSizeGrip_R,@TStatusBarSizeGrip_W,'SizeGrip');
|
|
RegisterPropertyHelper(@TStatusBarOnDrawPanel_R,@TStatusBarOnDrawPanel_W,'OnDrawPanel');
|
|
RegisterPropertyHelper(@TStatusBarOnHint_R,@TStatusBarOnHint_W,'OnHint');
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_TStatusPanels(CL: TPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TStatusPanels) do
|
|
begin
|
|
RegisterConstructor(@TStatusPanels.Create, 'Create');
|
|
RegisterMethod(@TStatusPanels.Add, 'Add');
|
|
RegisterPropertyHelper(@TStatusPanelsItems_R,@TStatusPanelsItems_W,'Items');
|
|
RegisterPropertyHelper(@TStatusPanelsStatusBar_R,nil,'StatusBar');
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_TStatusPanel(CL: TPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TStatusPanel) do
|
|
begin
|
|
RegisterMethod(@TStatusPanel.StatusBar, 'StatusBar');
|
|
RegisterPropertyHelper(@TStatusPanelAlignment_R,@TStatusPanelAlignment_W,'Alignment');
|
|
RegisterPropertyHelper(@TStatusPanelBevel_R,@TStatusPanelBevel_W,'Bevel');
|
|
RegisterPropertyHelper(@TStatusPanelStyle_R,@TStatusPanelStyle_W,'Style');
|
|
RegisterPropertyHelper(@TStatusPanelText_R,@TStatusPanelText_W,'Text');
|
|
RegisterPropertyHelper(@TStatusPanelWidth_R,@TStatusPanelWidth_W,'Width');
|
|
end;
|
|
end;
|
|
(* === run-time registration functions === *)
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomCheckListBoxOnItemClick_W(Self: TCustomCheckListBox; const T: TCheckListClicked);
|
|
begin Self.OnItemClick := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomCheckListBoxOnItemClick_R(Self: TCustomCheckListBox; var T: TCheckListClicked);
|
|
begin T := Self.OnItemClick; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomCheckListBoxOnClickCheck_W(Self: TCustomCheckListBox; const T: TNotifyEvent);
|
|
begin Self.OnClickCheck := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomCheckListBoxOnClickCheck_R(Self: TCustomCheckListBox; var T: TNotifyEvent);
|
|
begin T := Self.OnClickCheck; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomCheckListBoxCount_R(Self: TCustomCheckListBox; var T: integer);
|
|
begin T := Self.Count; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomCheckListBoxState_W(Self: TCustomCheckListBox; const T: TCheckBoxState; const t1: Integer);
|
|
begin Self.State[t1] := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomCheckListBoxState_R(Self: TCustomCheckListBox; var T: TCheckBoxState; const t1: Integer);
|
|
begin T := Self.State[t1]; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomCheckListBoxItemEnabled_W(Self: TCustomCheckListBox; const T: Boolean; const t1: Integer);
|
|
begin Self.ItemEnabled[t1] := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomCheckListBoxItemEnabled_R(Self: TCustomCheckListBox; var T: Boolean; const t1: Integer);
|
|
begin T := Self.ItemEnabled[t1]; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomCheckListBoxChecked_W(Self: TCustomCheckListBox; const T: Boolean; const t1: Integer);
|
|
begin Self.Checked[t1] := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomCheckListBoxChecked_R(Self: TCustomCheckListBox; var T: Boolean; const t1: Integer);
|
|
begin T := Self.Checked[t1]; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomCheckListBoxAllowGrayed_W(Self: TCustomCheckListBox; const T: Boolean);
|
|
begin Self.AllowGrayed := T; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure TCustomCheckListBoxAllowGrayed_R(Self: TCustomCheckListBox; var T: Boolean);
|
|
begin T := Self.AllowGrayed; end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_CheckLst_Routines(S: TPSExec);
|
|
begin
|
|
S.RegisterDelphiFunction(@Register, 'Register', cdRegister);
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_TCheckListBox(CL: TPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TCheckListBox) do
|
|
begin
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_TCustomCheckListBox(CL: TPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TCustomCheckListBox) do
|
|
begin
|
|
RegisterMethod(@TCustomCheckListBox.Toggle, 'Toggle');
|
|
RegisterPropertyHelper(@TCustomCheckListBoxAllowGrayed_R,@TCustomCheckListBoxAllowGrayed_W,'AllowGrayed');
|
|
RegisterPropertyHelper(@TCustomCheckListBoxChecked_R,@TCustomCheckListBoxChecked_W,'Checked');
|
|
RegisterPropertyHelper(@TCustomCheckListBoxItemEnabled_R,@TCustomCheckListBoxItemEnabled_W,'ItemEnabled');
|
|
RegisterPropertyHelper(@TCustomCheckListBoxState_R,@TCustomCheckListBoxState_W,'State');
|
|
RegisterPropertyHelper(@TCustomCheckListBoxCount_R,nil,'Count');
|
|
RegisterPropertyHelper(@TCustomCheckListBoxOnClickCheck_R,@TCustomCheckListBoxOnClickCheck_W,'OnClickCheck');
|
|
RegisterPropertyHelper(@TCustomCheckListBoxOnItemClick_R,@TCustomCheckListBoxOnItemClick_W,'OnItemClick');
|
|
end;
|
|
end;
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_CheckLst(CL: TPSRuntimeClassImporter);
|
|
begin
|
|
RIRegister_TCustomCheckListBox(CL);
|
|
RIRegister_TCheckListBox(CL);
|
|
end;
|
|
|
|
|
|
(*----------------------------------------------------------------------------*)
|
|
procedure RIRegister_ComCtrls(CL: TPSRuntimeClassImporter);
|
|
begin
|
|
with CL.Add(TStatusBar) do
|
|
RIRegister_TStatusPanel(CL);
|
|
RIRegister_TStatusPanels(CL);
|
|
RIRegister_TStatusBar(CL);
|
|
with CL.Add(TPageControl) do
|
|
RIRegister_TTabSheet(CL);
|
|
RIRegister_TPageControl(CL);
|
|
with CL.Add(TCustomTabControl) do
|
|
RIRegister_TTabControlStrings(CL);
|
|
RIRegister_TTabControlNoteBookStrings(CL);
|
|
RIRegister_TCustomTabControl(CL);
|
|
RIRegister_TTabControl(CL);
|
|
RIRegister_CheckLst(CL);
|
|
end;
|
|
|
|
|
|
end.
|