mirror of
https://github.com/moparisthebest/Simba
synced 2024-08-13 16:53:59 -04:00
So... SRL Player form now compiles and sort-off runs.. Doesn't work though.
Added InputQuery (which is a sort of ReadLn) and did a lot of shit in PS to make it work with SRL playerform. And new version number, now @ 650! Yay.
This commit is contained in:
Raymond
parent
038ab65706
commit
a8091d58b9
@ -1,12 +1,11 @@
|
||||
object Form1: TForm1
|
||||
Left = 1594
|
||||
Left = 150
|
||||
Height = 623
|
||||
Top = 69
|
||||
Width = 660
|
||||
ActiveControl = ScriptPanel
|
||||
AllowDropFiles = True
|
||||
Caption = 'THA FUKING SIMBA'
|
||||
ClientHeight = 600
|
||||
ClientHeight = 603
|
||||
ClientWidth = 660
|
||||
KeyPreview = True
|
||||
Menu = MainMenu
|
||||
@ -208,8 +207,8 @@ object Form1: TForm1
|
||||
end
|
||||
object StatusBar: TStatusBar
|
||||
Left = 0
|
||||
Height = 17
|
||||
Top = 583
|
||||
Height = 23
|
||||
Top = 580
|
||||
Width = 660
|
||||
Panels = <
|
||||
item
|
||||
@ -231,7 +230,7 @@ object Form1: TForm1
|
||||
object PanelMemo: TPanel
|
||||
Left = 0
|
||||
Height = 154
|
||||
Top = 429
|
||||
Top = 426
|
||||
Width = 660
|
||||
Align = alBottom
|
||||
ClientHeight = 154
|
||||
@ -254,19 +253,19 @@ object Form1: TForm1
|
||||
Cursor = crVSplit
|
||||
Left = 0
|
||||
Height = 5
|
||||
Top = 424
|
||||
Top = 421
|
||||
Width = 660
|
||||
Align = alBottom
|
||||
ResizeAnchor = akBottom
|
||||
end
|
||||
object ScriptPanel: TPanel
|
||||
Left = 0
|
||||
Height = 400
|
||||
Height = 397
|
||||
Top = 24
|
||||
Width = 660
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
ClientHeight = 400
|
||||
ClientHeight = 397
|
||||
ClientWidth = 660
|
||||
DockSite = True
|
||||
TabOrder = 4
|
||||
@ -274,7 +273,7 @@ object Form1: TForm1
|
||||
OnDockOver = ScriptPanelDockOver
|
||||
object PageControl1: TPageControl
|
||||
Left = 155
|
||||
Height = 365
|
||||
Height = 362
|
||||
Top = 0
|
||||
Width = 505
|
||||
Align = alClient
|
||||
@ -293,7 +292,7 @@ object Form1: TForm1
|
||||
object SearchPanel: TPanel
|
||||
Left = 0
|
||||
Height = 35
|
||||
Top = 365
|
||||
Top = 362
|
||||
Width = 660
|
||||
Align = alBottom
|
||||
BevelOuter = bvSpace
|
||||
@ -389,7 +388,7 @@ object Form1: TForm1
|
||||
end
|
||||
object LabeledEditSearch: TLabeledEdit
|
||||
Left = 104
|
||||
Height = 27
|
||||
Height = 21
|
||||
Top = 6
|
||||
Width = 174
|
||||
EditLabel.AnchorSideLeft.Control = LabeledEditSearch
|
||||
@ -397,10 +396,10 @@ object Form1: TForm1
|
||||
EditLabel.AnchorSideTop.Side = asrCenter
|
||||
EditLabel.AnchorSideRight.Control = LabeledEditSearch
|
||||
EditLabel.AnchorSideBottom.Control = LabeledEditSearch
|
||||
EditLabel.Left = 67
|
||||
EditLabel.Height = 18
|
||||
EditLabel.Top = 10
|
||||
EditLabel.Width = 34
|
||||
EditLabel.Left = 73
|
||||
EditLabel.Height = 14
|
||||
EditLabel.Top = 9
|
||||
EditLabel.Width = 28
|
||||
EditLabel.Caption = 'Find: '
|
||||
EditLabel.ParentColor = False
|
||||
LabelPosition = lpLeft
|
||||
@ -413,9 +412,9 @@ object Form1: TForm1
|
||||
end
|
||||
object CheckBoxMatchCase: TCheckBox
|
||||
Left = 320
|
||||
Height = 20
|
||||
Height = 17
|
||||
Top = 7
|
||||
Width = 95
|
||||
Width = 72
|
||||
Caption = 'Match case'
|
||||
OnClick = CheckBoxMatchCaseClick
|
||||
TabOrder = 1
|
||||
@ -423,34 +422,38 @@ object Form1: TForm1
|
||||
end
|
||||
object SplitterFunctionList: TSplitter
|
||||
Left = 150
|
||||
Height = 365
|
||||
Height = 362
|
||||
Top = 0
|
||||
Width = 5
|
||||
OnCanResize = SplitterFunctionListCanResize
|
||||
Visible = False
|
||||
end
|
||||
inline frmFunctionList: TFunctionListFrame
|
||||
Height = 365
|
||||
Height = 362
|
||||
Width = 150
|
||||
ClientHeight = 365
|
||||
ClientHeight = 362
|
||||
ClientWidth = 150
|
||||
OnEndDock = nil
|
||||
TabOrder = 3
|
||||
inherited FunctionList: TTreeView
|
||||
Height = 316
|
||||
Height = 323
|
||||
Top = 18
|
||||
Width = 150
|
||||
DefaultItemHeight = 15
|
||||
OnChange = FunctionListChange
|
||||
OnEnter = FunctionListEnter
|
||||
OnExit = FunctionListExit
|
||||
end
|
||||
inherited editSearchList: TEdit
|
||||
Top = 338
|
||||
Height = 21
|
||||
Top = 341
|
||||
Width = 150
|
||||
OnExit = editSearchListExit
|
||||
OnKeyDown = editSearchListKeyDown
|
||||
OnKeyPress = editSearchListKeyPress
|
||||
end
|
||||
inherited FunctionListLabel: TLabel
|
||||
Height = 14
|
||||
Width = 146
|
||||
end
|
||||
end
|
||||
|
||||
@ -46,7 +46,7 @@ uses
|
||||
CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
|
||||
|
||||
const
|
||||
SimbaVersion = 640;
|
||||
SimbaVersion = 650;
|
||||
|
||||
type
|
||||
|
||||
|
||||
@ -110,3 +110,8 @@ begin;
|
||||
Tempini.DeleteKey(section,keyname);
|
||||
tempini.free;
|
||||
end;
|
||||
|
||||
function ps_ExtractFileExt(const FileName: string): string; extdecl;
|
||||
begin
|
||||
result := ExtractFileExt(filename);
|
||||
end;
|
||||
|
||||
@ -163,3 +163,13 @@ function ps_Random(Int: integer): integer; extdecl;
|
||||
begin
|
||||
result := Random(int);
|
||||
end;
|
||||
|
||||
function ps_InputQuery(const ACaption, APrompt : String; var Value : String) : Boolean;extdecl;
|
||||
begin
|
||||
CurrThread.InputQueryData.ACaption:= ACaption;
|
||||
CurrThread.InputQueryData.APrompt:= APrompt;
|
||||
CurrThread.InputQueryData.Value:= Value;
|
||||
CurrThread.Synchronize(@CurrThread.mInputQuery);
|
||||
Value := CurrThread.InputQueryData.Value;
|
||||
result := CurrThread.InputQueryData.Res;
|
||||
end;
|
||||
|
||||
@ -111,6 +111,7 @@ AddFunction(@ps_FileExists,'function FileExists (const FileName : string ) : Boo
|
||||
AddFunction(@ps_WriteINI,'procedure WriteINI(const Section, KeyName, NewString, FileName: string);');
|
||||
AddFunction(@ps_ReadINI,'function ReadINI(const Section, KeyName, FileName: string): string;');
|
||||
AddFunction(@ps_DeleteINI,'procedure DeleteINI(const Section, KeyName, FileName: string);');
|
||||
AddFunction(@ps_ExtractFileExt,'function ExtractFileExt(const FileName: string): string;');
|
||||
|
||||
{other}
|
||||
SetCurrSection('Other');
|
||||
@ -137,8 +138,7 @@ AddFunction(@ps_PlaySound,'procedure PlaySound( Sound : string);');
|
||||
AddFunction(@ps_StopSound,'procedure StopSound;');
|
||||
AddFunction(@ps_SetScriptProp, 'function SetScriptProp(Prop : TSP_Property; Value: TVariantArray): boolean;');
|
||||
AddFunction(@ps_GetScriptProp, 'function GetScriptProp(Prop : TSP_Property;var Value: TVariantArray): boolean;');
|
||||
|
||||
|
||||
AddFunction(@ps_InputQuery,'function InputQuery(const ACaption, APrompt : String; var Value : String) : Boolean;');
|
||||
|
||||
{string}
|
||||
SetCurrSection('String');
|
||||
@ -274,6 +274,7 @@ AddFunction(@ps_FastSetPixel,'procedure FastSetPixel(bmp,x,y : integer; Color :
|
||||
AddFunction(@ps_FastSetPixels,'procedure FastSetPixels(bmp : integer; TPA : TPointArray; Colors : TIntegerArray);');
|
||||
AddFunction(@ps_FastGetPixel,'function FastGetPixel(bmp, x,y : integer) : TColor;');
|
||||
AddFunction(@ps_FastGetPixels,'function FastGetPixels(Bmp : integer; TPA : TPointArray) : TIntegerArray;');
|
||||
AddFunction(@ps_GetBitmapAreaColors,'function GetBitmapAreaColors(bmp,xs, ys, xe, ye: Integer): T2DIntegerArray;');
|
||||
AddFunction(@ps_FastDrawClear,'procedure FastDrawClear(bmp : integer; Color : TColor);');
|
||||
AddFunction(@ps_FastDrawTransparent,'procedure FastDrawTransparent(x, y: Integer; SourceBitmap, TargetBitmap: Integer);');
|
||||
AddFunction(@ps_SetTransparentColor,'procedure SetTransparentColor(bmp : integer; Color : TColor);');
|
||||
|
||||
@ -72,7 +72,10 @@ type
|
||||
FuncPtr : Pointer;
|
||||
end;
|
||||
TExpMethodArr = array of TExpMethod;
|
||||
|
||||
TInputQueryData = record
|
||||
ACaption, APrompt,Value : String;
|
||||
Res : boolean;
|
||||
end;
|
||||
{ TMThread }
|
||||
|
||||
TMThread = class(TThread)
|
||||
@ -99,12 +102,14 @@ type
|
||||
StartTime : LongWord;
|
||||
Sett: TMMLSettingsSandbox;
|
||||
|
||||
InputQueryData : TInputQueryData;//We need this for InputQuery
|
||||
SyncInfo : PSyncInfo; //We need this for callthreadsafe
|
||||
ErrorData : PErrorData; //We need this for thread-safety etc
|
||||
OnError : TOnError; //Error handeler
|
||||
|
||||
CompileOnly : boolean;
|
||||
|
||||
procedure mInputQuery;
|
||||
procedure HandleError(ErrorRow,ErrorCol,ErrorPosition : integer; ErrorStr : string; ErrorType : TErrorType; ErrorModule : string);
|
||||
function ProcessDirective(DirectiveName, DirectiveArgs: string): boolean;
|
||||
function LoadFile(ParentFile : string; var filename, contents: string): boolean;
|
||||
@ -207,8 +212,9 @@ uses
|
||||
stringutil, //String st00f
|
||||
|
||||
uPSR_std, uPSR_controls,uPSR_classes,uPSR_graphics,uPSR_stdctrls,uPSR_forms,
|
||||
uPSR_menus,
|
||||
uPSR_menus, uPSI_ComCtrls, uPSI_Dialogs,
|
||||
files,
|
||||
dialogs,
|
||||
uPSR_extctrls, //Runtime-libs
|
||||
Graphics, //For Graphics types
|
||||
math, //Maths!
|
||||
@ -347,6 +353,12 @@ begin
|
||||
self.Client.MFiles.WriteFileEvent := AValue;;
|
||||
end;
|
||||
|
||||
procedure TMThread.mInputQuery;
|
||||
begin
|
||||
InputQueryData.Res:= InputQuery(InputQueryData.ACaption,InputQueryData.APrompt,
|
||||
InputQueryData.Value);
|
||||
end;
|
||||
|
||||
procedure TMThread.HandleError(ErrorRow,ErrorCol, ErrorPosition: integer; ErrorStr: string; ErrorType: TErrorType; ErrorModule : string);
|
||||
begin
|
||||
if OnError = nil then
|
||||
@ -873,6 +885,8 @@ begin
|
||||
SIRegister_Forms(x);
|
||||
SIRegister_ExtCtrls(x);
|
||||
SIRegister_Menus(x);
|
||||
SIRegister_ComCtrls(x);
|
||||
SIRegister_Dialogs(x);
|
||||
{$I PSInc/pscompile.inc}
|
||||
SIRegister_Mufasa(x);
|
||||
with x.AddFunction('procedure writeln;').decl do
|
||||
@ -914,6 +928,8 @@ begin
|
||||
RIRegister_ExtCtrls(x);
|
||||
RIRegister_Menus(x);
|
||||
RIRegister_Mufasa(x);
|
||||
RIRegister_ComCtrls(x);
|
||||
RIRegister_Dialogs(x);
|
||||
se.RegisterFunctionName('WRITELN',@Writeln_,nil,nil);
|
||||
se.RegisterFunctionName('TOSTR',@ToStr_,nil,nil);
|
||||
se.RegisterFunctionName('SWAP',@swap_,nil,nil);
|
||||
|
||||
@ -49,6 +49,7 @@ begin
|
||||
RegisterProperty('ClientHeight', 'Longint', iptRW);
|
||||
RegisterProperty('ClientWidth', 'Longint', iptRW);
|
||||
RegisterProperty('ShowHint', 'Boolean', iptRW);
|
||||
RegisterProperty('Caption','STRING',iptRW);
|
||||
RegisterProperty('Visible', 'Boolean', iptRW);
|
||||
RegisterProperty('ENABLED', 'BOOLEAN', iptrw);
|
||||
RegisterProperty('CURSOR', 'TCURSOR', iptrw);
|
||||
|
||||
@ -188,15 +188,19 @@ begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TPAGE') do
|
||||
begin
|
||||
RegisterProperty('CAPTION', 'String', iptrw);
|
||||
RegisterProperty('PageIndex','Integer',iptrw);
|
||||
RegisterProperty('ONSHOW','TNotifyEvent',iptrw);
|
||||
end;
|
||||
end;
|
||||
procedure SIRegisterTNOTEBOOK(Cl: TPSPascalCompiler);
|
||||
begin
|
||||
with Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TNOTEBOOK') do
|
||||
begin
|
||||
RegisterMethod('function TabIndexAtClientPos(ClientPos: TPoint): integer;');
|
||||
RegisterProperty('ACTIVEPAGE', 'String', iptrw);
|
||||
RegisterProperty('COLOR', 'TColor', iptrw);
|
||||
RegisterProperty('FONT', 'TFont', iptrw);
|
||||
RegisterProperty('PAGECOUNT','INTEGER',iptr);
|
||||
RegisterProperty('PAGEINDEX', 'INTEGER', iptrw);
|
||||
RegisterProperty('PAGES', 'TSTRINGS', iptrw);
|
||||
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
|
||||
|
||||
@ -476,6 +476,7 @@ begin
|
||||
RegisterProperty('ITEMINDEX', 'INTEGER', iptrw);
|
||||
RegisterProperty('SELCOUNT', 'INTEGER', iptr);
|
||||
RegisterProperty('SELECTED', 'BOOLEAN INTEGER', iptrw);
|
||||
RegisterProperty('ITEMHEIGHT','INTEGER',iptrw);
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterMethod('procedure CLEAR');
|
||||
|
||||
838
Units/PascalScript/uPSI_ComCtrls.pas
Normal file
838
Units/PascalScript/uPSI_ComCtrls.pas
Normal file
@ -0,0 +1,838 @@
|
||||
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', iptrw);
|
||||
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 := 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;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TTabSheetTabIndex_W(Self: TTabSheet; const T: Integer);
|
||||
begin Self.TabIndex := T; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
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,@TTabSheetTabIndex_W,'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.
|
||||
@ -22,7 +22,8 @@ type
|
||||
procedure ExecImport1(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
|
||||
procedure ExecImport2(CompExec: TPSScript; const ri: TPSRuntimeClassImporter); override;
|
||||
end;
|
||||
|
||||
procedure SIRegister_Dialogs(CL: TPSPascalCompiler);
|
||||
procedure RIRegister_Dialogs(CL: TPSRuntimeClassImporter);
|
||||
implementation
|
||||
|
||||
uses
|
||||
@ -58,7 +59,7 @@ end;
|
||||
procedure SIRegister_TPrintDialog(CL: TPSPascalCompiler);
|
||||
begin
|
||||
//with RegClassS(CL,'TCommonDialog', 'TPrintDialog') do
|
||||
with CL.AddClassN(CL.FindClass('TCommonDialog'),'TPrintDialog') do
|
||||
{ with CL.AddClassN(CL.FindClass('TCommonDialog'),'TPrintDialog') do
|
||||
begin
|
||||
RegisterProperty('Collate', 'Boolean', iptrw);
|
||||
RegisterProperty('Copies', 'Integer', iptrw);
|
||||
@ -69,16 +70,16 @@ begin
|
||||
RegisterProperty('PrintToFile', 'Boolean', iptrw);
|
||||
RegisterProperty('PrintRange', 'TPrintRange', iptrw);
|
||||
RegisterProperty('ToPage', 'Integer', iptrw);
|
||||
end;
|
||||
end; }
|
||||
end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure SIRegister_TPrinterSetupDialog(CL: TPSPascalCompiler);
|
||||
begin
|
||||
//with RegClassS(CL,'TCommonDialog', 'TPrinterSetupDialog') do
|
||||
with CL.AddClassN(CL.FindClass('TCommonDialog'),'TPrinterSetupDialog') do
|
||||
{ with CL.AddClassN(CL.FindClass('TCommonDialog'),'TPrinterSetupDialog') do
|
||||
begin
|
||||
end;
|
||||
end;}
|
||||
end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
@ -88,11 +89,11 @@ begin
|
||||
with CL.AddClassN(CL.FindClass('TCommonDialog'),'TFontDialog') do
|
||||
begin
|
||||
RegisterProperty('Font', 'TFont', iptrw);
|
||||
RegisterProperty('Device', 'TFontDialogDevice', iptrw);
|
||||
// RegisterProperty('Device', 'TFontDialogDevice', iptrw);
|
||||
RegisterProperty('MinFontSize', 'Integer', iptrw);
|
||||
RegisterProperty('MaxFontSize', 'Integer', iptrw);
|
||||
RegisterProperty('Options', 'TFontDialogOptions', iptrw);
|
||||
RegisterProperty('OnApply', 'TFDApplyEvent', iptrw);
|
||||
// RegisterProperty('OnApply', 'TFDApplyEvent', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -104,7 +105,7 @@ begin
|
||||
begin
|
||||
RegisterProperty('Color', 'TColor', iptrw);
|
||||
RegisterProperty('CustomColors', 'TStrings', iptrw);
|
||||
RegisterProperty('Options', 'TColorDialogOptions', iptrw);
|
||||
// RegisterProperty('Options', 'TColorDialogOptions', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -127,7 +128,7 @@ begin
|
||||
RegisterProperty('Files', 'TStrings', iptr);
|
||||
RegisterProperty('HistoryList', 'TStrings', iptrw);
|
||||
RegisterProperty('DefaultExt', 'string', iptrw);
|
||||
RegisterProperty('FileName', 'TFileName', iptrw);
|
||||
RegisterProperty('FileName', 'String', iptrw);
|
||||
RegisterProperty('Filter', 'string', iptrw);
|
||||
RegisterProperty('FilterIndex', 'Integer', iptrw);
|
||||
RegisterProperty('InitialDir', 'string', iptrw);
|
||||
@ -137,7 +138,8 @@ begin
|
||||
RegisterProperty('OnFolderChange', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('OnSelectionChange', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('OnTypeChange', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('OnIncludeItem', 'TIncludeItemEvent', iptrw);
|
||||
RegisterMethod('function Execute : boolean;');
|
||||
// RegisterProperty('OnIncludeItem', 'TIncludeItemEvent', iptrw);
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -148,7 +150,7 @@ begin
|
||||
with CL.AddClassN(CL.FindClass('TComponent'),'TCommonDialog') do
|
||||
begin
|
||||
RegisterProperty('Handle', 'HWnd', iptr);
|
||||
RegisterProperty('Ctl3D', 'Boolean', iptrw);
|
||||
// RegisterProperty('Ctl3D', 'Boolean', iptrw);
|
||||
RegisterProperty('HelpContext', 'THelpContext', iptrw);
|
||||
RegisterProperty('OnClose', 'TNotifyEvent', iptrw);
|
||||
RegisterProperty('OnShow', 'TNotifyEvent', iptrw);
|
||||
@ -168,21 +170,21 @@ begin
|
||||
+'ng )');
|
||||
CL.AddTypeS('TOpenOptions', 'set of TOpenOption');
|
||||
CL.AddTypeS('TFileEditStyle', '( fsEdit, fsComboBox )');
|
||||
CL.AddTypeS('TIncludeItemEvent', 'Procedure ( const OFN : TOFNotifyEx; var In'
|
||||
+'clude : Boolean)');
|
||||
// CL.AddTypeS('TIncludeItemEvent', 'Procedure ( const OFN : TOFNotifyEx; var In'
|
||||
// +'clude : Boolean)');
|
||||
SIRegister_TOpenDialog(CL);
|
||||
SIRegister_TSaveDialog(CL);
|
||||
CL.AddTypeS('TColorDialogOption', '( cdFullOpen, cdPreventFullOpen, cdShowHel'
|
||||
+'p, cdSolidColor, cdAnyColor )');
|
||||
CL.AddTypeS('TColorDialogOptions', 'set of TColorDialogOption');
|
||||
// CL.AddTypeS('TColorDialogOptions', 'set of TColorDialogOption');
|
||||
SIRegister_TColorDialog(CL);
|
||||
CL.AddTypeS('TFontDialogOption', '( fdAnsiOnly, fdTrueTypeOnly, fdEffects, fd'
|
||||
+'FixedPitchOnly, fdForceFontExist, fdNoFaceSel, fdNoOEMFonts, fdNoSimulatio'
|
||||
+'ns, fdNoSizeSel, fdNoStyleSel, fdNoVectorFonts, fdShowHelp, fdWysiwyg, fdL'
|
||||
+'imitSize, fdScalableOnly, fdApplyButton )');
|
||||
CL.AddTypeS('TFontDialogOptions', 'set of TFontDialogOption');
|
||||
CL.AddTypeS('TFontDialogDevice', '( fdScreen, fdPrinter, fdBoth )');
|
||||
CL.AddTypeS('TFDApplyEvent', 'Procedure ( Sender : TObject; Wnd : HWND)');
|
||||
// CL.AddTypeS('TFontDialogDevice', '( fdScreen, fdPrinter, fdBoth )');
|
||||
// CL.AddTypeS('TFDApplyEvent', 'Procedure ( Sender : TObject; Wnd : HWND)');
|
||||
SIRegister_TFontDialog(CL);
|
||||
SIRegister_TPrinterSetupDialog(CL);
|
||||
CL.AddTypeS('TPrintRange', '( prAllPages, prSelection, prPageNums )');
|
||||
@ -201,17 +203,17 @@ begin
|
||||
CL.AddTypeS('TMsgDlgBtn', '( mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, m'
|
||||
+'bIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp )');
|
||||
CL.AddTypeS('TMsgDlgButtons', 'set of TMsgDlgBtn');
|
||||
CL.AddConstantN('mbYesNoCancel','LongInt').Value.ts32 := ord(mbYes) or ord(mbNo) or ord(mbCancel);
|
||||
CL.AddConstantN('mbOKCancel','LongInt').Value.ts32 := ord(mbOK) or ord(mbCancel);
|
||||
CL.AddConstantN('mbAbortRetryIgnore','LongInt').Value.ts32 := ord(mbAbort) or ord(mbRetry) or ord(mbIgnore);
|
||||
CL.AddDelphiFunction('Function CreateMessageDialog( const Msg : string; DlgType : TMsgDlgType; Buttons : TMsgDlgButtons) : TForm');
|
||||
CL.AddConstantN('mbYesNoCancel','LongInt').SetInt(ord(mbYes) or ord(mbNo) or ord(mbCancel));
|
||||
CL.AddConstantN('mbOKCancel','LongInt').SetInt(ord(mbOK) or ord(mbCancel));
|
||||
CL.AddConstantN('mbAbortRetryIgnore','LongInt').SetInt(ord(mbAbort) or ord(mbRetry) or ord(mbIgnore));
|
||||
{ CL.AddDelphiFunction('Function CreateMessageDialog( const Msg : string; DlgType : TMsgDlgType; Buttons : TMsgDlgButtons) : TForm');
|
||||
CL.AddDelphiFunction('Function MessageDlg( const Msg : string; DlgType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpCtx : Longint) : Integer');
|
||||
CL.AddDelphiFunction('Function MessageDlgPos( const Msg : string; DlgType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpCtx : Longint; X, Y : Integer) : Integer');
|
||||
CL.AddDelphiFunction('Function MessageDlgPosHelp( const Msg : string; DlgType : TMsgDlgType; Buttons : TMsgDlgButtons; HelpCtx : Longint; X, Y : Integer; const HelpFileName : string) : Integer');
|
||||
CL.AddDelphiFunction('Procedure ShowMessage( const Msg : string)');
|
||||
CL.AddDelphiFunction('Procedure ShowMessagePos( const Msg : string; X, Y : Integer)');
|
||||
CL.AddDelphiFunction('Function InputBox( const ACaption, APrompt, ADefault : string) : string');
|
||||
CL.AddDelphiFunction('Function InputQuery( const ACaption, APrompt : string; var Value : string) : Boolean');
|
||||
CL.AddDelphiFunction('Function InputQuery( const ACaption, APrompt : string; var Value : string) : Boolean');}
|
||||
end;
|
||||
|
||||
(* === run-time registration functions === *)
|
||||
@ -263,7 +265,7 @@ begin Self.Left := T; end;
|
||||
procedure TFindDialogLeft_R(Self: TFindDialog; var T: Integer);
|
||||
begin T := Self.Left; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
{(*----------------------------------------------------------------------------*)
|
||||
procedure TPrintDialogToPage_W(Self: TPrintDialog; const T: Integer);
|
||||
begin Self.ToPage := T; end;
|
||||
|
||||
@ -333,15 +335,15 @@ begin Self.Collate := T; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TPrintDialogCollate_R(Self: TPrintDialog; var T: Boolean);
|
||||
begin T := Self.Collate; end;
|
||||
begin T := Self.Collate; end; }
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
{(*----------------------------------------------------------------------------*)
|
||||
procedure TFontDialogOnApply_W(Self: TFontDialog; const T: TFDApplyEvent);
|
||||
begin Self.OnApply := T; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TFontDialogOnApply_R(Self: TFontDialog; var T: TFDApplyEvent);
|
||||
begin T := Self.OnApply; end;
|
||||
begin T := Self.OnApply; end; }
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TFontDialogOptions_W(Self: TFontDialog; const T: TFontDialogOptions);
|
||||
@ -367,13 +369,13 @@ begin Self.MinFontSize := T; end;
|
||||
procedure TFontDialogMinFontSize_R(Self: TFontDialog; var T: Integer);
|
||||
begin T := Self.MinFontSize; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
{(*----------------------------------------------------------------------------*)
|
||||
procedure TFontDialogDevice_W(Self: TFontDialog; const T: TFontDialogDevice);
|
||||
begin Self.Device := T; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TFontDialogDevice_R(Self: TFontDialog; var T: TFontDialogDevice);
|
||||
begin T := Self.Device; end;
|
||||
begin T := Self.Device; end;}
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TFontDialogFont_W(Self: TFontDialog; const T: TFont);
|
||||
@ -384,12 +386,12 @@ procedure TFontDialogFont_R(Self: TFontDialog; var T: TFont);
|
||||
begin T := Self.Font; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TColorDialogOptions_W(Self: TColorDialog; const T: TColorDialogOptions);
|
||||
{procedure TColorDialogOptions_W(Self: TColorDialog; const T: TColorDialogOptions);
|
||||
begin Self.Options := T; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TColorDialogOptions_R(Self: TColorDialog; var T: TColorDialogOptions);
|
||||
begin T := Self.Options; end;
|
||||
begin T := Self.Options; end; }
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TColorDialogCustomColors_W(Self: TColorDialog; const T: TStrings);
|
||||
@ -407,13 +409,13 @@ begin Self.Color := T; end;
|
||||
procedure TColorDialogColor_R(Self: TColorDialog; var T: TColor);
|
||||
begin T := Self.Color; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
{(*----------------------------------------------------------------------------*)
|
||||
procedure TOpenDialogOnIncludeItem_W(Self: TOpenDialog; const T: TIncludeItemEvent);
|
||||
begin Self.OnIncludeItem := T; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TOpenDialogOnIncludeItem_R(Self: TOpenDialog; var T: TIncludeItemEvent);
|
||||
begin T := Self.OnIncludeItem; end;
|
||||
begin T := Self.OnIncludeItem; end; }
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TOpenDialogOnTypeChange_W(Self: TOpenDialog; const T: TNotifyEvent);
|
||||
@ -515,13 +517,13 @@ begin T := Self.HistoryList; end;
|
||||
procedure TOpenDialogFiles_R(Self: TOpenDialog; var T: TStrings);
|
||||
begin T := Self.Files; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
{(*----------------------------------------------------------------------------*)
|
||||
procedure TOpenDialogFileEditStyle_W(Self: TOpenDialog; const T: TFileEditStyle);
|
||||
begin Self.FileEditStyle := T; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TOpenDialogFileEditStyle_R(Self: TOpenDialog; var T: TFileEditStyle);
|
||||
begin T := Self.FileEditStyle; end;
|
||||
begin T := Self.FileEditStyle; end;}
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TCommonDialogOnShow_W(Self: TCommonDialog; const T: TNotifyEvent);
|
||||
@ -547,13 +549,13 @@ begin Self.HelpContext := T; end;
|
||||
procedure TCommonDialogHelpContext_R(Self: TCommonDialog; var T: THelpContext);
|
||||
begin T := Self.HelpContext; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
{(*----------------------------------------------------------------------------*)
|
||||
procedure TCommonDialogCtl3D_W(Self: TCommonDialog; const T: Boolean);
|
||||
begin Self.Ctl3D := T; end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TCommonDialogCtl3D_R(Self: TCommonDialog; var T: Boolean);
|
||||
begin T := Self.Ctl3D; end;
|
||||
begin T := Self.Ctl3D; end; }
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure TCommonDialogHandle_R(Self: TCommonDialog; var T: HWnd);
|
||||
@ -598,7 +600,7 @@ end;
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure RIRegister_TPrintDialog(CL: TPSRuntimeClassImporter);
|
||||
begin
|
||||
with CL.Add(TPrintDialog) do
|
||||
{ with CL.Add(TPrintDialog) do
|
||||
begin
|
||||
RegisterPropertyHelper(@TPrintDialogCollate_R,@TPrintDialogCollate_W,'Collate');
|
||||
RegisterPropertyHelper(@TPrintDialogCopies_R,@TPrintDialogCopies_W,'Copies');
|
||||
@ -609,15 +611,15 @@ begin
|
||||
RegisterPropertyHelper(@TPrintDialogPrintToFile_R,@TPrintDialogPrintToFile_W,'PrintToFile');
|
||||
RegisterPropertyHelper(@TPrintDialogPrintRange_R,@TPrintDialogPrintRange_W,'PrintRange');
|
||||
RegisterPropertyHelper(@TPrintDialogToPage_R,@TPrintDialogToPage_W,'ToPage');
|
||||
end;
|
||||
end; }
|
||||
end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
procedure RIRegister_TPrinterSetupDialog(CL: TPSRuntimeClassImporter);
|
||||
begin
|
||||
with CL.Add(TPrinterSetupDialog) do
|
||||
{ with CL.Add(TPrinterSetupDialog) do
|
||||
begin
|
||||
end;
|
||||
end;}
|
||||
end;
|
||||
|
||||
(*----------------------------------------------------------------------------*)
|
||||
@ -626,11 +628,11 @@ begin
|
||||
with CL.Add(TFontDialog) do
|
||||
begin
|
||||
RegisterPropertyHelper(@TFontDialogFont_R,@TFontDialogFont_W,'Font');
|
||||
RegisterPropertyHelper(@TFontDialogDevice_R,@TFontDialogDevice_W,'Device');
|
||||
// RegisterPropertyHelper(@TFontDialogDevice_R,@TFontDialogDevice_W,'Device');
|
||||
RegisterPropertyHelper(@TFontDialogMinFontSize_R,@TFontDialogMinFontSize_W,'MinFontSize');
|
||||
RegisterPropertyHelper(@TFontDialogMaxFontSize_R,@TFontDialogMaxFontSize_W,'MaxFontSize');
|
||||
RegisterPropertyHelper(@TFontDialogOptions_R,@TFontDialogOptions_W,'Options');
|
||||
RegisterPropertyHelper(@TFontDialogOnApply_R,@TFontDialogOnApply_W,'OnApply');
|
||||
// RegisterPropertyHelper(@TFontDialogOnApply_R,@TFontDialogOnApply_W,'OnApply');
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -641,7 +643,7 @@ begin
|
||||
begin
|
||||
RegisterPropertyHelper(@TColorDialogColor_R,@TColorDialogColor_W,'Color');
|
||||
RegisterPropertyHelper(@TColorDialogCustomColors_R,@TColorDialogCustomColors_W,'CustomColors');
|
||||
RegisterPropertyHelper(@TColorDialogOptions_R,@TColorDialogOptions_W,'Options');
|
||||
// RegisterPropertyHelper(@TColorDialogOptions_R,@TColorDialogOptions_W,'Options');
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -658,7 +660,7 @@ procedure RIRegister_TOpenDialog(CL: TPSRuntimeClassImporter);
|
||||
begin
|
||||
with CL.Add(TOpenDialog) do
|
||||
begin
|
||||
RegisterPropertyHelper(@TOpenDialogFileEditStyle_R,@TOpenDialogFileEditStyle_W,'FileEditStyle');
|
||||
// RegisterPropertyHelper(@TOpenDialogFileEditStyle_R,@TOpenDialogFileEditStyle_W,'FileEditStyle');
|
||||
RegisterPropertyHelper(@TOpenDialogFiles_R,nil,'Files');
|
||||
RegisterPropertyHelper(@TOpenDialogHistoryList_R,@TOpenDialogHistoryList_W,'HistoryList');
|
||||
RegisterPropertyHelper(@TOpenDialogDefaultExt_R,@TOpenDialogDefaultExt_W,'DefaultExt');
|
||||
@ -672,7 +674,8 @@ begin
|
||||
RegisterPropertyHelper(@TOpenDialogOnFolderChange_R,@TOpenDialogOnFolderChange_W,'OnFolderChange');
|
||||
RegisterPropertyHelper(@TOpenDialogOnSelectionChange_R,@TOpenDialogOnSelectionChange_W,'OnSelectionChange');
|
||||
RegisterPropertyHelper(@TOpenDialogOnTypeChange_R,@TOpenDialogOnTypeChange_W,'OnTypeChange');
|
||||
RegisterPropertyHelper(@TOpenDialogOnIncludeItem_R,@TOpenDialogOnIncludeItem_W,'OnIncludeItem');
|
||||
RegisterMethod(@TOpenDialog.execute,'EXECUTE');
|
||||
// RegisterPropertyHelper(@TOpenDialogOnIncludeItem_R,@TOpenDialogOnIncludeItem_W,'OnIncludeItem');
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -682,7 +685,7 @@ begin
|
||||
with CL.Add(TCommonDialog) do
|
||||
begin
|
||||
RegisterPropertyHelper(@TCommonDialogHandle_R,nil,'Handle');
|
||||
RegisterPropertyHelper(@TCommonDialogCtl3D_R,@TCommonDialogCtl3D_W,'Ctl3D');
|
||||
// RegisterPropertyHelper(@TCommonDialogCtl3D_R,@TCommonDialogCtl3D_W,'Ctl3D');
|
||||
RegisterPropertyHelper(@TCommonDialogHelpContext_R,@TCommonDialogHelpContext_W,'HelpContext');
|
||||
RegisterPropertyHelper(@TCommonDialogOnClose_R,@TCommonDialogOnClose_W,'OnClose');
|
||||
RegisterPropertyHelper(@TCommonDialogOnShow_R,@TCommonDialogOnShow_W,'OnShow');
|
||||
|
||||
@ -49,6 +49,9 @@ procedure TCONTROLSHOWHINT_W(Self: TCONTROL; T: BOOLEAN); begin Self.SHOWHINT :=
|
||||
procedure TCONTROLSHOWHINT_R(Self: TCONTROL; var T: BOOLEAN); begin T := Self.SHOWHINT; end;
|
||||
procedure TCONTROLENABLED_W(Self: TCONTROL; T: BOOLEAN); begin Self.ENABLED := T; end;
|
||||
procedure TCONTROLENABLED_R(Self: TCONTROL; var T: BOOLEAN); begin T := Self.ENABLED; end;
|
||||
procedure TControlCaption_W(Self: TCONTROL; T: String); begin Self.Caption := T; end;
|
||||
procedure TControlCaption_R(Self: TCONTROL; var T: String); begin T := Self.Caption; end;
|
||||
procedure TControlBeginDrag(Self : TControl;Immediate : boolean); begin self.BeginDrag(Immediate); end;
|
||||
|
||||
procedure RIRegisterTControl(Cl: TPSRuntimeClassImporter);
|
||||
begin
|
||||
@ -71,7 +74,7 @@ begin
|
||||
RegisterPropertyHelper(@TControlClientWidthR, @TControlClientWidthW, 'CLIENTWIDTH');
|
||||
RegisterPropertyHelper(@TControlVisibleR, @TControlVisibleW, 'VISIBLE');
|
||||
RegisterPropertyHelper(@TCONTROLENABLED_R, @TCONTROLENABLED_W, 'ENABLED');
|
||||
|
||||
RegisterPropertyHelper(@TControlCaption_R,@TControlCaption_W,'CAPTION');
|
||||
RegisterPropertyHelper(@TControlParentR, @TControlParentW, 'PARENT');
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
@ -79,8 +82,8 @@ begin
|
||||
RegisterMethod(@TControl.HasParent, 'HASPARENT');
|
||||
RegisterMethod(@TCONTROL.CLIENTTOSCREEN, 'CLIENTTOSCREEN');
|
||||
RegisterMethod(@TCONTROL.DRAGGING, 'DRAGGING');
|
||||
RegisterMethod(@TControlBeginDrag, 'BEGINDRAG');
|
||||
{$IFNDEF FPC}
|
||||
RegisterMethod(@TCONTROL.BEGINDRAG, 'BEGINDRAG');
|
||||
RegisterMethod(@TCONTROL.ENDDRAG, 'ENDDRAG');
|
||||
{$ENDIF}
|
||||
{$IFNDEF CLX}
|
||||
|
||||
@ -30,7 +30,7 @@ uses
|
||||
{$IFDEF CLX}
|
||||
QExtCtrls, QGraphics;
|
||||
{$ELSE}
|
||||
ExtCtrls, Graphics;
|
||||
ExtCtrls, Graphics,classes;
|
||||
{$ENDIF}
|
||||
|
||||
procedure RIRegisterTSHAPE(Cl: TPSRuntimeClassImporter);
|
||||
@ -82,15 +82,28 @@ procedure RIRegisterTPANEL(Cl: TPSRuntimeClassImporter);
|
||||
begin
|
||||
Cl.Add(TPANEL);
|
||||
end;
|
||||
procedure TPagePageIndex_R(Self: TPAGE; var T: INTEGER); begin T := Self.PageIndex; end;
|
||||
procedure TPagePageIndex_W(Self: TPAGE; T: INTEGER); begin Self.PageIndex := T; end;
|
||||
procedure TPageOnShow_R(Self: TPAGE; var T: TNotifyEvent); begin T := Self.OnShow; end;
|
||||
procedure TPageOnShow_W(Self: TPAGE; T: TNotifyEvent); begin Self.OnShow := T; end;
|
||||
{$IFNDEF CLX}
|
||||
procedure RIRegisterTPAGE(Cl: TPSRuntimeClassImporter);
|
||||
begin
|
||||
Cl.Add(TPAGE);
|
||||
with Cl.Add(TPAGE) do
|
||||
begin
|
||||
RegisterPropertyHelper(@TPagePageIndex_R,@TPagePageIndex_W,'PageIndex');
|
||||
RegisterEventPropertyHelper(@TPageOnShow_R,@TPageOnShow_W,'OnShow');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TNoteBookPageCount_R(Self: TNoteBook; var T: INTEGER); begin T := Self.PageCount; end;
|
||||
procedure RIRegisterTNOTEBOOK(Cl: TPSRuntimeClassImporter);
|
||||
begin
|
||||
Cl.Add(TNOTEBOOK);
|
||||
with Cl.Add(TNOTEBOOK) do
|
||||
begin
|
||||
RegisterMethod(@TNoteBook.TabIndexAtClientPos,'TABINDEXATCLIENTPOS');
|
||||
RegisterPropertyHelper(@TNoteBookPageCount_R,nil,'PAGECOUNT');
|
||||
end;
|
||||
end;
|
||||
|
||||
{$IFNDEF FPC}
|
||||
|
||||
@ -217,7 +217,8 @@ procedure TCUSTOMLISTBOXSELECTED_R(Self: TCUSTOMLISTBOX; var T: BOOLEAN; t1: INT
|
||||
procedure TCUSTOMLISTBOXSELECTED_W(Self: TCUSTOMLISTBOX; T: BOOLEAN; t1: INTEGER); begin Self.SELECTED[t1] := T; end;
|
||||
procedure TCUSTOMLISTBOXTOPINDEX_R(Self: TCUSTOMLISTBOX; var T: INTEGER); begin T := Self.TOPINDEX; end;
|
||||
procedure TCUSTOMLISTBOXTOPINDEX_W(Self: TCUSTOMLISTBOX; T: INTEGER); begin Self.TOPINDEX := T; end;
|
||||
|
||||
procedure TCUSTOMLISTBOXITEMHEIGHT_R(Self: TCUSTOMLISTBOX; var T: INTEGER); begin T := Self.ItemHeight; end;
|
||||
procedure TCUSTOMLISTBOXITEMHEIGHT_W(Self: TCUSTOMLISTBOX; T: INTEGER); begin Self.ItemHeight := T; end;
|
||||
|
||||
procedure RIRegisterTCUSTOMLISTBOX(Cl: TPSRuntimeClassImporter);
|
||||
begin
|
||||
@ -227,6 +228,7 @@ begin
|
||||
RegisterPropertyHelper(@TCUSTOMLISTBOXITEMINDEX_R, @TCUSTOMLISTBOXITEMINDEX_W, 'ITEMINDEX');
|
||||
RegisterPropertyHelper(@TCUSTOMLISTBOXSELCOUNT_R, nil, 'SELCOUNT');
|
||||
RegisterPropertyHelper(@TCUSTOMLISTBOXSELECTED_R, @TCUSTOMLISTBOXSELECTED_W, 'SELECTED');
|
||||
RegisterPropertyHelper(@TCUSTOMLISTBOXITEMHEIGHT_R,@TCUSTOMLISTBOXITEMHEIGHT_W,'ITEMHEIGHT');
|
||||
|
||||
{$IFNDEF PS_MINIVCL}
|
||||
RegisterMethod(@TCUSTOMLISTBOX.CLEAR, 'CLEAR');
|
||||
|
||||
Loading…
Reference in New Issue
Block a user