Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix for #122

Browse Source 
- Fixed case of registered symbols using the case in Delphi sources
- Fixed formatting in method signatures
- put registration across multiple lines onto one line

    "...GAMONSERV'
     +'ER )');"

    -> "...gamOnServer)');"
This commit is contained in:
Uwe Schuster 2016-05-13 14:34:11 +02:00
parent 8416d44d61
commit 57d7291d92
33 changed files with 3112 additions and 3112 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
Source/ThirdParty/uPSI_Dialogs.pas vendored
View File

@ -44,7 +44,7 @@ begin
//with RegClassS(CL,'TCommonDialog', 'TFindDialog') do
with CL.AddClassN(CL.FindClass('TCommonDialog'),'TFindDialog') do
begin
RegisterMethod('Procedure CloseDialog');
RegisterMethod('procedure CloseDialog');
RegisterProperty('Left', 'Integer', iptrw);
RegisterProperty('Position', 'TPoint', iptrw);
RegisterProperty('Top', 'Integer', iptrw);
@ -147,8 +147,8 @@ begin
//with RegClassS(CL,'TComponent', 'TCommonDialog') do
with CL.AddClassN(CL.FindClass('TComponent'),'TCommonDialog') do
begin
RegisterProperty('Handle', 'HWnd', iptr);
RegisterProperty('Ctl3D', 'Boolean', iptrw);
RegisterProperty('Handle', 'HWND', iptr);
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('HelpContext', 'THelpContext', iptrw);
RegisterProperty('OnClose', 'TNotifyEvent', iptrw);
RegisterProperty('OnShow', 'TNotifyEvent', iptrw);
@ -160,58 +160,58 @@ procedure SIRegister_Dialogs(CL: TPSPascalCompiler);
begin
CL.AddConstantN('MaxCustomColors','LongInt').SetInt( 16);
SIRegister_TCommonDialog(CL);
CL.AddTypeS('TOpenOption', '( ofReadOnly, ofOverwritePrompt, ofHideReadOnly, '
+'ofNoChangeDir, ofShowHelp, ofNoValidate, ofAllowMultiSelect, ofExtensionDi'
+'fferent, ofPathMustExist, ofFileMustExist, ofCreatePrompt, ofShareAware, o'
+'fNoReadOnlyReturn, ofNoTestFileCreate, ofNoNetworkButton, ofNoLongNames, o'
+'fOldStyleDialog, ofNoDereferenceLinks, ofEnableIncludeNotify, ofEnableSizi'
+'ng )');
CL.AddTypeS('TOpenOption', '(ofReadOnly, ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofShowHelp, ofNoValidate, ofAllowMultiSelect, ofExtensionDifferent, ofPathMustExist, ofFileMustExist, ofCreatePrompt, ofShareAware, ofNoReadOnlyReturn, ofNoTestFileCreate, ofNoNetworkButton, ofNoLongNames, ofOldStyleDialog, ofNoDereferenceLinks, ofEnableIncludeNotify, ofEnableSizing)');
CL.AddTypeS('TOpenOptions', 'set of TOpenOption');
CL.AddTypeS('TFileEditStyle', '( fsEdit, fsComboBox )');
CL.AddTypeS('TIncludeItemEvent', 'Procedure ( const OFN : TOFNotifyEx; var In'
+'clude : Boolean)');
CL.AddTypeS('TFileEditStyle', '(fsEdit, fsComboBox)');
CL.AddTypeS('TIncludeItemEvent', 'procedure (const OFN: TOFNotifyEx; var Include: Boolean)');
SIRegister_TOpenDialog(CL);
SIRegister_TSaveDialog(CL);
CL.AddTypeS('TColorDialogOption', '( cdFullOpen, cdPreventFullOpen, cdShowHel'
+'p, cdSolidColor, cdAnyColor )');
CL.AddTypeS('TColorDialogOption', '(cdFullOpen, cdPreventFullOpen, cdShowHelp, cdSolidColor, cdAnyColor)');
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('TFontDialogOption', '(fdAnsiOnly, fdTrueTypeOnly, fdEffects, fdFixedPitchOnly, fdForceFontExist, fdNoFaceSel, fdNoOEMFonts, fdNoSimulations, fdNoSizeSel, fdNoStyleSel, fdNoVectorFonts, fdShowHelp, fdWysiwyg, fdLimitSize, 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 )');
CL.AddTypeS('TPrintDialogOption', '( poPrintToFile, poPageNums, poSelection, '
+'poWarning, poHelp, poDisablePrintToFile )');
CL.AddTypeS('TPrintRange', '(prAllPages, prSelection, prPageNums)');
CL.AddTypeS('TPrintDialogOption', '(poPrintToFile, poPageNums, poSelection, poWarning, poHelp, poDisablePrintToFile)');
CL.AddTypeS('TPrintDialogOptions', 'set of TPrintDialogOption');
SIRegister_TPrintDialog(CL);
CL.AddTypeS('TFindOption', '( frDown, frFindNext, frHideMatchCase, frHideWhol'
+'eWord, frHideUpDown, frMatchCase, frDisableMatchCase, frDisableUpDown, frD'
+'isableWholeWord, frReplace, frReplaceAll, frWholeWord, frShowHelp )');
CL.AddTypeS('TFindOption', '(frDown, frFindNext, frHideMatchCase, frHideWholeWord, frHideUpDown, frMatchCase, frDisableMatchCase, frDisableUpDown, frDisableWholeWord, frReplace, frReplaceAll, frWholeWord, frShowHelp)');
CL.AddTypeS('TFindOptions', 'set of TFindOption');
SIRegister_TFindDialog(CL);
SIRegister_TReplaceDialog(CL);
CL.AddTypeS('TMsgDlgType', '( mtWarning, mtError, mtInformation, mtConfirmati'
+'on, mtCustom )');
CL.AddTypeS('TMsgDlgBtn', '( mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, m'
+'bIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp )');
CL.AddTypeS('TMsgDlgType', '(mtWarning, mtError, mtInformation, mtConfirmation, mtCustom)');
CL.AddTypeS('TMsgDlgBtn', '(mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, 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.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 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');
end;
(* === run-time registration functions === *)
@ -682,7 +682,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');

1172
Source/ThirdParty/uPSI_IBX.pas vendored
View File

File diff suppressed because it is too large Load Diff

42
Source/ThirdParty/uPSI_JvMail.pas vendored
View File

@ -44,18 +44,18 @@ begin
//with RegClassS(CL,'TJvComponent', 'TJvMail') do
with CL.AddClassN(CL.FindClass('TComponent'),'TJvMail') do
begin
RegisterMethod('Function Address( const Caption : string; EditFields : Integer) : Boolean');
RegisterMethod('Procedure Clear');
RegisterMethod('Function ErrorCheck( Res : DWORD) : DWORD');
RegisterMethod('Function FindFirstMail : Boolean');
RegisterMethod('Function FindNextMail : Boolean');
RegisterMethod('Procedure FreeSimpleMapi');
RegisterMethod('Procedure LogOff');
RegisterMethod('Procedure LogOn');
RegisterMethod('Procedure ReadMail');
RegisterMethod('Function ResolveName( const Name : string) : string');
RegisterMethod('Function SaveMail( const MessageID : string) : string');
RegisterMethod('Procedure SendMail( ShowDialog : Boolean)');
RegisterMethod('function Address(const Caption: string; EditFields: Integer): Boolean');
RegisterMethod('procedure Clear');
RegisterMethod('function ErrorCheck(Res: DWORD): DWORD');
RegisterMethod('function FindFirstMail: Boolean');
RegisterMethod('function FindNextMail: Boolean');
RegisterMethod('procedure FreeSimpleMapi');
RegisterMethod('procedure LogOff');
RegisterMethod('procedure LogOn');
RegisterMethod('procedure ReadMail');
RegisterMethod('function ResolveName(const Name: string): string');
RegisterMethod('function SaveMail(const MessageID: string): string');
RegisterMethod('procedure SendMail(ShowDialog: Boolean)');
RegisterProperty('ReadedMail', 'TJvMailReadedData', iptr);
RegisterProperty('SeedMessageID', 'string', iptrw);
RegisterProperty('SessionHandle', 'THandle', iptr);
@ -81,9 +81,9 @@ begin
//with RegClassS(CL,'TCollection', 'TJvMailRecipients') do
with CL.AddClassN(CL.FindClass('TCollection'),'TJvMailRecipients') do
begin
RegisterMethod('Constructor Create( AOwner : TJvMail; ARecipientClass : DWORD)');
RegisterMethod('Function Add : TJvMailRecipient');
RegisterMethod('Function AddRecipient( const Address : string; const Name : string) : Integer');
RegisterMethod('constructor Create(AOwner: TJvMail; ARecipientClass: DWORD)');
RegisterMethod('function Add: TJvMailRecipient');
RegisterMethod('function AddRecipient(const Address: string; const Name: string): Integer');
RegisterProperty('Items', 'TJvMailRecipient Integer', iptrw);
SetDefaultPropery('Items');
RegisterProperty('RecipientClass', 'DWORD', iptr);
@ -106,16 +106,16 @@ end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_JvMail(CL: TPSPascalCompiler);
begin
CL.AddClassN(CL.FindClass('TOBJECT'),'TJvMail');
CL.AddClassN(CL.FindClass('TObject'),'TJvMail');
SIRegister_TJvMailRecipient(CL);
SIRegister_TJvMailRecipients(CL);
CL.AddTypeS('TJvMailLogonOption', '( loLogonUI, loNewSession )');
CL.AddTypeS('TJvMailReadOption', '( roUnreadOnly, roFifo, roPeek, roHeaderOnl'
+'y, roAttachments )');
CL.AddTypeS('TJvMailLogonOption', '(loLogonUI, loNewSession)');
CL.AddTypeS('TJvMailReadOption', '(roUnreadOnly, roFifo, roPeek, roHeaderOnly, roAttachments)');
CL.AddTypeS('TJvMailLogonOptions', 'set of TJvMailLogonOption');
CL.AddTypeS('TJvMailReadOptions', 'set of TJvMailReadOption');
CL.AddTypeS('TJvMailReadedData', 'record RecipientAddress : string; Recipient'
+'Name : string; ConversationID : string; DateReceived : TDateTime; end');
CL.AddTypeS('TJvMailReadedData', 'record RecipientAddress: string; RecipientName: string; ConversationID: string; DateReceived: TDateTime; end');
SIRegister_TJvMail(CL);
end;

60
Source/ThirdParty/uPSI_Mask.pas vendored
View File

@ -45,8 +45,8 @@ begin
//with RegClassS(CL,'TCustomEdit', 'TCustomMaskEdit') do
with CL.AddClassN(CL.FindClass('TCustomEdit'),'TCustomMaskEdit') do
begin
RegisterMethod('Procedure ValidateEdit');
RegisterMethod('Function GetTextLen : Integer');
RegisterMethod('procedure ValidateEdit');
RegisterMethod('function GetTextLen: Integer');
RegisterProperty('IsMasked', 'Boolean', iptr);
RegisterProperty('EditText', 'string', iptrw);
RegisterProperty('Text', 'string', iptrw);
@ -56,38 +56,38 @@ end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_Mask(CL: TPSPascalCompiler);
begin
CL.AddConstantN('DefaultBlank','Char').SetString( '_');
CL.AddConstantN('MaskFieldSeparator','Char').SetString( ';');
CL.AddConstantN('MaskNoSave','Char').SetString( '0');
CL.AddConstantN('mDirReverse','String').SetString( '!');
CL.AddConstantN('mDirUpperCase','String').SetString( '>');
CL.AddConstantN('mDirLowerCase','String').SetString( '<');
CL.AddConstantN('mDirLiteral','String').SetString( '\');
CL.AddConstantN('mMskAlpha','String').SetString( 'L');
CL.AddConstantN('mMskAlphaOpt','String').SetString( 'l');
CL.AddConstantN('mMskAlphaNum','String').SetString( 'A');
CL.AddConstantN('mMskAlphaNumOpt','String').SetString( 'a');
CL.AddConstantN('mMskAscii','String').SetString( 'C');
CL.AddConstantN('mMskAsciiOpt','String').SetString( 'c');
CL.AddConstantN('mMskNumeric','String').SetString( '0');
CL.AddConstantN('mMskNumericOpt','String').SetString( '9');
CL.AddConstantN('mMskNumSymOpt','String').SetString( '#');
CL.AddConstantN('mMskTimeSeparator','String').SetString( ':');
CL.AddConstantN('mMskDateSeparator','String').SetString( '/');
CL.AddTypeS('TMaskCharType', '( mcNone, mcLiteral, mcIntlLiteral, mcDirective'
+', mcMask, mcMaskOpt, mcFieldSeparator, mcField )');
CL.AddTypeS('TMaskDirective', '( mdReverseDir, mdUpperCase, mdLowerCa'
+'se, mdLiteralChar )');
CL.AddConstantN('DefaultBlank','Char').SetString('_');
CL.AddConstantN('MaskFieldSeparator','Char').SetString(';');
CL.AddConstantN('MaskNoSave','Char').SetString('0');
CL.AddConstantN('mDirReverse','string').SetString('!');
CL.AddConstantN('mDirUpperCase','string').SetString('>');
CL.AddConstantN('mDirLowerCase','string').SetString('<');
CL.AddConstantN('mDirLiteral','string').SetString('\');
CL.AddConstantN('mMskAlpha','string').SetString('L');
CL.AddConstantN('mMskAlphaOpt','string').SetString('L');
CL.AddConstantN('mMskAlphaNum','string').SetString('A');
CL.AddConstantN('mMskAlphaNumOpt','string').SetString('A');
CL.AddConstantN('mMskAscii','string').SetString('C');
CL.AddConstantN('mMskAsciiOpt','string').SetString('C');
CL.AddConstantN('mMskNumeric','string').SetString('0');
CL.AddConstantN('mMskNumericOpt','string').SetString('9');
CL.AddConstantN('mMskNumSymOpt','string').SetString('#');
CL.AddConstantN('mMskTimeSeparator','string').SetString(':');
CL.AddConstantN('mMskDateSeparator','string').SetString('/');
CL.AddTypeS('TMaskCharType', '(mcNone, mcLiteral, mcIntlLiteral, mcDirective, mcMask, mcMaskOpt, mcFieldSeparator, mcField)');
CL.AddTypeS('TMaskDirective', '(mdReverseDir, mdUpperCase, mdLowerCase, mdLiteralChar)');
CL.AddTypeS('TMaskDirectives', 'set of TMaskDirective');
CL.AddClassN(CL.FindClass('TOBJECT'),'EDBEditError');
CL.AddTypeS('TMaskedStatex', '( msMasked, msReEnter, msDBSetText )');
CL.AddClassN(CL.FindClass('TObject'),'EDBEditError');
CL.AddTypeS('TMaskedStatex', '(msMasked, msReEnter, msDBSetText)');
CL.AddTypeS('TMaskedState', 'set of TMaskedStatex');
SIRegister_TCustomMaskEdit(CL);
SIRegister_TMaskEdit(CL);
CL.AddDelphiFunction('Function FormatMaskText( const EditMask : string; const Value : string) : string');
CL.AddDelphiFunction('Function MaskGetMaskSave( const EditMask : string) : Boolean');
CL.AddDelphiFunction('Function MaskGetMaskBlank( const EditMask : string) : Char');
CL.AddDelphiFunction('Function MaskGetFldSeparator( const EditMask : string) : Integer');
CL.AddDelphiFunction('function FormatMaskText(const EditMask: string; const Value: string): string');
CL.AddDelphiFunction('function MaskGetMaskSave(const EditMask: string): Boolean');
CL.AddDelphiFunction('function MaskGetMaskBlank(const EditMask: string): Char');
CL.AddDelphiFunction('function MaskGetFldSeparator(const EditMask: string): Integer');
end;
(* === run-time registration functions === *)

188
Source/ThirdParty/uPSI_Registry.pas vendored
View File

@ -37,8 +37,8 @@ begin
//with RegClassS(CL,'TCustomIniFile', 'TRegistryIniFile') do
with CL.AddClassN(CL.FindClass('TCustomIniFile'),'TRegistryIniFile') do
begin
RegisterMethod('Constructor Create( const FileName : string);');
RegisterMethod('Constructor CreateA( const FileName : string; AAccess : LongWord);');
RegisterMethod('constructor Create(const FileName: string);');
RegisterMethod('constructor CreateA(const FileName: string; AAccess: LongWord);');
RegisterProperty('RegIniFile', 'TRegIniFile', iptr);
end;
end;
@ -49,19 +49,19 @@ begin
//with RegClassS(CL,'TRegistry', 'TRegIniFile') do
with CL.AddClassN(CL.FindClass('TRegistry'),'TRegIniFile') do
begin
RegisterMethod('Constructor Create( const FileName : string);');
RegisterMethod('Constructor CreateA( const FileName : string; AAccess : LongWord);');
RegisterMethod('Function ReadString( const Section, Ident, Default : string) : string');
RegisterMethod('Function ReadInteger( const Section, Ident : string; Default : Longint) : Longint');
RegisterMethod('Procedure WriteInteger( const Section, Ident : string; Value : Longint)');
RegisterMethod('Procedure WriteString( const Section, Ident, Value : String)');
RegisterMethod('Function ReadBool( const Section, Ident : string; Default : Boolean) : Boolean');
RegisterMethod('Procedure WriteBool( const Section, Ident : string; Value : Boolean)');
RegisterMethod('Procedure ReadSection( const Section : string; Strings : TStrings)');
RegisterMethod('Procedure ReadSections( Strings : TStrings)');
RegisterMethod('Procedure ReadSectionValues( const Section : string; Strings : TStrings)');
RegisterMethod('Procedure EraseSection( const Section : string)');
RegisterMethod('Procedure DeleteKey( const Section, Ident : String)');
RegisterMethod('constructor Create(const FileName: string);');
RegisterMethod('constructor CreateA(const FileName: string; AAccess: LongWord);');
RegisterMethod('function ReadString(const Section, Ident, Default: string): string');
RegisterMethod('function ReadInteger(const Section, Ident: string; Default: LongInt): LongInt');
RegisterMethod('procedure WriteInteger(const Section, Ident: string; Value: LongInt)');
RegisterMethod('procedure WriteString(const Section, Ident, Value: string)');
RegisterMethod('function ReadBool(const Section, Ident: string; Default: Boolean): Boolean');
RegisterMethod('procedure WriteBool(const Section, Ident: string; Value: Boolean)');
RegisterMethod('procedure ReadSection(const Section: string; Strings: TStrings)');
RegisterMethod('procedure ReadSections(Strings: TStrings)');
RegisterMethod('procedure ReadSectionValues(const Section: string; Strings: TStrings)');
RegisterMethod('procedure EraseSection(const Section: string)');
RegisterMethod('procedure DeleteKey(const Section, Ident: string)');
RegisterProperty('FileName', 'string', iptr);
end;
end;
@ -72,48 +72,48 @@ begin
//with RegClassS(CL,'TObject', 'TRegistry') do
with CL.AddClassN(CL.FindClass('TObject'),'TRegistry') do
begin
RegisterMethod('Constructor Create;');
RegisterMethod('Constructor CreateA( AAccess : LongWord);');
RegisterMethod('Procedure CloseKey');
RegisterMethod('Function CreateKey( const Key : string) : Boolean');
RegisterMethod('Function DeleteKey( const Key : string) : Boolean');
RegisterMethod('Function DeleteValue( const Name : string) : Boolean');
RegisterMethod('Function GetDataInfo( const ValueName : string; var Value : TRegDataInfo) : Boolean');
RegisterMethod('Function GetDataSize( const ValueName : string) : Integer');
RegisterMethod('Function GetDataType( const ValueName : string) : TRegDataType');
RegisterMethod('Function GetKeyInfo( var Value : TRegKeyInfo) : Boolean');
RegisterMethod('Procedure GetKeyNames( Strings : TStrings)');
RegisterMethod('Procedure GetValueNames( Strings : TStrings)');
RegisterMethod('Function HasSubKeys : Boolean');
RegisterMethod('Function KeyExists( const Key : string) : Boolean');
RegisterMethod('Function LoadKey( const Key, FileName : string) : Boolean');
RegisterMethod('Procedure MoveKey( const OldName, NewName : string; Delete : Boolean)');
RegisterMethod('Function OpenKey( const Key : string; CanCreate : Boolean) : Boolean');
RegisterMethod('Function OpenKeyReadOnly( const Key : String) : Boolean');
RegisterMethod('Function ReadCurrency( const Name : string) : Currency');
RegisterMethod('Function ReadBool( const Name : string) : Boolean');
RegisterMethod('Function ReadDate( const Name : string) : TDateTime');
RegisterMethod('Function ReadDateTime( const Name : string) : TDateTime');
RegisterMethod('Function ReadFloat( const Name : string) : Double');
RegisterMethod('Function ReadInteger( const Name : string) : Integer');
RegisterMethod('Function ReadString( const Name : string) : string');
RegisterMethod('Function ReadTime( const Name : string) : TDateTime');
RegisterMethod('Function RegistryConnect( const UNCName : string) : Boolean');
RegisterMethod('Procedure RenameValue( const OldName, NewName : string)');
RegisterMethod('Function ReplaceKey( const Key, FileName, BackUpFileName : string) : Boolean');
RegisterMethod('Function RestoreKey( const Key, FileName : string) : Boolean');
RegisterMethod('Function SaveKey( const Key, FileName : string) : Boolean');
RegisterMethod('Function UnLoadKey( const Key : string) : Boolean');
RegisterMethod('Function ValueExists( const Name : string) : Boolean');
RegisterMethod('Procedure WriteCurrency( const Name : string; Value : Currency)');
RegisterMethod('Procedure WriteBool( const Name : string; Value : Boolean)');
RegisterMethod('Procedure WriteDate( const Name : string; Value : TDateTime)');
RegisterMethod('Procedure WriteDateTime( const Name : string; Value : TDateTime)');
RegisterMethod('Procedure WriteFloat( const Name : string; Value : Double)');
RegisterMethod('Procedure WriteInteger( const Name : string; Value : Integer)');
RegisterMethod('Procedure WriteString( const Name, Value : string)');
RegisterMethod('Procedure WriteExpandString( const Name, Value : string)');
RegisterMethod('Procedure WriteTime( const Name : string; Value : TDateTime)');
RegisterMethod('constructor Create;');
RegisterMethod('constructor CreateA(AAccess: LongWord);');
RegisterMethod('procedure CloseKey');
RegisterMethod('function CreateKey(const Key: string): Boolean');
RegisterMethod('function DeleteKey(const Key: string): Boolean');
RegisterMethod('function DeleteValue(const Name: string): Boolean');
RegisterMethod('function GetDataInfo(const ValueName: string; var Value: TRegDataInfo): Boolean');
RegisterMethod('function GetDataSize(const ValueName: string): Integer');
RegisterMethod('function GetDataType(const ValueName: string): TRegDataType');
RegisterMethod('function GetKeyInfo(var Value: TRegKeyInfo): Boolean');
RegisterMethod('procedure GetKeyNames(Strings: TStrings)');
RegisterMethod('procedure GetValueNames(Strings: TStrings)');
RegisterMethod('function HasSubKeys: Boolean');
RegisterMethod('function KeyExists(const Key: string): Boolean');
RegisterMethod('function LoadKey(const Key, FileName: string): Boolean');
RegisterMethod('procedure MoveKey(const OldName, NewName: string; Delete: Boolean)');
RegisterMethod('function OpenKey(const Key: string; CanCreate: Boolean): Boolean');
RegisterMethod('function OpenKeyReadOnly(const Key: string): Boolean');
RegisterMethod('function ReadCurrency(const Name: string): Currency');
RegisterMethod('function ReadBool(const Name: string): Boolean');
RegisterMethod('function ReadDate(const Name: string): TDateTime');
RegisterMethod('function ReadDateTime(const Name: string): TDateTime');
RegisterMethod('function ReadFloat(const Name: string): Double');
RegisterMethod('function ReadInteger(const Name: string): Integer');
RegisterMethod('function ReadString(const Name: string): string');
RegisterMethod('function ReadTime(const Name: string): TDateTime');
RegisterMethod('function RegistryConnect(const UNCName: string): Boolean');
RegisterMethod('procedure RenameValue(const OldName, NewName: string)');
RegisterMethod('function ReplaceKey(const Key, FileName, BackUpFileName: string): Boolean');
RegisterMethod('function RestoreKey(const Key, FileName: string): Boolean');
RegisterMethod('function SaveKey(const Key, FileName: string): Boolean');
RegisterMethod('function UnLoadKey(const Key: string): Boolean');
RegisterMethod('function ValueExists(const Name: string): Boolean');
RegisterMethod('procedure WriteCurrency(const Name: string; Value: Currency)');
RegisterMethod('procedure WriteBool(const Name: string; Value: Boolean)');
RegisterMethod('procedure WriteDate(const Name: string; Value: TDateTime)');
RegisterMethod('procedure WriteDateTime(const Name: string; Value: TDateTime)');
RegisterMethod('procedure WriteFloat(const Name: string; Value: Double)');
RegisterMethod('procedure WriteInteger(const Name: string; Value: Integer)');
RegisterMethod('procedure WriteString(const Name, Value: string)');
RegisterMethod('procedure WriteExpandString(const Name, Value: string)');
RegisterMethod('procedure WriteTime(const Name: string; Value: TDateTime)');
RegisterProperty('CurrentKey', 'HKEY', iptr);
RegisterProperty('CurrentPath', 'string', iptr);
RegisterProperty('LazyWrite', 'Boolean', iptrw);
@ -125,7 +125,7 @@ end;
(*----------------------------------------------------------------------------*)
procedure SIRegister_Registry(CL: TPSPascalCompiler);
begin
CL.AddClassN(CL.FindClass('TOBJECT'),'ERegistryException');
CL.AddClassN(CL.FindClass('TObject'),'ERegistryException');
SIRegister_TRegistry(CL);
SIRegister_TRegIniFile(CL);
SIRegister_TRegistryIniFile(CL);
@ -300,11 +300,11 @@ begin
//with RegClassS(CL,'TCustomIniFile', 'TMemIniFile') do
with CL.AddClassN(CL.FindClass('TCustomIniFile'),'TMemIniFile') do
begin
RegisterMethod('Constructor Create( const FileName : string)');
RegisterMethod('Procedure Clear');
RegisterMethod('Procedure GetStrings( List : TStrings)');
RegisterMethod('Procedure Rename( const FileName : string; Reload : Boolean)');
RegisterMethod('Procedure SetStrings( List : TStrings)');
RegisterMethod('constructor Create(const FileName: string)');
RegisterMethod('procedure Clear');
RegisterMethod('procedure GetStrings(List: TStrings)');
RegisterMethod('procedure Rename(const FileName: string; Reload: Boolean)');
RegisterMethod('procedure SetStrings(List: TStrings)');
end;
end;
@ -315,14 +315,14 @@ begin
//with RegClassS(CL,'TCustomIniFile', 'TIniFile') do
with CL.AddClassN(CL.FindClass('TCustomIniFile'),'TIniFile') do
begin
RegisterMethod('Function ReadString( const Section, Ident, Default : string) : string');
RegisterMethod('Procedure WriteString( const Section, Ident, Value : String)');
RegisterMethod('Procedure ReadSection( const Section : string; Strings : TStrings)');
RegisterMethod('Procedure ReadSections( Strings : TStrings)');
RegisterMethod('Procedure ReadSectionValues( const Section : string; Strings : TStrings)');
RegisterMethod('Procedure EraseSection( const Section : string)');
RegisterMethod('Procedure DeleteKey( const Section, Ident : String)');
RegisterMethod('Procedure UpdateFile');
RegisterMethod('function ReadString(const Section, Ident, Default: string): string');
RegisterMethod('procedure WriteString(const Section, Ident, Value: string)');
RegisterMethod('procedure ReadSection(const Section: string; Strings: TStrings)');
RegisterMethod('procedure ReadSections(Strings: TStrings)');
RegisterMethod('procedure ReadSectionValues(const Section: string; Strings: TStrings)');
RegisterMethod('procedure EraseSection(const Section: string)');
RegisterMethod('procedure DeleteKey(const Section, Ident: string)');
RegisterMethod('procedure UpdateFile');
end;
end;
@ -332,29 +332,29 @@ begin
//with RegClassS(CL,'TObject', 'TCustomIniFile') do
with CL.AddClassN(CL.FindClass('TObject'),'TCustomIniFile') do
begin
RegisterMethod('Constructor Create( const FileName : string)');
RegisterMethod('Function SectionExists( const Section : string) : Boolean');
// RegisterMethod('Function ReadString( const Section, Ident, Default : string) : string');
// RegisterMethod('Procedure WriteString( const Section, Ident, Value : String)');
RegisterMethod('Function ReadInteger( const Section, Ident : string; Default : Longint) : Longint');
RegisterMethod('Procedure WriteInteger( const Section, Ident : string; Value : Longint)');
RegisterMethod('Function ReadBool( const Section, Ident : string; Default : Boolean) : Boolean');
RegisterMethod('Procedure WriteBool( const Section, Ident : string; Value : Boolean)');
RegisterMethod('Function ReadDate( const Section, Name : string; Default : TDateTime) : TDateTime');
RegisterMethod('Function ReadDateTime( const Section, Name : string; Default : TDateTime) : TDateTime');
RegisterMethod('Function ReadFloat( const Section, Name : string; Default : Double) : Double');
RegisterMethod('Function ReadTime( const Section, Name : string; Default : TDateTime) : TDateTime');
RegisterMethod('Procedure WriteDate( const Section, Name : string; Value : TDateTime)');
RegisterMethod('Procedure WriteDateTime( const Section, Name : string; Value : TDateTime)');
RegisterMethod('Procedure WriteFloat( const Section, Name : string; Value : Double)');
RegisterMethod('Procedure WriteTime( const Section, Name : string; Value : TDateTime)');
// RegisterMethod('Procedure ReadSection( const Section : string; Strings : TStrings)');
// RegisterMethod('Procedure ReadSections( Strings : TStrings)');
// RegisterMethod('Procedure ReadSectionValues( const Section : string; Strings : TStrings)');
// RegisterMethod('Procedure EraseSection( const Section : string)');
// RegisterMethod('Procedure DeleteKey( const Section, Ident : String)');
// RegisterMethod('Procedure UpdateFile');
RegisterMethod('Function ValueExists( const Section, Ident : string) : Boolean');
RegisterMethod('constructor Create(const FileName: string)');
RegisterMethod('function SectionExists(const Section: string): Boolean');
// RegisterMethod('function ReadString(const Section, Ident, Default: string): string');
// RegisterMethod('procedure WriteString(const Section, Ident, Value: string)');
RegisterMethod('function ReadInteger(const Section, Ident: string; Default: LongInt): LongInt');
RegisterMethod('procedure WriteInteger(const Section, Ident: string; Value: LongInt)');
RegisterMethod('function ReadBool(const Section, Ident: string; Default: Boolean): Boolean');
RegisterMethod('procedure WriteBool(const Section, Ident: string; Value: Boolean)');
RegisterMethod('function ReadDate(const Section, Name: string; Default: TDateTime): TDateTime');
RegisterMethod('function ReadDateTime(const Section, Name: string; Default: TDateTime): TDateTime');
RegisterMethod('function ReadFloat(const Section, Name: string; Default: Double): Double');
RegisterMethod('function ReadTime(const Section, Name: string; Default: TDateTime): TDateTime');
RegisterMethod('procedure WriteDate(const Section, Name: string; Value: TDateTime)');
RegisterMethod('procedure WriteDateTime(const Section, Name: string; Value: TDateTime)');
RegisterMethod('procedure WriteFloat(const Section, Name: string; Value: Double)');
RegisterMethod('procedure WriteTime(const Section, Name: string; Value: TDateTime)');
// RegisterMethod('procedure ReadSection(const Section: string; Strings: TStrings)');
// RegisterMethod('procedure ReadSections(Strings: TStrings)');
// RegisterMethod('procedure ReadSectionValues(const Section: string; Strings: TStrings)');
// RegisterMethod('procedure EraseSection(const Section: string)');
// RegisterMethod('procedure DeleteKey(const Section, Ident: string)');
// RegisterMethod('procedure UpdateFile');
RegisterMethod('function ValueExists(const Section, Ident: string): Boolean');
RegisterProperty('FileName', 'string', iptr);
end;
end;

900
Source/uPSC_DB.pas
View File

File diff suppressed because it is too large Load Diff

52
Source/uPSC_buttons.pas
View File

@ -23,39 +23,39 @@ implementation
procedure SIRegisterTSPEEDBUTTON(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TSPEEDBUTTON') do
with Cl.AddClassN(cl.FindClass('TGraphicControl'), 'TSpeedButton') do
begin
RegisterProperty('ALLOWALLUP', 'BOOLEAN', iptrw);
RegisterProperty('GROUPINDEX', 'INTEGER', iptrw);
RegisterProperty('DOWN', 'BOOLEAN', iptrw);
RegisterProperty('CAPTION', 'String', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('GLYPH', 'TBITMAP', iptrw);
RegisterProperty('LAYOUT', 'TBUTTONLAYOUT', iptrw);
RegisterProperty('MARGIN', 'INTEGER', iptrw);
RegisterProperty('NUMGLYPHS', 'BYTE', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('SPACING', 'INTEGER', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('AllowAllUp', 'Boolean', iptrw);
RegisterProperty('GroupIndex', 'Integer', iptrw);
RegisterProperty('Down', 'Boolean', iptrw);
RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('Glyph', 'TBitmap', iptrw);
RegisterProperty('Layout', 'TButtonLayout', iptrw);
RegisterProperty('Margin', 'Integer', iptrw);
RegisterProperty('NumGlyphs', 'Byte', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('Spacing', 'Integer', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
end;
end;
procedure SIRegisterTBITBTN(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TBUTTON'), 'TBITBTN') do
with Cl.AddClassN(cl.FindClass('TButton'), 'TBitBtn') do
begin
RegisterProperty('GLYPH', 'TBITMAP', iptrw);
RegisterProperty('KIND', 'TBITBTNKIND', iptrw);
RegisterProperty('LAYOUT', 'TBUTTONLAYOUT', iptrw);
RegisterProperty('MARGIN', 'INTEGER', iptrw);
RegisterProperty('NUMGLYPHS', 'BYTE', iptrw);
RegisterProperty('STYLE', 'TBUTTONSTYLE', iptrw);
RegisterProperty('SPACING', 'INTEGER', iptrw);
RegisterProperty('Glyph', 'TBitmap', iptrw);
RegisterProperty('Kind', 'TBitBtnKind', iptrw);
RegisterProperty('Layout', 'TButtonLayout', iptrw);
RegisterProperty('Margin', 'Integer', iptrw);
RegisterProperty('NumGlyphs', 'Byte', iptrw);
RegisterProperty('Style', 'TButtonStyle', iptrw);
RegisterProperty('Spacing', 'Integer', iptrw);
end;
end;

172
Source/uPSC_classes.pas
View File

@ -59,22 +59,22 @@ begin
RegisterMethod('function IndexOf(const S: string): Integer; ');
RegisterMethod('procedure Insert(Index: Integer; S: string); ');
RegisterProperty('Capacity', 'Integer', iptRW);
RegisterProperty('Delimiter', 'char', iptRW);
RegisterProperty('Delimiter', 'Char', iptRW);
{$IFDEF DELPHI2006UP}
RegisterProperty('StrictDelimiter', 'boolean', iptRW);
RegisterProperty('StrictDelimiter', 'Boolean', iptRW);
{$ENDIF}
RegisterProperty('DelimitedText', 'string', iptrw);
RegisterProperty('NameValueSeparator', 'char', iptRW);
RegisterProperty('QuoteChar', 'char', iptRW);
RegisterProperty('NameValueSeparator', 'Char', iptRW);
RegisterProperty('QuoteChar', 'Char', iptRW);
RegisterProperty('Count', 'Integer', iptR);
RegisterProperty('Text', 'String', iptrw);
RegisterProperty('CommaText', 'String', iptrw);
RegisterProperty('Text', 'string', iptrw);
RegisterProperty('CommaText', 'string', iptrw);
if Streams then
begin
RegisterMethod('procedure LoadFromFile(FileName: string); ');
RegisterMethod('procedure SaveToFile(FileName: string); ');
end;
RegisterProperty('Strings', 'String Integer', iptRW);
RegisterProperty('Strings', 'string Integer', iptRW);
SetDefaultPropery('Strings');
RegisterProperty('Objects', 'TObject Integer', iptRW);
@ -90,13 +90,13 @@ begin
if Streams then
RegisterMethod('procedure SaveToStream(Stream: TStream); ');
RegisterMethod('procedure SetText(Text: PChar); ');
RegisterProperty('Names', 'String Integer', iptr);
RegisterProperty('Values', 'String String', iptRW);
RegisterProperty('ValueFromIndex', 'String Integer', iptRW);
RegisterMethod('function AddObject(S:String;AObject:TObject):integer');
RegisterMethod('function GetText:PChar');
RegisterMethod('function IndexofObject(AObject:tObject):Integer');
RegisterMethod('procedure InsertObject(Index:Integer;S:String;AObject:TObject)');
RegisterProperty('Names', 'string Integer', iptr);
RegisterProperty('Values', 'string string', iptRW);
RegisterProperty('ValueFromIndex', 'string Integer', iptRW);
RegisterMethod('function AddObject(S: string; AObject: TObject): Integer');
RegisterMethod('function GetText: PChar');
RegisterMethod('function IndexOfObject(AObject: TObject): Integer');
RegisterMethod('procedure InsertObject(Index: Integer; S: string; AObject: TObject)');
{$ENDIF}
end;
end;
@ -108,7 +108,7 @@ begin
{$IFDEF DELPHI2005UP}
RegisterMethod('constructor Create;');
{$ENDIF}
RegisterMethod('function Find(S:String;var Index:Integer):Boolean');
RegisterMethod('function Find(S: string; var Index: Integer): Boolean');
RegisterMethod('procedure Sort');
RegisterProperty('CaseSensitive', 'Boolean', iptrw);
RegisterProperty('Duplicates', 'TDuplicates', iptrw);
@ -123,7 +123,7 @@ procedure SIRegisterTBITS(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TObject'), 'TBits') do
begin
RegisterMethod('function OpenBit:Integer');
RegisterMethod('function OpenBit: Integer');
RegisterProperty('Bits', 'Boolean Integer', iptrw);
RegisterProperty('Size', 'Integer', iptrw);
end;
@ -132,20 +132,20 @@ end;
procedure SIRegisterTSTREAM(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TOBJECT'), 'TStream') do
with Cl.AddClassN(cl.FindClass('TObject'), 'TStream') do
begin
IsAbstract := True;
RegisterMethod('function Read(Buffer:String;Count:LongInt):LongInt');
RegisterMethod('function Write(Buffer:String;Count:LongInt):LongInt');
RegisterMethod('function Seek(Offset:LongInt;Origin:Word):LongInt');
RegisterMethod('procedure ReadBuffer(Buffer:String;Count:LongInt)');
RegisterMethod('procedure WriteBuffer(Buffer:String;Count:LongInt)');
RegisterMethod('function Read(Buffer: string; Count: LongInt): LongInt');
RegisterMethod('function Write(Buffer: string; Count: LongInt): LongInt');
RegisterMethod('function Seek(Offset: LongInt; Origin: Word): LongInt');
RegisterMethod('procedure ReadBuffer(Buffer: string; Count: LongInt)');
RegisterMethod('procedure WriteBuffer(Buffer: string; Count: LongInt)');
{$IFDEF DELPHI4UP}
{$IFNDEF PS_NOINT64}
RegisterMethod('function CopyFrom(Source:TStream;Count:Int64):LongInt');
RegisterMethod('function CopyFrom(Source: TStream; Count: Int64): LongInt');
{$ENDIF}
{$ELSE}
RegisterMethod('function CopyFrom(Source:TStream;Count:Integer):LongInt');
RegisterMethod('function CopyFrom(Source: TStream; Count: Integer): LongInt');
{$ENDIF}
RegisterProperty('Position', 'LongInt', iptrw);
RegisterProperty('Size', 'LongInt', iptrw);
@ -154,9 +154,9 @@ end;
procedure SIRegisterTHANDLESTREAM(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TSTREAM'), 'THandleStream') do
with Cl.AddClassN(cl.FindClass('TStream'), 'THandleStream') do
begin
RegisterMethod('constructor Create(AHandle:Integer)');
RegisterMethod('constructor Create(AHandle: Integer)');
RegisterProperty('Handle', 'Integer', iptr);
end;
end;
@ -164,12 +164,12 @@ end;
{$IFNDEF PS_MINIVCL}
procedure SIRegisterTMEMORYSTREAM(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMMEMORYSTREAM'), 'TMemoryStream') do
with Cl.AddClassN(cl.FindClass('TCustomMemoryStream'), 'TMemoryStream') do
begin
RegisterMethod('procedure Clear');
RegisterMethod('procedure LoadFromStream(Stream:TStream)');
RegisterMethod('procedure LoadFromFile(FileName:String)');
RegisterMethod('procedure SetSize(NewSize:LongInt)');
RegisterMethod('procedure LoadFromStream(Stream: TStream)');
RegisterMethod('procedure LoadFromFile(FileName: string)');
RegisterMethod('procedure SetSize(NewSize: LongInt)');
end;
end;
{$ENDIF}
@ -178,55 +178,55 @@ procedure SIRegisterTFILESTREAM(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('THandleStream'), 'TFileStream') do
begin
RegisterMethod('constructor Create(FileName:String;Mode:Word)');
RegisterMethod('constructor Create(FileName: string; Mode: Word)');
end;
end;
procedure SIRegisterTSTRINGSTREAM(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TSTREAM'), 'TSTRINGSTREAM') do
with Cl.AddClassN(cl.FindClass('TStream'), 'TStringStream') do
begin
RegisterMethod('constructor CREATE(ASTRING:STRING)');
RegisterMethod('constructor Create(AString: string)');
end;
end;
{$IFNDEF PS_MINIVCL}
procedure SIRegisterTCUSTOMMEMORYSTREAM(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TSTREAM'), 'TCustomMemoryStream') do
with Cl.AddClassN(cl.FindClass('TStream'), 'TCustomMemoryStream') do
begin
IsAbstract := True;
RegisterMethod('procedure SaveToStream(Stream:TStream)');
RegisterMethod('procedure SaveToFile(FileName:String)');
RegisterMethod('procedure SaveToStream(Stream: TStream)');
RegisterMethod('procedure SaveToFile(FileName: string)');
end;
end;
procedure SIRegisterTRESOURCESTREAM(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMMEMORYSTREAM'), 'TResourceStream') do
with Cl.AddClassN(cl.FindClass('TCustomMemoryStream'), 'TResourceStream') do
begin
RegisterMethod('constructor Create(Instance:THandle;ResName:String;ResType:PChar)');
RegisterMethod('constructor CreateFromId(Instance:THandle;ResId:Integer;ResType:PChar)');
RegisterMethod('constructor Create(Instance: THandle; ResName: string; ResType: PChar)');
RegisterMethod('constructor CreateFromID(Instance: THandle; ResID: Integer; ResType: PChar)');
end;
end;
procedure SIRegisterTPARSER(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TOBJECT'), 'TParser') do
with Cl.AddClassN(cl.FindClass('TObject'), 'TParser') do
begin
RegisterMethod('constructor Create(Stream:TStream)');
RegisterMethod('procedure CheckToken(t:char)');
RegisterMethod('procedure CheckTokenSymbol(s:string)');
RegisterMethod('procedure Error(Ident:Integer)');
RegisterMethod('procedure ErrorStr(Message:String)');
RegisterMethod('procedure HexToBinary(Stream:TStream)');
RegisterMethod('function NextToken:Char');
RegisterMethod('function SourcePos:LongInt');
RegisterMethod('function TokenComponentIdent:String');
RegisterMethod('function TokenFloat:Extended');
RegisterMethod('function TokenInt:LongInt');
RegisterMethod('function TokenString:String');
RegisterMethod('function TokenSymbolIs(S:String):Boolean');
RegisterMethod('constructor Create(Stream: TStream)');
RegisterMethod('procedure CheckToken(T: Char)');
RegisterMethod('procedure CheckTokenSymbol(S: string)');
RegisterMethod('procedure Error(Ident: Integer)');
RegisterMethod('procedure ErrorStr(Message: string)');
RegisterMethod('procedure HexToBinary(Stream: TStream)');
RegisterMethod('function NextToken: Char');
RegisterMethod('function SourcePos: LongInt');
RegisterMethod('function TokenComponentIdent: string');
RegisterMethod('function TokenFloat: Extended');
RegisterMethod('function TokenInt: LongInt');
RegisterMethod('function TokenString: string');
RegisterMethod('function TokenSymbolIs(S: string): Boolean');
RegisterProperty('SourceLine', 'Integer', iptr);
RegisterProperty('Token', 'Char', iptr);
end;
@ -234,14 +234,14 @@ end;
procedure SIRegisterTCOLLECTIONITEM(CL: TPSPascalCompiler);
Begin
if cl.FindClass('TCOLLECTION') = nil then cl.AddClassN(cl.FindClass('TPERSISTENT'), 'TCollection');
With cl.AddClassN(cl.FindClass('TPERSISTENT'),'TCollectionItem') do
if cl.FindClass('TCollection') = nil then cl.AddClassN(cl.FindClass('TPersistent'), 'TCollection');
With cl.AddClassN(cl.FindClass('TPersistent'),'TCollectionItem') do
begin
RegisterMethod('Constructor Create( Collection : TCollection)');
RegisterMethod('constructor Create(Collection: TCollection)');
RegisterProperty('Collection', 'TCollection', iptrw);
{$IFDEF DELPHI3UP} RegisterProperty('Id', 'Integer', iptr); {$ENDIF}
{$IFDEF DELPHI3UP} RegisterProperty('ID', 'Integer', iptr); {$ENDIF}
RegisterProperty('Index', 'Integer', iptrw);
{$IFDEF DELPHI3UP} RegisterProperty('DisplayName', 'String', iptrw); {$ENDIF}
{$IFDEF DELPHI3UP} RegisterProperty('DisplayName', 'string', iptrw); {$ENDIF}
end;
end;
@ -249,19 +249,19 @@ procedure SIRegisterTCOLLECTION(CL: TPSPascalCompiler);
var
cr: TPSCompileTimeClass;
Begin
cr := CL.FindClass('TCOLLECTION');
if cr = nil then cr := cl.AddClassN(cl.FindClass('TPERSISTENT'), 'TCollection');
cr := CL.FindClass('TCollection');
if cr = nil then cr := cl.AddClassN(cl.FindClass('TPersistent'), 'TCollection');
With cr do
begin
// RegisterMethod('constructor Create( ItemClass : TCollectionItemClass)');
{$IFDEF DELPHI3UP} RegisterMethod('function Owner : TPersistent'); {$ENDIF}
RegisterMethod('function Add : TCollectionItem');
// RegisterMethod('constructor Create(ItemClass: TCollectionItemClass)');
{$IFDEF DELPHI3UP} RegisterMethod('function Owner: TPersistent'); {$ENDIF}
RegisterMethod('function Add: TCollectionItem');
RegisterMethod('procedure BeginUpdate');
RegisterMethod('procedure Clear');
{$IFDEF DELPHI5UP} RegisterMethod('procedure Delete( Index : Integer)'); {$ENDIF}
{$IFDEF DELPHI5UP} RegisterMethod('procedure Delete(Index: Integer)'); {$ENDIF}
RegisterMethod('procedure EndUpdate');
{$IFDEF DELPHI3UP} RegisterMethod('function FindItemId( Id : Integer) : TCollectionItem'); {$ENDIF}
{$IFDEF DELPHI3UP} RegisterMethod('function Insert( Index : Integer) : TCollectionItem'); {$ENDIF}
{$IFDEF DELPHI3UP} RegisterMethod('function FindItemID(ID: Integer): TCollectionItem'); {$ENDIF}
{$IFDEF DELPHI3UP} RegisterMethod('function Insert(Index: Integer): TCollectionItem'); {$ENDIF}
RegisterProperty('Count', 'Integer', iptr);
{$IFDEF DELPHI3UP} RegisterProperty('ItemClass', 'TCollectionItemClass', iptr); {$ENDIF}
RegisterProperty('Items', 'TCollectionItem Integer', iptrw);
@ -271,9 +271,9 @@ end;
{$IFDEF DELPHI3UP}
procedure SIRegisterTOWNEDCOLLECTION(CL: TPSPascalCompiler);
Begin
With Cl.AddClassN(cl.FindClass('TCOLLECTION'),'TOwnedCollection') do
With Cl.AddClassN(cl.FindClass('TCollection'),'TOwnedCollection') do
begin
// RegisterMethod('Constructor CREATE( AOWNER : TPERSISTENT; ITEMCLASS : TCOLLECTIONITEMCLASS)');
// RegisterMethod('constructor Create(AOwner: TPersistent; ItemClass: TCollectionItemClass)');
end;
end;
{$ENDIF}
@ -281,32 +281,32 @@ end;
procedure SIRegister_Classes_TypesAndConsts(Cl: TPSPascalCompiler);
begin
cl.AddConstantN('soFromBeginning', 'Longint').Value.ts32 := 0;
cl.AddConstantN('soFromCurrent', 'Longint').Value.ts32 := 1;
cl.AddConstantN('soFromEnd', 'Longint').Value.ts32 := 2;
cl.AddConstantN('soFromBeginning', 'LongInt').Value.ts32 := 0;
cl.AddConstantN('soFromCurrent', 'LongInt').Value.ts32 := 1;
cl.AddConstantN('soFromEnd', 'LongInt').Value.ts32 := 2;
cl.AddConstantN('toEOF', 'Char').SetString(#0);
cl.AddConstantN('toSymbol', 'Char').SetString(#1);
cl.AddConstantN('toString', 'Char').SetString(#2);
cl.AddConstantN('toInteger', 'Char').SetString(#3);
cl.AddConstantN('ToInteger', 'Char').SetString(#3);
cl.AddConstantN('toFloat', 'Char').SetString(#4);
cl.AddConstantN('fmCreate', 'Longint').Value.ts32 := $FFFF;
cl.AddConstantN('fmOpenRead', 'Longint').Value.ts32 := 0;
cl.AddConstantN('fmOpenWrite', 'Longint').Value.ts32 := 1;
cl.AddConstantN('fmOpenReadWrite', 'Longint').Value.ts32 := 2;
cl.AddConstantN('fmShareCompat', 'Longint').Value.ts32 := 0;
cl.AddConstantN('fmShareExclusive', 'Longint').Value.ts32 := $10;
cl.AddConstantN('fmShareDenyWrite', 'Longint').Value.ts32 := $20;
cl.AddConstantN('fmShareDenyRead', 'Longint').Value.ts32 := $30;
cl.AddConstantN('fmShareDenyNone', 'Longint').Value.ts32 := $40;
cl.AddConstantN('SecsPerDay', 'Longint').Value.ts32 := 86400;
cl.AddConstantN('MSecPerDay', 'Longint').Value.ts32 := 86400000;
cl.AddConstantN('DateDelta', 'Longint').Value.ts32 := 693594;
cl.AddConstantN('fmCreate', 'LongInt').Value.ts32 := $FFFF;
cl.AddConstantN('fmOpenRead', 'LongInt').Value.ts32 := 0;
cl.AddConstantN('fmOpenWrite', 'LongInt').Value.ts32 := 1;
cl.AddConstantN('fmOpenReadWrite', 'LongInt').Value.ts32 := 2;
cl.AddConstantN('fmShareCompat', 'LongInt').Value.ts32 := 0;
cl.AddConstantN('fmShareExclusive', 'LongInt').Value.ts32 := $10;
cl.AddConstantN('fmShareDenyWrite', 'LongInt').Value.ts32 := $20;
cl.AddConstantN('fmShareDenyRead', 'LongInt').Value.ts32 := $30;
cl.AddConstantN('fmShareDenyNone', 'LongInt').Value.ts32 := $40;
cl.AddConstantN('SecsPerDay', 'LongInt').Value.ts32 := 86400;
cl.AddConstantN('MSecPerDay', 'LongInt').Value.ts32 := 86400000;
cl.AddConstantN('DateDelta', 'LongInt').Value.ts32 := 693594;
cl.AddTypeS('TAlignment', '(taLeftJustify, taRightJustify, taCenter)');
cl.AddTypeS('THelpEvent', 'function (Command: Word; Data: Longint; var CallHelp: Boolean): Boolean');
cl.AddTypeS('THelpEvent', 'function (Command: Word; Data: LongInt; var CallHelp: Boolean): Boolean');
cl.AddTypeS('TGetStrProc', 'procedure(const S: string)');
cl.AddTypeS('TDuplicates', '(dupIgnore, dupAccept, dupError)');
cl.AddTypeS('TOperation', '(opInsert, opRemove)');
cl.AddTypeS('THANDLE', 'Longint');
cl.AddTypeS('THandle', 'LongInt');
cl.AddTypeS('TNotifyEvent', 'procedure (Sender: TObject)');
end;

8
Source/uPSC_comobj.pas
View File

@ -30,8 +30,8 @@ begin
cl.AddDelphiFunction('procedure OleCheck(Result: HResult);');
cl.AddDelphiFunction('function StringToGUID(const S: string): TGUID;');
cl.AddDelphiFunction('function CreateComObject(const ClassID: TGUID): IUnknown;');
cl.AddDelphiFunction('function CreateOleObject(const ClassName: String): IDispatch;');
cl.AddDelphiFunction('function GetActiveOleObject(const ClassName: String): IDispatch;');
cl.AddDelphiFunction('function CreateOleObject(const ClassName: string): IDispatch;');
cl.AddDelphiFunction('function GetActiveOleObject(const ClassName: string): IDispatch;');
{$ENDIF}
{$ELSE}
cl.AddTypeS('HResult', 'LongInt');
@ -45,8 +45,8 @@ begin
cl.AddDelphiFunction('function CreateComObject(const ClassID: TGUID): IUnknown;');
{$ENDIF}
{$ENDIF}
cl.AddDelphiFunction('function CreateOleObject(const ClassName: String): IDispatch;');
cl.AddDelphiFunction('function GetActiveOleObject(const ClassName: String): IDispatch;');
cl.AddDelphiFunction('function CreateOleObject(const ClassName: string): IDispatch;');
cl.AddDelphiFunction('function GetActiveOleObject(const ClassName: string): IDispatch;');
{$ENDIF}
end;

84
Source/uPSC_controls.pas
View File

@ -28,51 +28,51 @@ implementation
procedure SIRegisterTControl(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TComponent'), 'TCONTROL') do
with Cl.AddClassN(cl.FindClass('TComponent'), 'TControl') do
begin
RegisterMethod('constructor Create(AOwner: TComponent);');
RegisterMethod('procedure BringToFront;');
RegisterMethod('procedure Hide;');
RegisterMethod('procedure Invalidate;virtual;');
RegisterMethod('procedure refresh;');
RegisterMethod('procedure Repaint;virtual;');
RegisterMethod('procedure Invalidate; virtual;');
RegisterMethod('procedure Refresh;');
RegisterMethod('procedure Repaint; virtual;');
RegisterMethod('procedure SendToBack;');
RegisterMethod('procedure Show;');
RegisterMethod('procedure Update;virtual;');
RegisterMethod('procedure SetBounds(x,y,w,h: Integer);virtual;');
RegisterMethod('procedure Update; virtual;');
RegisterMethod('procedure SetBounds(X,Y,w,h: Integer); virtual;');
RegisterProperty('Left', 'Integer', iptRW);
RegisterProperty('Top', 'Integer', iptRW);
RegisterProperty('Width', 'Integer', iptRW);
RegisterProperty('Height', 'Integer', iptRW);
RegisterProperty('Hint', 'String', iptRW);
RegisterProperty('Hint', 'string', iptRW);
RegisterProperty('Align', 'TAlign', iptRW);
RegisterProperty('ClientHeight', 'Longint', iptRW);
RegisterProperty('ClientWidth', 'Longint', iptRW);
RegisterProperty('ClientHeight', 'LongInt', iptRW);
RegisterProperty('ClientWidth', 'LongInt', iptRW);
RegisterProperty('ShowHint', 'Boolean', iptRW);
RegisterProperty('Visible', 'Boolean', iptRW);
RegisterProperty('ENABLED', 'BOOLEAN', iptrw);
RegisterProperty('CURSOR', 'TCURSOR', iptrw);
RegisterProperty('Enabled', 'Boolean', iptrw);
RegisterProperty('Cursor', 'TCursor', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterMethod('function Dragging: Boolean;');
RegisterMethod('function HasParent: Boolean');
RegisterMethod('procedure BEGINDRAG(IMMEDIATE:BOOLEAN)');
RegisterMethod('function CLIENTTOSCREEN(POINT:TPOINT):TPOINT');
RegisterMethod('procedure ENDDRAG(DROP:BOOLEAN)');
RegisterMethod('procedure BeginDrag(Immediate: Boolean)');
RegisterMethod('function ClientToScreen(Point: TPoint): TPoint');
RegisterMethod('procedure EndDrag(Drop: Boolean)');
{$IFNDEF CLX}
RegisterMethod('function GETTEXTBUF(BUFFER:PCHAR;BUFSIZE:INTEGER):INTEGER');
RegisterMethod('function GETTEXTLEN:INTEGER');
RegisterMethod('procedure SETTEXTBUF(BUFFER:PCHAR)');
RegisterMethod('function PERFORM(MSG:CARDINAL;WPARAM,LPARAM:LONGINT):LONGINT');
RegisterMethod('function GetTextBuf(Buffer: PChar; BufSize: Integer): Integer');
RegisterMethod('function GetTextLen: Integer');
RegisterMethod('procedure SetTextBuf(Buffer: PChar)');
RegisterMethod('function Perform(Msg: Cardinal; WPARAM,LPARAM: LongInt): LongInt');
{$ENDIF}
RegisterMethod('function SCREENTOCLIENT(POINT:TPOINT):TPOINT');
RegisterMethod('function ScreenToClient(Point: TPoint): TPoint');
{$ENDIF}
end;
end;
procedure SIRegisterTWinControl(Cl: TPSPascalCompiler); // requires TControl
begin
with Cl.AddClassN(cl.FindClass('TControl'), 'TWINCONTROL') do
with Cl.AddClassN(cl.FindClass('TControl'), 'TWinControl') do
begin
with Cl.FindClass('TControl') do
@ -81,15 +81,15 @@ begin
end;
{$IFNDEF CLX}
RegisterProperty('Handle', 'Longint', iptR);
RegisterProperty('Handle', 'LongInt', iptR);
{$ENDIF}
RegisterProperty('Showing', 'Boolean', iptR);
RegisterProperty('TabOrder', 'Integer', iptRW);
RegisterProperty('TabStop', 'Boolean', iptRW);
RegisterMethod('function CANFOCUS:BOOLEAN');
RegisterMethod('function FOCUSED:BOOLEAN');
RegisterProperty('CONTROLS', 'TCONTROL INTEGER', iptr);
RegisterProperty('CONTROLCOUNT', 'INTEGER', iptr);
RegisterMethod('function CanFocus: Boolean');
RegisterMethod('function Focused: Boolean');
RegisterProperty('Controls', 'TControl Integer', iptr);
RegisterProperty('ControlCount', 'Integer', iptr);
{$IFNDEF PS_MINIVCL}
RegisterMethod('function HandleAllocated: Boolean;');
@ -102,26 +102,26 @@ begin
RegisterMethod('procedure ScrollBy(DeltaX, DeltaY: Integer);');
RegisterMethod('procedure SetFocus; virtual;');
{$IFNDEF CLX}
RegisterMethod('procedure PAINTTO(DC:Longint;X,Y:INTEGER)');
RegisterMethod('procedure PaintTo(DC: LongInt; X,Y: Integer)');
{$ENDIF}
RegisterMethod('function CONTAINSCONTROL(CONTROL:TCONTROL):BOOLEAN');
RegisterMethod('procedure DISABLEALIGN');
RegisterMethod('procedure UPDATECONTROLSTATE');
RegisterMethod('function ContainsControl(Control: TControl): Boolean');
RegisterMethod('procedure DisableAlign');
RegisterMethod('procedure UpdateControlState');
RegisterProperty('BRUSH', 'TBRUSH', iptr);
RegisterProperty('HELPCONTEXT', 'LONGINT', iptrw);
RegisterProperty('Brush', 'TBrush', iptr);
RegisterProperty('HelpContext', 'LongInt', iptrw);
{$ENDIF}
end;
end;
procedure SIRegisterTGraphicControl(cl: TPSPascalCompiler); // requires TControl
begin
Cl.AddClassN(cl.FindClass('TControl'), 'TGRAPHICCONTROL');
Cl.AddClassN(cl.FindClass('TControl'), 'TGraphicControl');
end;
procedure SIRegisterTCustomControl(cl: TPSPascalCompiler); // requires TWinControl
begin
Cl.AddClassN(cl.FindClass('TWinControl'), 'TCUSTOMCONTROL');
Cl.AddClassN(cl.FindClass('TWinControl'), 'TCustomControl');
end;
procedure SIRegister_Controls_TypesAndConsts(Cl: TPSPascalCompiler);
@ -142,8 +142,8 @@ begin
cl.AddTypeS('TKeyEvent', 'procedure (Sender: TObject; var Key: Word; Shift: TShiftState);');
cl.AddTypeS('TKeyPressEvent', 'procedure(Sender: TObject; var Key: Char);');
cl.AddTypeS('TDragOverEvent', 'procedure(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean)');
cl.AddTypeS('TDragDropEvent', 'procedure(Sender, Source: TObject;X, Y: Integer)');
cl.AddTypeS('HWND', 'Longint');
cl.AddTypeS('TDragDropEvent', 'procedure(Sender, Source: TObject; X, Y: Integer)');
cl.AddTypeS('HWND', 'LongInt');
cl.AddTypeS('TEndDragEvent', 'procedure(Sender, Target: TObject; X, Y: Integer)');
@ -153,7 +153,7 @@ begin
cl.addTypeS('TAnchors','set of TAnchorKind');
cl.AddTypeS('TModalResult', 'Integer');
cl.AddTypeS('TCursor', 'Integer');
cl.AddTypeS('TPoint', 'record x,y: Longint; end;');
cl.AddTypeS('TPoint', 'record X,Y: LongInt; end;');
cl.AddConstantN('mrNone', 'Integer').Value.ts32 := 0;
cl.AddConstantN('mrOk', 'Integer').Value.ts32 := 1;
@ -200,17 +200,17 @@ begin
begin
{$IFNDEF PS_MINIVCL}
{$IFDEF DELPHI4UP}
RegisterMethod('Procedure Assign( Source : TDragObject)');
RegisterMethod('procedure Assign(Source: TDragObject)');
{$ENDIF}
{$IFNDEF FPC}
RegisterMethod('Function GetName : String');
RegisterMethod('Function Instance : Longint');
RegisterMethod('function GetName: string');
RegisterMethod('function Instance: LongInt');
{$ENDIF}
RegisterMethod('Procedure HideDragImage');
RegisterMethod('Procedure ShowDragImage');
RegisterMethod('procedure HideDragImage');
RegisterMethod('procedure ShowDragImage');
{$IFDEF DELPHI4UP}
RegisterProperty('Cancelling', 'Boolean', iptrw);
RegisterProperty('DragHandle', 'Longint', iptrw);
RegisterProperty('DragHandle', 'LongInt', iptrw);
RegisterProperty('DragPos', 'TPoint', iptrw);
RegisterProperty('DragTargetPos', 'TPoint', iptrw);
RegisterProperty('MouseDeltaX', 'Double', iptr);

6
Source/uPSC_dateutils.pas
View File

@ -26,9 +26,9 @@ begin
s.AddDelphiFunction('function DateTimeToUnix(D: TDateTime): Int64;');
s.AddDelphiFunction('function UnixToDateTime(U: Int64): TDateTime;');
s.AddDelphiFunction('function DateToStr(D: TDateTime): String;');
s.AddDelphiFunction('function StrToDate(const s: String): TDateTime;');
s.AddDelphiFunction('function FormatDateTime(const fmt: String; D: TDateTime): String;');
s.AddDelphiFunction('function DateToStr(D: TDateTime): string;');
s.AddDelphiFunction('function StrToDate(const S: string): TDateTime;');
s.AddDelphiFunction('function FormatDateTime(const fmt: string; D: TDateTime): string;');
end;
end.

4
Source/uPSC_dll.pas
View File

@ -148,8 +148,8 @@ end;
procedure RegisterDll_Compiletime(cs: TPSPascalCompiler);
begin
cs.OnExternalProc := DllExternalProc;
cs.AddFunction('procedure UnloadDll(s: string)');
cs.AddFunction('function DLLGetLastError: Longint');
cs.AddFunction('procedure UnloadDll(S: string)');
cs.AddFunction('function DllGetLastError: LongInt');
end;
begin

310
Source/uPSC_extctrls.pas
View File

@ -36,211 +36,211 @@ procedure SIRegister_ExtCtrls(cl: TPSPascalCompiler);
implementation
procedure SIRegisterTSHAPE(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TSHAPE') do
with Cl.AddClassN(cl.FindClass('TGraphicControl'), 'TShape') do
begin
RegisterProperty('BRUSH', 'TBRUSH', iptrw);
RegisterProperty('PEN', 'TPEN', iptrw);
RegisterProperty('SHAPE', 'TSHAPETYPE', iptrw);
RegisterProperty('Brush', 'TBrush', iptrw);
RegisterProperty('Pen', 'TPen', iptrw);
RegisterProperty('Shape', 'TShapeType', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterMethod('procedure STYLECHANGED(SENDER:TOBJECT)');
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterMethod('procedure StyleChanged(Sender: TObject)');
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
procedure SIRegisterTIMAGE(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TIMAGE') do
with Cl.AddClassN(cl.FindClass('TGraphicControl'), 'TImage') do
begin
RegisterProperty('CANVAS', 'TCANVAS', iptr);
RegisterProperty('AUTOSIZE', 'BOOLEAN', iptrw);
RegisterProperty('CENTER', 'BOOLEAN', iptrw);
RegisterProperty('PICTURE', 'TPICTURE', iptrw);
RegisterProperty('STRETCH', 'BOOLEAN', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('Canvas', 'TCanvas', iptr);
RegisterProperty('AutoSize', 'Boolean', iptrw);
RegisterProperty('Center', 'Boolean', iptrw);
RegisterProperty('Picture', 'TPicture', iptrw);
RegisterProperty('Stretch', 'Boolean', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
procedure SIRegisterTPAINTBOX(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TPAINTBOX') do
with Cl.AddClassN(cl.FindClass('TGraphicControl'), 'TPaintBox') do
begin
RegisterProperty('CANVAS', 'TCanvas', iptr);
RegisterProperty('COLOR', 'TColor', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONPAINT', 'TNOTIFYEVENT', iptrw);
RegisterProperty('Canvas', 'TCanvas', iptr);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('ParentColor', 'Boolean', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnPaint', 'TNotifyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
procedure SIRegisterTBEVEL(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TBEVEL') do
with Cl.AddClassN(cl.FindClass('TGraphicControl'), 'TBevel') do
begin
RegisterProperty('SHAPE', 'TBEVELSHAPE', iptrw);
RegisterProperty('STYLE', 'TBEVELSTYLE', iptrw);
RegisterProperty('Shape', 'TBevelShape', iptrw);
RegisterProperty('Style', 'TBevelStyle', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
{$ENDIF}
end;
end;
procedure SIRegisterTTIMER(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCOMPONENT'), 'TTIMER') do
with Cl.AddClassN(cl.FindClass('TComponent'), 'TTimer') do
begin
RegisterProperty('ENABLED', 'BOOLEAN', iptrw);
RegisterProperty('INTERVAL', 'CARDINAL', iptrw);
RegisterProperty('ONTIMER', 'TNOTIFYEVENT', iptrw);
RegisterProperty('Enabled', 'Boolean', iptrw);
RegisterProperty('Interval', 'Cardinal', iptrw);
RegisterProperty('OnTimer', 'TNotifyEvent', iptrw);
end;
end;
procedure SIRegisterTCUSTOMPANEL(Cl: TPSPascalCompiler);
begin
Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TCUSTOMPANEL');
Cl.AddClassN(cl.FindClass('TCustomControl'), 'TCustomPanel');
end;
procedure SIRegisterTPANEL(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMPANEL'), 'TPANEL') do
with Cl.AddClassN(cl.FindClass('TCustomPanel'), 'TPanel') do
begin
RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
RegisterProperty('BEVELINNER', 'TPanelBevel', iptrw);
RegisterProperty('BEVELOUTER', 'TPanelBevel', iptrw);
RegisterProperty('BEVELWIDTH', 'TBevelWidth', iptrw);
RegisterProperty('BORDERWIDTH', 'TBorderWidth', iptrw);
RegisterProperty('BORDERSTYLE', 'TBorderStyle', iptrw);
RegisterProperty('CAPTION', 'String', iptrw);
RegisterProperty('COLOR', 'TColor', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
RegisterProperty('Alignment', 'TAlignment', iptrw);
RegisterProperty('BevelInner', 'TPanelBevel', iptrw);
RegisterProperty('BevelOuter', 'TPanelBevel', iptrw);
RegisterProperty('BevelWidth', 'TBevelWidth', iptrw);
RegisterProperty('BorderWidth', 'TBorderWidth', iptrw);
RegisterProperty('BorderStyle', 'TBorderStyle', iptrw);
RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('ParentColor', 'Boolean', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnEnter', 'TNotifyEvent', iptrw);
RegisterProperty('OnExit', 'TNotifyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('LOCKED', 'Boolean', iptrw);
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('ONRESIZE', 'TNotifyEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('Locked', 'Boolean', iptrw);
RegisterProperty('ParentCtl3D', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnResize', 'TNotifyEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
{$IFNDEF CLX}
procedure SIRegisterTPAGE(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TPAGE') do
with Cl.AddClassN(cl.FindClass('TCustomControl'), 'TPage') do
begin
RegisterProperty('CAPTION', 'String', iptrw);
RegisterProperty('Caption', 'string', iptrw);
end;
end;
procedure SIRegisterTNOTEBOOK(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TNOTEBOOK') do
with Cl.AddClassN(cl.FindClass('TCustomControl'), 'TNotebook') do
begin
RegisterProperty('ACTIVEPAGE', 'String', iptrw);
RegisterProperty('COLOR', 'TColor', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('PAGEINDEX', 'INTEGER', iptrw);
RegisterProperty('PAGES', 'TSTRINGS', iptrw);
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
RegisterProperty('ONPAGECHANGED', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ActivePage', 'string', iptrw);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('PageIndex', 'Integer', iptrw);
RegisterProperty('Pages', 'TStrings', iptrw);
RegisterProperty('ParentColor', 'Boolean', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnEnter', 'TNotifyEvent', iptrw);
RegisterProperty('OnExit', 'TNotifyEvent', iptrw);
RegisterProperty('OnPageChanged', 'TNotifyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('ParentCtl3D', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
procedure SIRegisterTHEADER(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'THEADER') do
with Cl.AddClassN(cl.FindClass('TCustomControl'), 'THeader') do
begin
RegisterProperty('SECTIONWIDTH', 'INTEGER INTEGER', iptrw);
RegisterProperty('ALLOWRESIZE', 'BOOLEAN', iptrw);
RegisterProperty('BORDERSTYLE', 'TBORDERSTYLE', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('SECTIONS', 'TSTRINGS', iptrw);
RegisterProperty('ONSIZING', 'TSECTIONEVENT', iptrw);
RegisterProperty('ONSIZED', 'TSECTIONEVENT', iptrw);
RegisterProperty('SectionWidth', 'Integer Integer', iptrw);
RegisterProperty('AllowResize', 'Boolean', iptrw);
RegisterProperty('BorderStyle', 'TBorderStyle', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('Sections', 'TStrings', iptrw);
RegisterProperty('OnSizing', 'TSectionEvent', iptrw);
RegisterProperty('OnSized', 'TSectionEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
{$ENDIF}
end;
end;
@ -248,36 +248,36 @@ end;
procedure SIRegisterTCUSTOMRADIOGROUP(Cl: TPSPascalCompiler);
begin
Cl.AddClassN(cl.FindClass('TCUSTOMGROUPBOX'), 'TCUSTOMRADIOGROUP');
Cl.AddClassN(cl.FindClass('TCustomGroupBox'), 'TCustomRadioGroup');
end;
procedure SIRegisterTRADIOGROUP(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMRADIOGROUP'), 'TRADIOGROUP') do
with Cl.AddClassN(cl.FindClass('TCustomRadioGroup'), 'TRadioGroup') do
begin
RegisterProperty('CAPTION', 'String', iptrw);
RegisterProperty('COLOR', 'TColor', iptrw);
RegisterProperty('COLUMNS', 'Integer', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('ITEMINDEX', 'Integer', iptrw);
RegisterProperty('ITEMS', 'TStrings', iptrw);
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Columns', 'Integer', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('ItemIndex', 'Integer', iptrw);
RegisterProperty('Items', 'TStrings', iptrw);
RegisterProperty('ParentColor', 'Boolean', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnEnter', 'TNotifyEvent', iptrw);
RegisterProperty('OnExit', 'TNotifyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('ParentCtl3D', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
@ -288,8 +288,8 @@ begin
cl.AddTypeS('TBevelStyle', '(bsLowered, bsRaised)');
cl.AddTypeS('TBevelShape', '(bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine, bsRightLine,bsSpacer)');
cl.AddTypeS('TPanelBevel', '(bvNone, bvLowered, bvRaised,bvSpace)');
cl.AddTypeS('TBevelWidth', 'Longint');
cl.AddTypeS('TBorderWidth', 'Longint');
cl.AddTypeS('TBevelWidth', 'LongInt');
cl.AddTypeS('TBorderWidth', 'LongInt');
cl.AddTypeS('TSectionEvent', 'procedure(Sender: TObject; ASection, AWidth: Integer)');
end;

316
Source/uPSC_forms.pas
View File

@ -21,209 +21,209 @@ implementation
procedure SIRegisterTCONTROLSCROLLBAR(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TPERSISTENT'), 'TCONTROLSCROLLBAR') do
with Cl.AddClassN(cl.FindClass('TPersistent'), 'TControlScrollBar') do
begin
RegisterProperty('KIND', 'TSCROLLBARKIND', iptr);
RegisterProperty('SCROLLPOS', 'INTEGER', iptr);
RegisterProperty('MARGIN', 'WORD', iptrw);
RegisterProperty('INCREMENT', 'TSCROLLBARINC', iptrw);
RegisterProperty('RANGE', 'INTEGER', iptrw);
RegisterProperty('POSITION', 'INTEGER', iptrw);
RegisterProperty('TRACKING', 'BOOLEAN', iptrw);
RegisterProperty('VISIBLE', 'BOOLEAN', iptrw);
RegisterProperty('Kind', 'TScrollBarKind', iptr);
RegisterProperty('ScrollPos', 'Integer', iptr);
RegisterProperty('Margin', 'Word', iptrw);
RegisterProperty('Increment', 'TScrollBarInc', iptrw);
RegisterProperty('Range', 'Integer', iptrw);
RegisterProperty('Position', 'Integer', iptrw);
RegisterProperty('Tracking', 'Boolean', iptrw);
RegisterProperty('Visible', 'Boolean', iptrw);
end;
end;
procedure SIRegisterTSCROLLINGWINCONTROL(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TSCROLLINGWINCONTROL') do
with Cl.AddClassN(cl.FindClass('TWinControl'), 'TScrollingWinControl') do
begin
RegisterMethod('procedure SCROLLINVIEW(ACONTROL:TCONTROL)');
RegisterProperty('HORZSCROLLBAR', 'TCONTROLSCROLLBAR', iptrw);
RegisterProperty('VERTSCROLLBAR', 'TCONTROLSCROLLBAR', iptrw);
RegisterMethod('procedure ScrollInView(AControl: TControl)');
RegisterProperty('HorzScrollBar', 'TControlScrollBar', iptrw);
RegisterProperty('VertScrollBar', 'TControlScrollBar', iptrw);
end;
end;
procedure SIRegisterTSCROLLBOX(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TSCROLLINGWINCONTROL'), 'TSCROLLBOX') do
with Cl.AddClassN(cl.FindClass('TScrollingWinControl'), 'TScrollBox') do
begin
RegisterProperty('BORDERSTYLE', 'TBORDERSTYLE', iptrw);
RegisterProperty('COLOR', 'TCOLOR', iptrw);
RegisterProperty('FONT', 'TFONT', iptrw);
RegisterProperty('AUTOSCROLL', 'BOOLEAN', iptrw);
RegisterProperty('PARENTCOLOR', 'BOOLEAN', iptrw);
RegisterProperty('PARENTFONT', 'BOOLEAN', iptrw);
RegisterProperty('ONCLICK', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONDBLCLICK', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONENTER', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONEXIT', 'TNOTIFYEVENT', iptrw);
RegisterProperty('BorderStyle', 'TBorderStyle', iptrw);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('AutoScroll', 'Boolean', iptrw);
RegisterProperty('ParentColor', 'Boolean', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnEnter', 'TNotifyEvent', iptrw);
RegisterProperty('OnExit', 'TNotifyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('ONRESIZE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('DRAGCURSOR', 'TCURSOR', iptrw);
RegisterProperty('DRAGMODE', 'TDRAGMODE', iptrw);
RegisterProperty('PARENTSHOWHINT', 'BOOLEAN', iptrw);
RegisterProperty('POPUPMENU', 'TPOPUPMENU', iptrw);
RegisterProperty('CTL3D', 'BOOLEAN', iptrw);
RegisterProperty('PARENTCTL3D', 'BOOLEAN', iptrw);
RegisterProperty('ONDRAGDROP', 'TDRAGDROPEVENT', iptrw);
RegisterProperty('ONDRAGOVER', 'TDRAGOVEREVENT', iptrw);
RegisterProperty('ONENDDRAG', 'TENDDRAGEVENT', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMOUSEEVENT', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMOUSEMOVEEVENT', iptrw);
RegisterProperty('ONMOUSEUP', 'TMOUSEEVENT', iptrw);
RegisterProperty('OnResize', 'TNotifyEvent', iptrw);
RegisterProperty('DragCursor', 'TCursor', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('ParentCtl3D', 'Boolean', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
{$ENDIF}
end;
end;
procedure SIRegisterTFORM(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TSCROLLINGWINCONTROL'), 'TFORM') do
with Cl.AddClassN(cl.FindClass('TScrollingWinControl'), 'TForm') do
begin
{$IFDEF DELPHI4UP}
RegisterMethod('constructor CREATENEW(AOWNER:TCOMPONENT; Dummy: Integer)');
RegisterMethod('constructor CreateNew(AOwner: TComponent; Dummy: Integer)');
{$ELSE}
RegisterMethod('constructor CREATENEW(AOWNER:TCOMPONENT)');
RegisterMethod('constructor CreateNew(AOwner: TComponent)');
{$ENDIF}
RegisterMethod('procedure CLOSE');
RegisterMethod('procedure HIDE');
RegisterMethod('procedure SHOW');
RegisterMethod('function SHOWMODAL:INTEGER');
RegisterMethod('procedure RELEASE');
RegisterProperty('ACTIVE', 'BOOLEAN', iptr);
RegisterProperty('ACTIVECONTROL', 'TWINCONTROL', iptrw);
RegisterProperty('BORDERICONS', 'TBorderIcons', iptrw);
RegisterProperty('BORDERSTYLE', 'TFORMBORDERSTYLE', iptrw);
RegisterProperty('CAPTION', 'NativeString', iptrw);
RegisterProperty('AUTOSCROLL', 'BOOLEAN', iptrw);
RegisterProperty('COLOR', 'TCOLOR', iptrw);
RegisterProperty('FONT', 'TFONT', iptrw);
RegisterProperty('FORMSTYLE', 'TFORMSTYLE', iptrw);
RegisterProperty('KEYPREVIEW', 'BOOLEAN', iptrw);
RegisterProperty('POSITION', 'TPOSITION', iptrw);
RegisterProperty('ONACTIVATE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONCLICK', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONDBLCLICK', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONCLOSE', 'TCLOSEEVENT', iptrw);
RegisterProperty('ONCLOSEQUERY', 'TCLOSEQUERYEVENT', iptrw);
RegisterProperty('ONCREATE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONDESTROY', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONDEACTIVATE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONHIDE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONKEYDOWN', 'TKEYEVENT', iptrw);
RegisterProperty('ONKEYPRESS', 'TKEYPRESSEVENT', iptrw);
RegisterProperty('ONKEYUP', 'TKEYEVENT', iptrw);
RegisterProperty('ONRESIZE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONSHOW', 'TNOTIFYEVENT', iptrw);
RegisterMethod('procedure Close');
RegisterMethod('procedure Hide');
RegisterMethod('procedure Show');
RegisterMethod('function ShowModal: Integer');
RegisterMethod('procedure Release');
RegisterProperty('Active', 'Boolean', iptr);
RegisterProperty('ActiveControl', 'TWinControl', iptrw);
RegisterProperty('BorderIcons', 'TBorderIcons', iptrw);
RegisterProperty('BorderStyle', 'TFormBorderStyle', iptrw);
RegisterProperty('Caption', 'NativeString', iptrw);
RegisterProperty('AutoScroll', 'Boolean', iptrw);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('FormStyle', 'TFormStyle', iptrw);
RegisterProperty('KeyPreview', 'Boolean', iptrw);
RegisterProperty('Position', 'TPosition', iptrw);
RegisterProperty('OnActivate', 'TNotifyEvent', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnClose', 'TCloseEvent', iptrw);
RegisterProperty('OnCloseQuery', 'TCloseQueryEvent', iptrw);
RegisterProperty('OnCreate', 'TNotifyEvent', iptrw);
RegisterProperty('OnDestroy', 'TNotifyEvent', iptrw);
RegisterProperty('OnDeactivate', 'TNotifyEvent', iptrw);
RegisterProperty('OnHide', 'TNotifyEvent', iptrw);
RegisterProperty('OnKeyDown', 'TKeyEvent', iptrw);
RegisterProperty('OnKeyPress', 'TKeyPressEvent', iptrw);
RegisterProperty('OnKeyUp', 'TKeyEvent', iptrw);
RegisterProperty('OnResize', 'TNotifyEvent', iptrw);
RegisterProperty('OnShow', 'TNotifyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
{$IFNDEF CLX}
RegisterMethod('procedure ARRANGEICONS');
// RegisterMethod('function GETFORMIMAGE:TBITMAP');
RegisterMethod('procedure PRINT');
RegisterMethod('procedure SENDCANCELMODE(SENDER:TCONTROL)');
RegisterProperty('ACTIVEOLECONTROL', 'TWINCONTROL', iptrw);
RegisterProperty('OLEFORMOBJECT', 'TOLEFORMOBJECT', iptrw);
RegisterProperty('CLIENTHANDLE', 'LONGINT', iptr);
RegisterProperty('TILEMODE', 'TTILEMODE', iptrw);
RegisterMethod('procedure ArrangeIcons');
// RegisterMethod('function GetFormImage: TBitmap');
RegisterMethod('procedure Print');
RegisterMethod('procedure SendCancelMode(Sender: TControl)');
RegisterProperty('ActiveOleControl', 'TWinControl', iptrw);
RegisterProperty('OleFormObject', 'TOLEFormObject', iptrw);
RegisterProperty('ClientHandle', 'LongInt', iptr);
RegisterProperty('TileMode', 'TTileMode', iptrw);
{$ENDIF}
RegisterMethod('procedure CASCADE');
RegisterMethod('function CLOSEQUERY:BOOLEAN');
RegisterMethod('procedure DEFOCUSCONTROL(CONTROL:TWINCONTROL;REMOVING:BOOLEAN)');
RegisterMethod('procedure FOCUSCONTROL(CONTROL:TWINCONTROL)');
RegisterMethod('procedure NEXT');
RegisterMethod('procedure PREVIOUS');
RegisterMethod('function SETFOCUSEDCONTROL(CONTROL:TWINCONTROL):BOOLEAN');
RegisterMethod('procedure TILE');
RegisterProperty('ACTIVEMDICHILD', 'TFORM', iptr);
RegisterProperty('CANVAS', 'TCANVAS', iptr);
RegisterProperty('DROPTARGET', 'BOOLEAN', iptrw);
RegisterProperty('MODALRESULT', 'Longint', iptrw);
RegisterProperty('MDICHILDCOUNT', 'INTEGER', iptr);
RegisterProperty('MDICHILDREN', 'TFORM INTEGER', iptr);
RegisterProperty('ICON', 'TICON', iptrw);
RegisterProperty('MENU', 'TMAINMENU', iptrw);
RegisterProperty('OBJECTMENUITEM', 'TMENUITEM', iptrw);
RegisterProperty('PIXELSPERINCH', 'INTEGER', iptrw);
RegisterProperty('PRINTSCALE', 'TPRINTSCALE', iptrw);
RegisterProperty('SCALED', 'BOOLEAN', iptrw);
RegisterProperty('WINDOWSTATE', 'TWINDOWSTATE', iptrw);
RegisterProperty('WINDOWMENU', 'TMENUITEM', iptrw);
RegisterProperty('CTL3D', 'BOOLEAN', iptrw);
RegisterProperty('POPUPMENU', 'TPOPUPMENU', iptrw);
RegisterProperty('ONDRAGDROP', 'TDRAGDROPEVENT', iptrw);
RegisterProperty('ONDRAGOVER', 'TDRAGOVEREVENT', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMOUSEEVENT', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMOUSEMOVEEVENT', iptrw);
RegisterProperty('ONMOUSEUP', 'TMOUSEEVENT', iptrw);
RegisterProperty('ONPAINT', 'TNOTIFYEVENT', iptrw);
RegisterMethod('procedure Cascade');
RegisterMethod('function CloseQuery: Boolean');
RegisterMethod('procedure DefocusControl(Control: TWinControl; Removing: Boolean)');
RegisterMethod('procedure FocusControl(Control: TWinControl)');
RegisterMethod('procedure Next');
RegisterMethod('procedure Previous');
RegisterMethod('function SetFocusedControl(Control: TWinControl): Boolean');
RegisterMethod('procedure Tile');
RegisterProperty('ActiveMDIChild', 'TForm', iptr);
RegisterProperty('Canvas', 'TCanvas', iptr);
RegisterProperty('DropTarget', 'Boolean', iptrw);
RegisterProperty('ModalResult', 'LongInt', iptrw);
RegisterProperty('MDIChildCount', 'Integer', iptr);
RegisterProperty('MDIChildren', 'TForm Integer', iptr);
RegisterProperty('Icon', 'TIcon', iptrw);
RegisterProperty('Menu', 'TMainMenu', iptrw);
RegisterProperty('ObjectMenuItem', 'TMenuItem', iptrw);
RegisterProperty('PixelsPerInch', 'Integer', iptrw);
RegisterProperty('PrintScale', 'TPrintScale', iptrw);
RegisterProperty('Scaled', 'Boolean', iptrw);
RegisterProperty('WindowState', 'TWindowState', iptrw);
RegisterProperty('WindowMenu', 'TMenuItem', iptrw);
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnPaint', 'TNotifyEvent', iptrw);
{$ENDIF}
end;
end;
procedure SIRegisterTAPPLICATION(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCOMPONENT'), 'TAPPLICATION') do
with Cl.AddClassN(cl.FindClass('TComponent'), 'TApplication') do
begin
RegisterMethod('procedure BRINGTOFRONT');
RegisterMethod('procedure BringToFront');
{$IFDEF PS_PANSICHAR}
RegisterMethod('function MESSAGEBOX(TEXT,CAPTION:PANSICHAR;FLAGS:WORD):INTEGER');
RegisterMethod('function MessageBox(Text,Caption: PAnsiChar; Flags: Word): Integer');
{$ELSE}
RegisterMethod('function MESSAGEBOX(TEXT,CAPTION:PCHAR;FLAGS:WORD):INTEGER');
RegisterMethod('function MessageBox(Text,Caption: PChar; Flags: Word): Integer');
{$ENDIF}
RegisterMethod('procedure MINIMIZE');
RegisterMethod('procedure PROCESSMESSAGES');
RegisterMethod('procedure RESTORE');
RegisterMethod('procedure TERMINATE');
RegisterProperty('ACTIVE', 'BOOLEAN', iptr);
RegisterProperty('EXENAME', 'NativeString', iptr);
RegisterMethod('procedure Minimize');
RegisterMethod('procedure ProcessMessages');
RegisterMethod('procedure Restore');
RegisterMethod('procedure Terminate');
RegisterProperty('Active', 'Boolean', iptr);
RegisterProperty('ExeName', 'NativeString', iptr);
{$IFNDEF CLX}
RegisterProperty('HANDLE', 'LONGINT', iptrw);
RegisterProperty('UPDATEFORMATSETTINGS', 'BOOLEAN', iptrw);
RegisterProperty('Handle', 'LongInt', iptrw);
RegisterProperty('UpdateFormatSettings', 'Boolean', iptrw);
{$ENDIF}
RegisterProperty('HINT', 'NativeString', iptrw);
RegisterProperty('MAINFORM', 'TFORM', iptr);
RegisterProperty('SHOWHINT', 'BOOLEAN', iptrw);
RegisterProperty('SHOWMAINFORM', 'BOOLEAN', iptrw);
RegisterProperty('TERMINATED', 'BOOLEAN', iptr);
RegisterProperty('TITLE', 'NativeString', iptrw);
RegisterProperty('ONACTIVATE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONDEACTIVATE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONIDLE', 'TIDLEEVENT', iptrw);
RegisterProperty('ONHINT', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONMINIMIZE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONRESTORE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('Hint', 'NativeString', iptrw);
RegisterProperty('MainForm', 'TForm', iptr);
RegisterProperty('ShowHint', 'Boolean', iptrw);
RegisterProperty('ShowMainForm', 'Boolean', iptrw);
RegisterProperty('Terminated', 'Boolean', iptr);
RegisterProperty('Title', 'NativeString', iptrw);
RegisterProperty('OnActivate', 'TNotifyEvent', iptrw);
RegisterProperty('OnDeactivate', 'TNotifyEvent', iptrw);
RegisterProperty('OnIdle', 'TIdleEvent', iptrw);
RegisterProperty('OnHint', 'TNotifyEvent', iptrw);
RegisterProperty('OnMinimize', 'TNotifyEvent', iptrw);
RegisterProperty('OnRestore', 'TNotifyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterMethod('procedure CONTROLDESTROYED(CONTROL:TCONTROL)');
RegisterMethod('procedure CANCELHINT');
RegisterMethod('procedure HANDLEEXCEPTION(SENDER:TOBJECT)');
RegisterMethod('procedure HANDLEMESSAGE');
RegisterMethod('procedure HIDEHINT');
// RegisterMethod('procedure HINTMOUSEMESSAGE(CONTROL:TCONTROL;var MESSAGE:TMESSAGE)');
RegisterMethod('procedure INITIALIZE');
RegisterMethod('procedure NORMALIZETOPMOSTS');
RegisterMethod('procedure RESTORETOPMOSTS');
RegisterMethod('procedure RUN');
// RegisterMethod('procedure SHOWEXCEPTION(E:EXCEPTION)');
RegisterMethod('procedure ControlDestroyed(Control: TControl)');
RegisterMethod('procedure CancelHint');
RegisterMethod('procedure HandleException(Sender: TObject)');
RegisterMethod('procedure HandleMessage');
RegisterMethod('procedure HideHint');
// RegisterMethod('procedure HintMouseMessage(Control: TControl; var Message: TMessage)');
RegisterMethod('procedure Initialize');
RegisterMethod('procedure NormalizeTopMosts');
RegisterMethod('procedure RestoreTopMosts');
RegisterMethod('procedure Run');
// RegisterMethod('procedure ShowException(E: Exception)');
{$IFNDEF CLX}
RegisterMethod('function HELPCOMMAND(COMMAND:INTEGER;DATA:LONGINT):BOOLEAN');
RegisterMethod('function HELPCONTEXT(CONTEXT:THELPCONTEXT):BOOLEAN');
RegisterMethod('function HELPJUMP(JUMPID:NativeString):BOOLEAN');
RegisterProperty('DIALOGHANDLE', 'LONGINT', iptrw);
RegisterMethod('procedure CREATEHANDLE');
// RegisterMethod('procedure HOOKMAINWINDOW(HOOK:TWINDOWHOOK)');
// RegisterMethod('procedure UNHOOKMAINWINDOW(HOOK:TWINDOWHOOK)');
RegisterMethod('function HelpCommand(Command: Integer; Data: LongInt): Boolean');
RegisterMethod('function HelpContext(Context: THelpContext): Boolean');
RegisterMethod('function HelpJump(JumpID: NativeString): Boolean');
RegisterProperty('DialogHandle', 'LongInt', iptrw);
RegisterMethod('procedure CreateHandle');
// RegisterMethod('procedure HookMainWindow(Hook: TWindowHook)');
// RegisterMethod('procedure UnhookMainWindow(Hook: TWindowHook)');
{$ENDIF}
RegisterProperty('HELPFILE', 'NativeString', iptrw);
RegisterProperty('HINTCOLOR', 'TCOLOR', iptrw);
RegisterProperty('HINTPAUSE', 'INTEGER', iptrw);
RegisterProperty('HINTSHORTPAUSE', 'INTEGER', iptrw);
RegisterProperty('HINTHIDEPAUSE', 'INTEGER', iptrw);
RegisterProperty('ICON', 'TICON', iptrw);
RegisterProperty('ONHELP', 'THELPEVENT', iptrw);
RegisterProperty('HelpFile', 'NativeString', iptrw);
RegisterProperty('HintColor', 'TColor', iptrw);
RegisterProperty('HintPause', 'Integer', iptrw);
RegisterProperty('HintShortPause', 'Integer', iptrw);
RegisterProperty('HintHidePause', 'Integer', iptrw);
RegisterProperty('Icon', 'TIcon', iptrw);
RegisterProperty('OnHelp', 'THelpEvent', iptrw);
{$ENDIF}
end;
end;
@ -244,7 +244,7 @@ begin
cl.AddTypeS('TCloseQueryEvent' ,'procedure(Sender: TObject; var CanClose: Boolean)');
cl.AddTypeS('TBorderIcon' ,'(biSystemMenu, biMinimize, biMaximize, biHelp)');
cl.AddTypeS('TBorderIcons', 'set of TBorderIcon');
cl.AddTypeS('THELPCONTEXT', 'Longint');
cl.AddTypeS('THelpContext', 'LongInt');
end;
procedure SIRegister_Forms(Cl: TPSPascalCompiler);

66
Source/uPSC_graphics.pas
View File

@ -35,15 +35,15 @@ uses
procedure SIRegisterTGRAPHICSOBJECT(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TPERSISTENT'), 'TGRAPHICSOBJECT') do
with Cl.AddClassN(cl.FindClass('TPersistent'), 'TGraphicsObject') do
begin
RegisterProperty('ONCHANGE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('OnChange', 'TNotifyEvent', iptrw);
end;
end;
procedure SIRegisterTFont(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TGraphicsObject'), 'TFONT') do
with Cl.AddClassN(cl.FindClass('TGraphicsObject'), 'TFont') do
begin
RegisterMethod('constructor Create;');
{$IFNDEF CLX}
@ -51,7 +51,7 @@ begin
{$ENDIF}
RegisterProperty('Color', 'TColor', iptRW);
RegisterProperty('Height', 'Integer', iptRW);
RegisterProperty('Name', 'String', iptRW);
RegisterProperty('Name', 'string', iptRW);
RegisterProperty('Pitch', 'Byte', iptRW);
RegisterProperty('Size', 'Integer', iptRW);
RegisterProperty('PixelsPerInch', 'Integer', iptRW);
@ -61,7 +61,7 @@ end;
procedure SIRegisterTCanvas(cl: TPSPascalCompiler); // requires TPersistent
begin
with Cl.AddClassN(cl.FindClass('TPersistent'), 'TCANVAS') do
with Cl.AddClassN(cl.FindClass('TPersistent'), 'TCanvas') do
begin
RegisterMethod('procedure Arc(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);');
RegisterMethod('procedure Chord(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);');
@ -77,9 +77,9 @@ begin
RegisterMethod('procedure Rectangle(X1, Y1, X2, Y2: Integer);');
RegisterMethod('procedure Refresh;');
RegisterMethod('procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer);');
RegisterMethod('function TextHeight(Text: String): Integer;');
RegisterMethod('procedure TextOut(X, Y: Integer; Text: String);');
RegisterMethod('function TextWidth(Text: String): Integer;');
RegisterMethod('function TextHeight(Text: string): Integer;');
RegisterMethod('procedure TextOut(X, Y: Integer; Text: string);');
RegisterMethod('function TextWidth(Text: string): Integer;');
{$IFNDEF CLX}
RegisterProperty('Handle', 'Integer', iptRw);
{$ENDIF}
@ -93,23 +93,23 @@ end;
procedure SIRegisterTPEN(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TGRAPHICSOBJECT'), 'TPEN') do
with Cl.AddClassN(cl.FindClass('TGraphicsObject'), 'TPen') do
begin
RegisterMethod('constructor CREATE');
RegisterProperty('COLOR', 'TCOLOR', iptrw);
RegisterProperty('MODE', 'TPENMODE', iptrw);
RegisterProperty('STYLE', 'TPENSTYLE', iptrw);
RegisterProperty('WIDTH', 'INTEGER', iptrw);
RegisterMethod('constructor Create');
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Mode', 'TPenMode', iptrw);
RegisterProperty('Style', 'TPenStyle', iptrw);
RegisterProperty('Width', 'Integer', iptrw);
end;
end;
procedure SIRegisterTBRUSH(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TGRAPHICSOBJECT'), 'TBRUSH') do
with Cl.AddClassN(cl.FindClass('TGraphicsObject'), 'TBrush') do
begin
RegisterMethod('constructor CREATE');
RegisterProperty('COLOR', 'TCOLOR', iptrw);
RegisterProperty('STYLE', 'TBRUSHSTYLE', iptrw);
RegisterMethod('constructor Create');
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Style', 'TBrushStyle', iptrw);
end;
end;
@ -195,14 +195,14 @@ begin
cl.AddConstantN('clNone', 'Integer').Value.ts32 := $1FFFFFFF;
cl.AddConstantN('clDefault', 'Integer').Value.ts32 := $20000000;
Cl.addTypeS('TFONTSTYLE', '(FSBOLD, FSITALIC, FSUNDERLINE, FSSTRIKEOUT)');
Cl.addTypeS('TFONTSTYLES', 'set of TFONTSTYLE');
Cl.addTypeS('TFontStyle', '(fsBold, fsItalic, fsUnderline, fsStrikeOut)');
Cl.addTypeS('TFontStyles', 'set of TFontStyle');
cl.AddTypeS('TFontPitch', '(fpDefault, fpVariable, fpFixed)');
cl.AddTypeS('TPenStyle', '(psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear, psInsideFrame)');
cl.AddTypeS('TPenMode', '(pmBlack, pmWhite, pmNop, pmNot, pmCopy, pmNotCopy, pmMergePenNot, pmMaskPenNot, pmMergeNotPen, pmMaskNotPen, pmMerge, pmNotMerge, pmMask, pmNotMask, pmXor, pmNotXor)');
cl.AddTypeS('TBrushStyle', '(bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross)');
cl.addTypeS('TColor', 'integer');
cl.addTypeS('TColor', 'Integer');
{$IFNDEF CLX}
cl.addTypeS('HBITMAP', 'Integer');
@ -215,8 +215,8 @@ begin
with CL.AddClassN(CL.FindClass('TPersistent'),'TGraphic') do
begin
RegisterMethod('constructor Create');
RegisterMethod('Procedure LoadFromFile( const Filename : String)');
RegisterMethod('Procedure SaveToFile( const Filename : String)');
RegisterMethod('procedure LoadFromFile(const FileName: string)');
RegisterMethod('procedure SaveToFile(const FileName: string)');
RegisterProperty('Empty', 'Boolean', iptr);
RegisterProperty('Height', 'Integer', iptrw);
RegisterProperty('Modified', 'Boolean', iptrw);
@ -230,8 +230,8 @@ begin
with CL.AddClassN(CL.FindClass('TGraphic'),'TBitmap') do
begin
if Streams then begin
RegisterMethod('Procedure LoadFromStream( Stream : TStream)');
RegisterMethod('Procedure SaveToStream( Stream : TStream)');
RegisterMethod('procedure LoadFromStream(Stream: TStream)');
RegisterMethod('procedure SaveToStream(Stream: TStream)');
end;
RegisterProperty('Canvas', 'TCanvas', iptr);
{$IFNDEF CLX}
@ -239,17 +239,17 @@ begin
{$ENDIF}
{$IFNDEF IFPS_MINIVCL}
RegisterMethod('Procedure Dormant');
RegisterMethod('Procedure FreeImage');
RegisterMethod('procedure Dormant');
RegisterMethod('procedure FreeImage');
{$IFNDEF CLX}
RegisterMethod('Procedure LoadFromClipboardFormat( AFormat : Word; AData : THandle; APalette : HPALETTE)');
RegisterMethod('procedure LoadFromClipboardFormat(AFormat: Word; AData: THandle; APalette: HPALETTE)');
{$ENDIF}
RegisterMethod('Procedure LoadFromResourceName( Instance : THandle; const ResName : String)');
RegisterMethod('Procedure LoadFromResourceID( Instance : THandle; ResID : Integer)');
RegisterMethod('procedure LoadFromResourceName(Instance: THandle; const ResName: string)');
RegisterMethod('procedure LoadFromResourceID(Instance: THandle; ResID: Integer)');
{$IFNDEF CLX}
RegisterMethod('Function ReleaseHandle : HBITMAP');
RegisterMethod('Function ReleasePalette : HPALETTE');
RegisterMethod('Procedure SaveToClipboardFormat( var Format : Word; var Data : THandle; var APalette : HPALETTE)');
RegisterMethod('function ReleaseHandle: HBITMAP');
RegisterMethod('function ReleasePalette: HPALETTE');
RegisterMethod('procedure SaveToClipboardFormat(var Format: Word; var Data: THandle; var APalette: HPALETTE)');
RegisterProperty('Monochrome', 'Boolean', iptrw);
RegisterProperty('Palette', 'HPALETTE', iptrw);
RegisterProperty('IgnorePalette', 'Boolean', iptrw);

266
Source/uPSC_menus.pas
View File

@ -16,19 +16,19 @@ implementation
procedure SIRegisterTMENUITEMSTACK(CL: TPSPascalCompiler);
begin
With cl.AddClassN(Cl.FindClass('TSTACK'),'TMENUITEMSTACK') do
With cl.AddClassN(Cl.FindClass('TStack'),'TMenuItemStack') do
begin
RegisterMethod('Procedure CLEARITEM( AITEM : TMENUITEM)');
RegisterMethod('procedure ClearItem(AItem: TMenuItem)');
end;
end;
procedure SIRegisterTPOPUPLIST(CL: TPSPascalCompiler);
begin
With cl.AddClassN(Cl.FindClass('TLIST'),'TPOPUPLIST') do
With cl.AddClassN(Cl.FindClass('TList'),'TPopupList') do
begin
RegisterProperty('WINDOW', 'HWND', iptr);
RegisterMethod('Procedure ADD( POPUP : TPOPUPMENU)');
RegisterMethod('Procedure REMOVE( POPUP : TPOPUPMENU)');
RegisterProperty('Window', 'HWND', iptr);
RegisterMethod('procedure Add(Popup: TPopupMenu)');
RegisterMethod('procedure Remove(Popup: TPopupMenu)');
end;
end;
@ -36,178 +36,178 @@ procedure SIRegisterTPOPUPMENU(CL: TPSPascalCompiler);
var
cc: TPSCompileTimeClass;
begin
With cl.AddClassN(Cl.FindClass('TMENU'),'TPOPUPMENU') do
With cl.AddClassN(Cl.FindClass('TMenu'),'TPopupMenu') do
begin
cc := Cl.FindClass('TLabel');
if cc <> nil then
RegisterProperty('POPUPMENU', 'TPOPUPMENU', iptRW);
RegisterProperty('PopupMenu', 'TPopupMenu', iptRW);
with Cl.FindClass('TForm') do
begin
RegisterProperty('POPUPMENU', 'TPOPUPMENU', iptRW);
RegisterProperty('PopupMenu', 'TPopupMenu', iptRW);
end;
RegisterMethod('Constructor CREATE( AOWNER : TCOMPONENT)');
RegisterMethod('Procedure POPUP( X, Y : INTEGER)');
RegisterProperty('POPUPCOMPONENT', 'TCOMPONENT', iptrw);
RegisterProperty('ALIGNMENT', 'TPOPUPALIGNMENT', iptrw);
RegisterProperty('AUTOPOPUP', 'BOOLEAN', iptrw);
RegisterProperty('HELPCONTEXT', 'THELPCONTEXT', iptrw);
RegisterProperty('MENUANIMATION', 'TMENUANIMATION', iptrw);
RegisterProperty('TRACKBUTTON', 'TTRACKBUTTON', iptrw);
RegisterProperty('ONPOPUP', 'TNOTIFYEVENT', iptrw);
RegisterMethod('constructor Create(AOwner: TComponent)');
RegisterMethod('procedure Popup(X, Y: Integer)');
RegisterProperty('PopupComponent', 'TComponent', iptrw);
RegisterProperty('Alignment', 'TPopupAlignment', iptrw);
RegisterProperty('AutoPopup', 'Boolean', iptrw);
RegisterProperty('HelpContext', 'THelpContext', iptrw);
RegisterProperty('MenuAnimation', 'TMenuAnimation', iptrw);
RegisterProperty('TrackButton', 'TTrackButton', iptrw);
RegisterProperty('OnPopup', 'TNotifyEvent', iptrw);
end;
end;
procedure SIRegisterTMAINMENU(CL: TPSPascalCompiler);
begin
With cl.AddClassN(Cl.FindClass('TMENU'),'TMAINMENU') do
With cl.AddClassN(Cl.FindClass('TMenu'),'TMainMenu') do
begin
RegisterMethod('Procedure MERGE( MENU : TMAINMENU)');
RegisterMethod('Procedure UNMERGE( MENU : TMAINMENU)');
RegisterMethod('Procedure POPULATEOLE2MENU( SHAREDMENU : HMENU; GROUPS : array of INTEGER; var WIDTHS : array of LONGINT)');
RegisterMethod('Procedure GETOLE2ACCELERATORTABLE( var ACCELTABLE : HACCEL; var ACCELCOUNT : INTEGER; GROUPS : array of INTEGER)');
RegisterMethod('Procedure SETOLE2MENUHANDLE( HANDLE : HMENU)');
RegisterProperty('AUTOMERGE', 'BOOLEAN', iptrw);
RegisterMethod('procedure Merge(Menu: TMainMenu)');
RegisterMethod('procedure Unmerge(Menu: TMainMenu)');
RegisterMethod('procedure PopulateOle2Menu(SharedMenu: HMENU; Groups: array of Integer; var Widths: array of LongInt)');
RegisterMethod('procedure GetOle2AcceleratorTable(var AccelTable: HACCEL; var AccelCount: Integer; Groups: array of Integer)');
RegisterMethod('procedure SetOle2MenuHandle(Handle: HMENU)');
RegisterProperty('AutoMerge', 'Boolean', iptrw);
end;
end;
procedure SIRegisterTMENU(CL: TPSPascalCompiler);
begin
With cl.AddClassN(Cl.FindClass('TCOMPONENT'),'TMENU') do
With cl.AddClassN(Cl.FindClass('TComponent'),'TMenu') do
begin
RegisterMethod('Constructor CREATE( AOWNER : TCOMPONENT)');
RegisterMethod('Function DISPATCHCOMMAND( ACOMMAND : WORD) : BOOLEAN');
RegisterMethod('Function DISPATCHPOPUP( AHANDLE : HMENU) : BOOLEAN');
RegisterMethod('Function FINDITEM( VALUE : INTEGER; KIND : TFINDITEMKIND) : TMENUITEM');
RegisterMethod('Function GETHELPCONTEXT( VALUE : INTEGER; BYCOMMAND : BOOLEAN) : THELPCONTEXT');
RegisterProperty('IMAGES', 'TCUSTOMIMAGELIST', iptrw);
RegisterMethod('Function ISRIGHTTOLEFT : BOOLEAN');
RegisterMethod('Procedure PARENTBIDIMODECHANGED( ACONTROL : TOBJECT)');
RegisterMethod('Procedure PROCESSMENUCHAR( var MESSAGE : TWMMENUCHAR)');
RegisterProperty('AUTOHOTKEYS', 'TMENUAUTOFLAG', iptrw);
RegisterProperty('AUTOLINEREDUCTION', 'TMENUAUTOFLAG', iptrw);
RegisterProperty('BIDIMODE', 'TBIDIMODE', iptrw);
RegisterProperty('HANDLE', 'HMENU', iptr);
RegisterProperty('OWNERDRAW', 'BOOLEAN', iptrw);
RegisterProperty('PARENTBIDIMODE', 'BOOLEAN', iptrw);
RegisterProperty('WINDOWHANDLE', 'HWND', iptrw);
RegisterProperty('ITEMS', 'TMENUITEM', iptr);
RegisterMethod('constructor Create(AOwner: TComponent)');
RegisterMethod('function DispatchCommand(ACommand: Word): Boolean');
RegisterMethod('function DispatchPopup(AHandle: HMENU): Boolean');
RegisterMethod('function FindItem(Value: Integer; Kind: TFindItemKind): TMenuItem');
RegisterMethod('function GetHelpContext(Value: Integer; ByCommand: Boolean): THelpContext');
RegisterProperty('Images', 'TCustomImageList', iptrw);
RegisterMethod('function IsRightToLeft: Boolean');
RegisterMethod('procedure ParentBiDiModeChanged(AControl: TObject)');
RegisterMethod('procedure ProcessMenuChar(var Message: TWMMenuChar)');
RegisterProperty('AutoHotkeys', 'TMenuAutoFlag', iptrw);
RegisterProperty('AutoLineReduction', 'TMenuAutoFlag', iptrw);
RegisterProperty('BiDiMode', 'TBiDiMode', iptrw);
RegisterProperty('Handle', 'HMENU', iptr);
RegisterProperty('OwnerDraw', 'Boolean', iptrw);
RegisterProperty('ParentBiDiMode', 'Boolean', iptrw);
RegisterProperty('WindowHandle', 'HWND', iptrw);
RegisterProperty('Items', 'TMenuItem', iptr);
end;
end;
procedure SIRegisterTMENUITEM(CL: TPSPascalCompiler);
begin
With cl.AddClassN(Cl.FindClass('TCOMPONENT'),'TMENUITEM') do
With cl.AddClassN(Cl.FindClass('TComponent'),'TMenuItem') do
begin
RegisterMethod('Constructor CREATE( AOWNER : TCOMPONENT)');
RegisterMethod('Procedure INITIATEACTION');
RegisterMethod('Procedure INSERT( INDEX : INTEGER; ITEM : TMENUITEM)');
RegisterMethod('Procedure DELETE( INDEX : INTEGER)');
RegisterMethod('Procedure CLEAR');
RegisterMethod('Procedure CLICK');
RegisterMethod('Function FIND( ACAPTION : String) : TMENUITEM');
RegisterMethod('Function INDEXOF( ITEM : TMENUITEM) : INTEGER');
RegisterMethod('Function ISLINE : BOOLEAN');
RegisterMethod('Function GETIMAGELIST : TCUSTOMIMAGELIST');
RegisterMethod('Function GETPARENTCOMPONENT : TCOMPONENT');
RegisterMethod('Function GETPARENTMENU : TMENU');
RegisterMethod('Function HASPARENT : BOOLEAN');
RegisterMethod('Function NEWTOPLINE : INTEGER');
RegisterMethod('Function NEWBOTTOMLINE : INTEGER');
RegisterMethod('Function INSERTNEWLINEBEFORE( AITEM : TMENUITEM) : INTEGER');
RegisterMethod('Function INSERTNEWLINEAFTER( AITEM : TMENUITEM) : INTEGER');
RegisterMethod('Procedure ADD( ITEM : TMENUITEM)');
RegisterMethod('Procedure REMOVE( ITEM : TMENUITEM)');
RegisterMethod('Function RETHINKHOTKEYS : BOOLEAN');
RegisterMethod('Function RETHINKLINES : BOOLEAN');
RegisterProperty('COMMAND', 'WORD', iptr);
RegisterProperty('HANDLE', 'HMENU', iptr);
RegisterProperty('COUNT', 'INTEGER', iptr);
RegisterProperty('ITEMS', 'TMENUITEM INTEGER', iptr);
RegisterProperty('MENUINDEX', 'INTEGER', iptrw);
RegisterProperty('PARENT', 'TMENUITEM', iptr);
RegisterMethod('constructor Create(AOwner: TComponent)');
RegisterMethod('procedure InitiateAction');
RegisterMethod('procedure Insert(Index: Integer; Item: TMenuItem)');
RegisterMethod('procedure Delete(Index: Integer)');
RegisterMethod('procedure Clear');
RegisterMethod('procedure Click');
RegisterMethod('function Find(ACaption: string): TMenuItem');
RegisterMethod('function IndexOf(Item: TMenuItem): Integer');
RegisterMethod('function IsLine: Boolean');
RegisterMethod('function GetImageList: TCustomImageList');
RegisterMethod('function GetParentComponent: TComponent');
RegisterMethod('function GetParentMenu: TMenu');
RegisterMethod('function HasParent: Boolean');
RegisterMethod('function NewTopLine: Integer');
RegisterMethod('function NewBottomLine: Integer');
RegisterMethod('function InsertNewLineBefore(AItem: TMenuItem): Integer');
RegisterMethod('function InsertNewLineAfter(AItem: TMenuItem): Integer');
RegisterMethod('procedure Add(Item: TMenuItem)');
RegisterMethod('procedure Remove(Item: TMenuItem)');
RegisterMethod('function RethinkHotkeys: Boolean');
RegisterMethod('function RethinkLines: Boolean');
RegisterProperty('Command', 'Word', iptr);
RegisterProperty('Handle', 'HMENU', iptr);
RegisterProperty('Count', 'Integer', iptr);
RegisterProperty('Items', 'TMenuItem Integer', iptr);
RegisterProperty('MenuIndex', 'Integer', iptrw);
RegisterProperty('Parent', 'TMenuItem', iptr);
{$IFDEF DELPHI5UP}
RegisterProperty('ACTION', 'TBASICACTION', iptrw);
RegisterProperty('Action', 'TBasicAction', iptrw);
{$ENDIF}
RegisterProperty('AUTOHOTKEYS', 'TMENUITEMAUTOFLAG', iptrw);
RegisterProperty('AUTOLINEREDUCTION', 'TMENUITEMAUTOFLAG', iptrw);
RegisterProperty('BITMAP', 'TBITMAP', iptrw);
RegisterProperty('CAPTION', 'String', iptrw);
RegisterProperty('CHECKED', 'BOOLEAN', iptrw);
RegisterProperty('SUBMENUIMAGES', 'TCUSTOMIMAGELIST', iptrw);
RegisterProperty('DEFAULT', 'BOOLEAN', iptrw);
RegisterProperty('ENABLED', 'BOOLEAN', iptrw);
RegisterProperty('GROUPINDEX', 'BYTE', iptrw);
RegisterProperty('HELPCONTEXT', 'THELPCONTEXT', iptrw);
RegisterProperty('HINT', 'String', iptrw);
RegisterProperty('IMAGEINDEX', 'TIMAGEINDEX', iptrw);
RegisterProperty('RADIOITEM', 'BOOLEAN', iptrw);
RegisterProperty('SHORTCUT', 'TSHORTCUT', iptrw);
RegisterProperty('VISIBLE', 'BOOLEAN', iptrw);
RegisterProperty('ONCLICK', 'TNOTIFYEVENT', iptrw);
{$IFNDEF FPC} RegisterProperty('ONDRAWITEM', 'TMENUDRAWITEMEVENT', iptrw);
RegisterProperty('ONADVANCEDDRAWITEM', 'TADVANCEDMENUDRAWITEMEVENT', iptrw);
RegisterProperty('ONMEASUREITEM', 'TMENUMEASUREITEMEVENT', iptrw);{$ENDIF}
RegisterProperty('AutoHotkeys', 'TMenuItemAutoFlag', iptrw);
RegisterProperty('AutoLineReduction', 'TMenuItemAutoFlag', iptrw);
RegisterProperty('Bitmap', 'TBitmap', iptrw);
RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Checked', 'Boolean', iptrw);
RegisterProperty('SubMenuImages', 'TCustomImageList', iptrw);
RegisterProperty('Default', 'Boolean', iptrw);
RegisterProperty('Enabled', 'Boolean', iptrw);
RegisterProperty('GroupIndex', 'Byte', iptrw);
RegisterProperty('HelpContext', 'THelpContext', iptrw);
RegisterProperty('Hint', 'string', iptrw);
RegisterProperty('ImageIndex', 'TImageIndex', iptrw);
RegisterProperty('RadioItem', 'Boolean', iptrw);
RegisterProperty('ShortCut', 'TShortCut', iptrw);
RegisterProperty('Visible', 'Boolean', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
{$IFNDEF FPC} RegisterProperty('OnDrawItem', 'TMenuDrawItemEvent', iptrw);
RegisterProperty('OnAdvancedDrawItem', 'TAdvancedMenuDrawItemEvent', iptrw);
RegisterProperty('OnMeasureItem', 'TMenuMeasureItemEvent', iptrw);{$ENDIF}
end;
end;
procedure SIRegister_Menus(Cl: TPSPascalCompiler);
begin
Cl.AddTypeS('HMenu', 'Cardinal');
Cl.AddTypeS('HMENU', 'Cardinal');
Cl.AddTypeS('HACCEL', 'Cardinal');
cl.addClassN(cl.FindClass('EXCEPTION'),'EMENUERROR');
Cl.addTypeS('TMENUBREAK', '( MBNONE, MBBREAK, MBBARBREAK )');
cl.addClassN(cl.FindClass('Exception'),'EMenuError');
Cl.addTypeS('TMenuBreak', '(mbNone, mbBreak, mbBarBreak)');
{$IFNDEF FPC}
Cl.addTypeS('TMENUDRAWITEMEVENT', 'Procedure ( SENDER : TOBJECT; ACANVAS : TC'
+'ANVAS; ARECT : TRECT; SELECTED : BOOLEAN)');
Cl.addTypeS('TADVANCEDMENUDRAWITEMEVENT', 'Procedure ( SENDER : TOBJECT; ACAN'
+'VAS : TCANVAS; ARECT : TRECT; STATE : TOWNERDRAWSTATE)');
Cl.addTypeS('TMENUMEASUREITEMEVENT', 'Procedure ( SENDER : TOBJECT; ACANVAS :'
+' TCANVAS; var WIDTH, HEIGHT : INTEGER)');
Cl.addTypeS('TMenuDrawItemEvent', 'procedure (Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean)');
Cl.addTypeS('TAdvancedMenuDrawItemEvent', 'procedure (Sender: TObject; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState)');
Cl.addTypeS('TMenuMeasureItemEvent', 'procedure (Sender: TObject; ACanvas: TCanvas; var Width, Height: Integer)');
{$ENDIF}
Cl.addTypeS('TMENUITEMAUTOFLAG', '( MAAUTOMATIC, MAMANUAL, MAPARENT )');
Cl.AddTypeS('TMenuAutoFlag', 'TMENUITEMAUTOFLAG');
Cl.addTypeS('TSHORTCUT', 'WORD');
cl.addClassN(cl.FindClass('TACTIONLINK'),'TMENUACTIONLINK');
Cl.addTypeS('TMenuItemAutoFlag', '(maAutomatic, maManual, maParent)');
Cl.AddTypeS('TMenuAutoFlag', 'TMenuItemAutoFlag');
Cl.addTypeS('TShortCut', 'Word');
cl.addClassN(cl.FindClass('TActionLink'),'TMenuActionLink');
SIRegisterTMENUITEM(Cl);
Cl.addTypeS('TMENUCHANGEEVENT', 'Procedure ( SENDER : TOBJECT; SOURCE : TMENU'
+'ITEM; REBUILD : BOOLEAN)');
Cl.addTypeS('TFINDITEMKIND', '( FKCOMMAND, FKHANDLE, FKSHORTCUT )');
Cl.addTypeS('TMenuChangeEvent', 'procedure (Sender: TObject; Source: TMenuItem; Rebuild: Boolean)');
Cl.addTypeS('TFindItemKind', '(fkCommand, fkHandle, fkShortCut)');
SIRegisterTMENU(Cl);
SIRegisterTMAINMENU(Cl);
Cl.addTypeS('TPOPUPALIGNMENT', '( PALEFT, PARIGHT, PACENTER )');
Cl.addTypeS('TTRACKBUTTON', '( TBRIGHTBUTTON, TBLEFTBUTTON )');
Cl.addTypeS('TMENUANIMATIONS', '( MALEFTTORIGHT, MARIGHTTOLEFT, MATOPTOBOTTOM'
+', MABOTTOMTOTOP, MANONE )');
Cl.addTypeS('TMENUANIMATION', 'set of TMENUANIMATIONS');
Cl.addTypeS('TPopupAlignment', '(paLeft, paRight, paCenter)');
Cl.addTypeS('TTrackButton', '(tbRightButton, tbLeftButton)');
Cl.addTypeS('TMenuAnimations', '(maLeftToRight, maRightToLeft, maTopToBottom, maBottomToTop, maNone)');
Cl.addTypeS('TMenuAnimation', 'set of TMenuAnimations');
SIRegisterTPOPUPMENU(Cl);
SIRegisterTPOPUPLIST(Cl);
SIRegisterTMENUITEMSTACK(Cl);
Cl.addTypeS('TCMENUITEM', 'TMENUITEM');
Cl.addTypeS('TCMenuItem', 'TMenuItem');
{$IFNDEF FPC}
//TODO: it should work,but somehow TShiftState is not defined
Cl.AddDelphiFunction('Function SHORTCUT( KEY : WORD; SHIFT : TSHIFTSTATE) : T'
+'SHORTCUT');
Cl.AddDelphiFunction('Procedure SHORTCUTTOKEY( SHORTCUT : TSHORTCUT; var KEY '
+': WORD; var SHIFT : TSHIFTSTATE)');
Cl.AddDelphiFunction('function ShortCut(Key: Word; Shift: TShiftState): TShortCut');
Cl.AddDelphiFunction('procedure ShortCutToKey(ShortCut: TShortCut; var Key: Word; var Shift: TShiftState)');
{$ENDIF}
Cl.AddDelphiFunction('Function SHORTCUTTOTEXT( SHORTCUT : TSHORTCUT) : String'
+'');
Cl.AddDelphiFunction('Function TEXTTOSHORTCUT( TEXT : String) : TSHORTCUT');
Cl.AddDelphiFunction('Function NEWMENU( OWNER : TCOMPONENT; const ANAME : STR'
+'ING; ITEMS : array of TMenuItem) : TMAINMENU');
Cl.AddDelphiFunction('Function NEWPOPUPMENU( OWNER : TCOMPONENT; const ANAME '
+': String; ALIGNMENT : TPOPUPALIGNMENT; AUTOPOPUP : BOOLEAN; const ITEMS : array of '
+'TCMENUITEM) : TPOPUPMENU');
Cl.AddDelphiFunction('Function NEWSUBMENU( const ACAPTION : String; HCTX : WO'
+'RD; const ANAME : String; ITEMS : array of TMenuItem; AENABLED : BOOLEAN) : TMENUITEM');
Cl.AddDelphiFunction('Function NEWITEM( const ACAPTION : String; ASHORTCUT : '
+'TSHORTCUT; ACHECKED, AENABLED : BOOLEAN; AONCLICK : TNOTIFYEVENT; HCTX : W'
+'ORD; const ANAME : String) : TMENUITEM');
Cl.AddDelphiFunction('Function NEWLINE : TMENUITEM');
Cl.AddDelphiFunction('function ShortCutToText(ShortCut: TShortCut): string');
Cl.AddDelphiFunction('function TextToShortCut(Text: string): TShortCut');
Cl.AddDelphiFunction('function NewMenu(Owner: TComponent; const AName: string; Items: array of TMenuItem): TMainMenu');
Cl.AddDelphiFunction('function NewPopupMenu(Owner: TComponent; const AName: string; Alignment: TPopupAlignment; AutoPopup: Boolean; const Items: array of TCMenuItem): TPopupMenu');
Cl.AddDelphiFunction('function NewSubMenu(const ACaption: string; HCTX: Word; const AName: string; Items: array of TMenuItem; AEnabled: Boolean): TMenuItem');
Cl.AddDelphiFunction('function NewItem(const ACaption: string; AShortCut: TShortCut; Achecked, AEnabled: Boolean; AOnClick: TNotifyEvent; HCTX: Word; const AName: string): TMenuItem');
Cl.AddDelphiFunction('function NewLine: TMenuItem');
{$IFNDEF FPC}
Cl.AddDelphiFunction('Procedure DRAWMENUITEM( MENUITEM : TMENUITEM; ACANVAS :'
+' TCANVAS; ARECT : TRECT; STATE : TOWNERDRAWSTATE)');
Cl.AddDelphiFunction('procedure DrawMenuItem(MenuItem: TMenuItem; ACanvas: TCanvas; ARect: TRect; State: TOwnerDrawState)');
{$ENDIF}
end;

12
Source/uPSC_std.pas
View File

@ -42,21 +42,21 @@ procedure SIRegisterTComponent(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TPersistent'), 'TComponent') do
begin
RegisterMethod('function FindComponent(AName: String): TComponent;');
RegisterMethod('function FindComponent(AName: string): TComponent;');
RegisterMethod('constructor Create(AOwner: TComponent); virtual;');
RegisterProperty('Owner', 'TComponent', iptRW);
RegisterMethod('procedure DestroyComponents');
RegisterMethod('procedure Destroying');
RegisterMethod('procedure FreeNotification(AComponent:TComponent)');
RegisterMethod('procedure InsertComponent(AComponent:TComponent)');
RegisterMethod('procedure RemoveComponent(AComponent:TComponent)');
RegisterMethod('procedure FreeNotification(AComponent: TComponent)');
RegisterMethod('procedure InsertComponent(AComponent: TComponent)');
RegisterMethod('procedure RemoveComponent(AComponent: TComponent)');
RegisterProperty('Components', 'TComponent Integer', iptr);
RegisterProperty('ComponentCount', 'Integer', iptr);
RegisterProperty('ComponentIndex', 'Integer', iptrw);
RegisterProperty('ComponentState', 'Byte', iptr);
RegisterProperty('Designinfo', 'LongInt', iptrw);
RegisterProperty('Name', 'String', iptrw);
RegisterProperty('DesignInfo', 'LongInt', iptrw);
RegisterProperty('Name', 'string', iptrw);
RegisterProperty('Tag', 'LongInt', iptrw);
end;
end;

666
Source/uPSC_stdctrls.pas
View File

@ -44,38 +44,38 @@ implementation
procedure SIRegisterTCUSTOMGROUPBOX(Cl: TPSPascalCompiler);
begin
Cl.AddClassN(cl.FindClass('TCUSTOMCONTROL'), 'TCUSTOMGROUPBOX');
Cl.AddClassN(cl.FindClass('TCustomControl'), 'TCustomGroupBox');
end;
procedure SIRegisterTGROUPBOX(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMGROUPBOX'), 'TGROUPBOX') do
with Cl.AddClassN(cl.FindClass('TCustomGroupBox'), 'TGroupBox') do
begin
RegisterProperty('CAPTION', 'String', iptrw);
RegisterProperty('COLOR', 'TColor', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('ParentColor', 'Boolean', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnEnter', 'TNotifyEvent', iptrw);
RegisterProperty('OnExit', 'TNotifyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('ParentCtl3D', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
@ -86,11 +86,11 @@ end;
procedure SIRegisterTCUSTOMLABEL(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TGRAPHICCONTROL'), 'TCUSTOMLABEL') do
with Cl.AddClassN(cl.FindClass('TGraphicControl'), 'TCustomLabel') do
begin
{$IFNDEF PS_MINIVCL}
{$IFNDEF CLX}
RegisterProperty('CANVAS', 'TCANVAS', iptr);
RegisterProperty('Canvas', 'TCanvas', iptr);
{$ENDIF}
{$ENDIF}
end;
@ -99,32 +99,32 @@ end;
procedure SIRegisterTLABEL(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMLABEL'), 'TLABEL') do
with Cl.AddClassN(cl.FindClass('TCustomLabel'), 'TLabel') do
begin
RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
RegisterProperty('AUTOSIZE', 'Boolean', iptrw);
RegisterProperty('CAPTION', 'String', iptrw);
RegisterProperty('COLOR', 'TColor', iptrw);
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('FOCUSCONTROL', 'TWinControl', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('LAYOUT', 'TTextLayout', iptrw);
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('SHOWACCELCHAR', 'Boolean', iptrw);
RegisterProperty('TRANSPARENT', 'Boolean', iptrw);
RegisterProperty('WORDWRAP', 'Boolean', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('Alignment', 'TAlignment', iptrw);
RegisterProperty('AutoSize', 'Boolean', iptrw);
RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('FocusControl', 'TWinControl', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('Layout', 'TTextLayout', iptrw);
RegisterProperty('ParentColor', 'Boolean', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('ShowAccelChar', 'Boolean', iptrw);
RegisterProperty('Transparent', 'Boolean', iptrw);
RegisterProperty('WordWrap', 'Boolean', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
end;
end;
@ -136,23 +136,23 @@ end;
procedure SIRegisterTCUSTOMEDIT(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TCUSTOMEDIT') do
with Cl.AddClassN(cl.FindClass('TWinControl'), 'TCustomEdit') do
begin
RegisterMethod('procedure CLEAR');
RegisterMethod('procedure CLEARSELECTION');
RegisterMethod('procedure SELECTALL');
RegisterProperty('MODIFIED', 'BOOLEAN', iptrw);
RegisterProperty('SELLENGTH', 'INTEGER', iptrw);
RegisterProperty('SELSTART', 'INTEGER', iptrw);
RegisterProperty('SELTEXT', 'String', iptrw);
RegisterProperty('TEXT', 'String', iptrw);
RegisterMethod('procedure Clear');
RegisterMethod('procedure ClearSelection');
RegisterMethod('procedure SelectAll');
RegisterProperty('Modified', 'Boolean', iptrw);
RegisterProperty('SelLength', 'Integer', iptrw);
RegisterProperty('SelStart', 'Integer', iptrw);
RegisterProperty('SelText', 'string', iptrw);
RegisterProperty('Text', 'string', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterMethod('procedure COPYTOCLIPBOARD');
RegisterMethod('procedure CUTTOCLIPBOARD');
RegisterMethod('procedure PASTEFROMCLIPBOARD');
RegisterMethod('function GETSELTEXTBUF(BUFFER:PCHAR;BUFSIZE:INTEGER):INTEGER');
RegisterMethod('procedure SETSELTEXTBUF(BUFFER:PCHAR)');
RegisterMethod('procedure CopyToClipboard');
RegisterMethod('procedure CutToClipboard');
RegisterMethod('procedure PasteFromClipboard');
RegisterMethod('function GetSelTextBuf(Buffer: PChar; BufSize: Integer): Integer');
RegisterMethod('procedure SetSelTextBuf(Buffer: PChar)');
{$ENDIF}
end;
end;
@ -162,45 +162,45 @@ end;
procedure SIRegisterTEDIT(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMEDIT'), 'TEDIT') do
with Cl.AddClassN(cl.FindClass('TCustomEdit'), 'TEdit') do
begin
RegisterProperty('AUTOSELECT', 'Boolean', iptrw);
RegisterProperty('AUTOSIZE', 'Boolean', iptrw);
RegisterProperty('BORDERSTYLE', 'TBorderStyle', iptrw);
RegisterProperty('CHARCASE', 'TEditCharCase', iptrw);
RegisterProperty('COLOR', 'TColor', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('HIDESELECTION', 'Boolean', iptrw);
RegisterProperty('MAXLENGTH', 'Integer', iptrw);
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('PASSWORDCHAR', 'Char', iptrw);
RegisterProperty('READONLY', 'Boolean', iptrw);
RegisterProperty('TEXT', 'String', iptrw);
RegisterProperty('ONCHANGE', 'TNotifyEvent', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
RegisterProperty('AutoSelect', 'Boolean', iptrw);
RegisterProperty('AutoSize', 'Boolean', iptrw);
RegisterProperty('BorderStyle', 'TBorderStyle', iptrw);
RegisterProperty('CharCase', 'TEditCharCase', iptrw);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('HideSelection', 'Boolean', iptrw);
RegisterProperty('MaxLength', 'Integer', iptrw);
RegisterProperty('ParentColor', 'Boolean', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('PasswordChar', 'Char', iptrw);
RegisterProperty('ReadOnly', 'Boolean', iptrw);
RegisterProperty('Text', 'string', iptrw);
RegisterProperty('OnChange', 'TNotifyEvent', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnEnter', 'TNotifyEvent', iptrw);
RegisterProperty('OnExit', 'TNotifyEvent', iptrw);
RegisterProperty('OnKeyDown', 'TKeyEvent', iptrw);
RegisterProperty('OnKeyPress', 'TKeyPressEvent', iptrw);
RegisterProperty('OnKeyUp', 'TKeyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('OEMCONVERT', 'Boolean', iptrw);
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('OEMConvert', 'Boolean', iptrw);
RegisterProperty('ParentCtl3D', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
@ -210,10 +210,10 @@ end;
procedure SIRegisterTCUSTOMMEMO(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMEDIT'), 'TCUSTOMMEMO') do
with Cl.AddClassN(cl.FindClass('TCustomEdit'), 'TCustomMemo') do
begin
{$IFNDEF CLX}
RegisterProperty('LINES', 'TSTRINGS', iptrw);
RegisterProperty('Lines', 'TStrings', iptrw);
{$ENDIF}
end;
end;
@ -221,48 +221,48 @@ end;
procedure SIRegisterTMEMO(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMMEMO'), 'TMEMO') do
with Cl.AddClassN(cl.FindClass('TCustomMemo'), 'TMemo') do
begin
{$IFDEF CLX}
RegisterProperty('LINES', 'TSTRINGS', iptrw);
RegisterProperty('Lines', 'TStrings', iptrw);
{$ENDIF}
RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
RegisterProperty('BORDERSTYLE', 'TBorderStyle', iptrw);
RegisterProperty('COLOR', 'TColor', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('HIDESELECTION', 'Boolean', iptrw);
RegisterProperty('MAXLENGTH', 'Integer', iptrw);
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('READONLY', 'Boolean', iptrw);
RegisterProperty('SCROLLBARS', 'TScrollStyle', iptrw);
RegisterProperty('WANTRETURNS', 'Boolean', iptrw);
RegisterProperty('WANTTABS', 'Boolean', iptrw);
RegisterProperty('WORDWRAP', 'Boolean', iptrw);
RegisterProperty('ONCHANGE', 'TNotifyEvent', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
RegisterProperty('Alignment', 'TAlignment', iptrw);
RegisterProperty('BorderStyle', 'TBorderStyle', iptrw);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('HideSelection', 'Boolean', iptrw);
RegisterProperty('MaxLength', 'Integer', iptrw);
RegisterProperty('ParentColor', 'Boolean', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('ReadOnly', 'Boolean', iptrw);
RegisterProperty('ScrollBars', 'TScrollStyle', iptrw);
RegisterProperty('WantReturns', 'Boolean', iptrw);
RegisterProperty('WantTabs', 'Boolean', iptrw);
RegisterProperty('WordWrap', 'Boolean', iptrw);
RegisterProperty('OnChange', 'TNotifyEvent', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnEnter', 'TNotifyEvent', iptrw);
RegisterProperty('OnExit', 'TNotifyEvent', iptrw);
RegisterProperty('OnKeyDown', 'TKeyEvent', iptrw);
RegisterProperty('OnKeyPress', 'TKeyPressEvent', iptrw);
RegisterProperty('OnKeyUp', 'TKeyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('OEMCONVERT', 'Boolean', iptrw);
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('OEMConvert', 'Boolean', iptrw);
RegisterProperty('ParentCtl3D', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
@ -273,19 +273,19 @@ end;
procedure SIRegisterTCUSTOMCOMBOBOX(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TCUSTOMCOMBOBOX') do
with Cl.AddClassN(cl.FindClass('TWinControl'), 'TCustomComboBox') do
begin
RegisterProperty('DROPPEDDOWN', 'BOOLEAN', iptrw);
RegisterProperty('ITEMS', 'TSTRINGS', iptrw);
RegisterProperty('ITEMINDEX', 'INTEGER', iptrw);
RegisterProperty('DroppedDown', 'Boolean', iptrw);
RegisterProperty('Items', 'TStrings', iptrw);
RegisterProperty('ItemIndex', 'Integer', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterMethod('procedure CLEAR');
RegisterMethod('procedure SELECTALL');
RegisterProperty('CANVAS', 'TCANVAS', iptr);
RegisterProperty('SELLENGTH', 'INTEGER', iptrw);
RegisterProperty('SELSTART', 'INTEGER', iptrw);
RegisterProperty('SELTEXT', 'String', iptrw);
RegisterMethod('procedure Clear');
RegisterMethod('procedure SelectAll');
RegisterProperty('Canvas', 'TCanvas', iptr);
RegisterProperty('SelLength', 'Integer', iptrw);
RegisterProperty('SelStart', 'Integer', iptrw);
RegisterProperty('SelText', 'string', iptrw);
{$ENDIF}
end;
end;
@ -293,41 +293,41 @@ end;
procedure SIRegisterTCOMBOBOX(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMCOMBOBOX'), 'TCOMBOBOX') do
with Cl.AddClassN(cl.FindClass('TCustomComboBox'), 'TComboBox') do
begin
RegisterProperty('STYLE', 'TComboBoxStyle', iptrw);
RegisterProperty('COLOR', 'TColor', iptrw);
RegisterProperty('DROPDOWNCOUNT', 'Integer', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('MAXLENGTH', 'Integer', iptrw);
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('SORTED', 'Boolean', iptrw);
RegisterProperty('TEXT', 'String', iptrw);
RegisterProperty('ONCHANGE', 'TNotifyEvent', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDROPDOWN', 'TNotifyEvent', iptrw);
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
RegisterProperty('Style', 'TComboBoxStyle', iptrw);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('DropDownCount', 'Integer', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('MaxLength', 'Integer', iptrw);
RegisterProperty('ParentColor', 'Boolean', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('Sorted', 'Boolean', iptrw);
RegisterProperty('Text', 'string', iptrw);
RegisterProperty('OnChange', 'TNotifyEvent', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDropDown', 'TNotifyEvent', iptrw);
RegisterProperty('OnEnter', 'TNotifyEvent', iptrw);
RegisterProperty('OnExit', 'TNotifyEvent', iptrw);
RegisterProperty('OnKeyDown', 'TKeyEvent', iptrw);
RegisterProperty('OnKeyPress', 'TKeyPressEvent', iptrw);
RegisterProperty('OnKeyUp', 'TKeyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('ITEMHEIGHT', 'Integer', iptrw);
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONDRAWITEM', 'TDrawItemEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONMEASUREITEM', 'TMeasureItemEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('ItemHeight', 'Integer', iptrw);
RegisterProperty('ParentCtl3D', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnDrawItem', 'TDrawItemEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnMeasureItem', 'TMeasureItemEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
@ -336,7 +336,7 @@ end;
procedure SIRegisterTBUTTONCONTROL(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TBUTTONCONTROL') do
with Cl.AddClassN(cl.FindClass('TWinControl'), 'TButtonControl') do
begin
end;
end;
@ -345,33 +345,33 @@ end;
procedure SIRegisterTBUTTON(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TBUTTONCONTROL'), 'TBUTTON') do
with Cl.AddClassN(cl.FindClass('TButtonControl'), 'TButton') do
begin
RegisterProperty('CANCEL', 'BOOLEAN', iptrw);
RegisterProperty('CAPTION', 'String', iptrw);
RegisterProperty('DEFAULT', 'BOOLEAN', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('MODALRESULT', 'LONGINT', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
RegisterProperty('Cancel', 'Boolean', iptrw);
RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Default', 'Boolean', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('ModalResult', 'LongInt', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnEnter', 'TNotifyEvent', iptrw);
RegisterProperty('OnExit', 'TNotifyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnKeyDown', 'TKeyEvent', iptrw);
RegisterProperty('OnKeyPress', 'TKeyPressEvent', iptrw);
RegisterProperty('OnKeyUp', 'TKeyEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
@ -380,7 +380,7 @@ end;
procedure SIRegisterTCUSTOMCHECKBOX(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TBUTTONCONTROL'), 'TCUSTOMCHECKBOX') do
with Cl.AddClassN(cl.FindClass('TButtonControl'), 'TCustomCheckBox') do
begin
end;
end;
@ -389,38 +389,38 @@ end;
procedure SIRegisterTCHECKBOX(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMCHECKBOX'), 'TCHECKBOX') do
with Cl.AddClassN(cl.FindClass('TCustomCheckBox'), 'TCheckBox') do
begin
RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
RegisterProperty('ALLOWGRAYED', 'Boolean', iptrw);
RegisterProperty('CAPTION', 'String', iptrw);
RegisterProperty('CHECKED', 'Boolean', iptrw);
RegisterProperty('COLOR', 'TColor', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('STATE', 'TCheckBoxState', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
RegisterProperty('Alignment', 'TAlignment', iptrw);
RegisterProperty('AllowGrayed', 'Boolean', iptrw);
RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Checked', 'Boolean', iptrw);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('ParentColor', 'Boolean', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('State', 'TCheckBoxState', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnEnter', 'TNotifyEvent', iptrw);
RegisterProperty('OnExit', 'TNotifyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('ParentCtl3D', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnKeyDown', 'TKeyEvent', iptrw);
RegisterProperty('OnKeyPress', 'TKeyPressEvent', iptrw);
RegisterProperty('OnKeyUp', 'TKeyEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
@ -431,37 +431,37 @@ end;
procedure SIRegisterTRADIOBUTTON(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TBUTTONCONTROL'), 'TRADIOBUTTON') do
with Cl.AddClassN(cl.FindClass('TButtonControl'), 'TRadioButton') do
begin
RegisterProperty('ALIGNMENT', 'TALIGNMENT', iptrw);
RegisterProperty('CAPTION', 'String', iptrw);
RegisterProperty('CHECKED', 'BOOLEAN', iptrw);
RegisterProperty('COLOR', 'TColor', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
RegisterProperty('Alignment', 'TAlignment', iptrw);
RegisterProperty('Caption', 'string', iptrw);
RegisterProperty('Checked', 'Boolean', iptrw);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('ParentColor', 'Boolean', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnEnter', 'TNotifyEvent', iptrw);
RegisterProperty('OnExit', 'TNotifyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('ParentCtl3D', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnKeyDown', 'TKeyEvent', iptrw);
RegisterProperty('OnKeyPress', 'TKeyPressEvent', iptrw);
RegisterProperty('OnKeyUp', 'TKeyEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
@ -470,19 +470,19 @@ end;
procedure SIRegisterTCUSTOMLISTBOX(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TCUSTOMLISTBOX') do
with Cl.AddClassN(cl.FindClass('TWinControl'), 'TCustomListBox') do
begin
RegisterProperty('ITEMS', 'TSTRINGS', iptrw);
RegisterProperty('ITEMINDEX', 'INTEGER', iptrw);
RegisterProperty('SELCOUNT', 'INTEGER', iptr);
RegisterProperty('SELECTED', 'BOOLEAN INTEGER', iptrw);
RegisterProperty('Items', 'TStrings', iptrw);
RegisterProperty('ItemIndex', 'Integer', iptrw);
RegisterProperty('SelCount', 'Integer', iptr);
RegisterProperty('Selected', 'Boolean Integer', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterMethod('procedure CLEAR');
RegisterMethod('function ITEMATPOS(POS:TPOINT;EXISTING:BOOLEAN):INTEGER');
RegisterMethod('function ITEMRECT(INDEX:INTEGER):TRECT');
RegisterProperty('CANVAS', 'TCANVAS', iptr);
RegisterProperty('TOPINDEX', 'INTEGER', iptrw);
RegisterMethod('procedure Clear');
RegisterMethod('function ItemAtPos(Pos: TPoint; Existing: Boolean): Integer');
RegisterMethod('function ItemRect(Index: Integer): TRect');
RegisterProperty('Canvas', 'TCanvas', iptr);
RegisterProperty('TopIndex', 'Integer', iptrw);
{$ENDIF}
end;
end;
@ -491,45 +491,45 @@ end;
procedure SIRegisterTLISTBOX(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TCUSTOMLISTBOX'), 'TLISTBOX') do
with Cl.AddClassN(cl.FindClass('TCustomListBox'), 'TListBox') do
begin
RegisterProperty('BORDERSTYLE', 'TBorderStyle', iptrw);
RegisterProperty('COLOR', 'TColor', iptrw);
RegisterProperty('FONT', 'TFont', iptrw);
RegisterProperty('MULTISELECT', 'Boolean', iptrw);
RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
RegisterProperty('PARENTFONT', 'Boolean', iptrw);
RegisterProperty('SORTED', 'Boolean', iptrw);
RegisterProperty('STYLE', 'TListBoxStyle', iptrw);
RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
RegisterProperty('BorderStyle', 'TBorderStyle', iptrw);
RegisterProperty('Color', 'TColor', iptrw);
RegisterProperty('Font', 'TFont', iptrw);
RegisterProperty('MultiSelect', 'Boolean', iptrw);
RegisterProperty('ParentColor', 'Boolean', iptrw);
RegisterProperty('ParentFont', 'Boolean', iptrw);
RegisterProperty('Sorted', 'Boolean', iptrw);
RegisterProperty('Style', 'TListBoxStyle', iptrw);
RegisterProperty('OnClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnDblClick', 'TNotifyEvent', iptrw);
RegisterProperty('OnEnter', 'TNotifyEvent', iptrw);
RegisterProperty('OnExit', 'TNotifyEvent', iptrw);
RegisterProperty('OnKeyDown', 'TKeyEvent', iptrw);
RegisterProperty('OnKeyPress', 'TKeyPressEvent', iptrw);
RegisterProperty('OnKeyUp', 'TKeyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterProperty('COLUMNS', 'Integer', iptrw);
RegisterProperty('Columns', 'Integer', iptrw);
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('EXTENDEDSELECT', 'Boolean', iptrw);
RegisterProperty('INTEGRALHEIGHT', 'Boolean', iptrw);
RegisterProperty('ITEMHEIGHT', 'Integer', iptrw);
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('TABWIDTH', 'Integer', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONDRAWITEM', 'TDrawItemEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONMEASUREITEM', 'TMeasureItemEvent', iptrw);
RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('ExtendedSelect', 'Boolean', iptrw);
RegisterProperty('IntegralHeight', 'Boolean', iptrw);
RegisterProperty('ItemHeight', 'Integer', iptrw);
RegisterProperty('ParentCtl3D', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('TabWidth', 'Integer', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnDrawItem', 'TDrawItemEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnMeasureItem', 'TMeasureItemEvent', iptrw);
RegisterProperty('OnMouseDown', 'TMouseEvent', iptrw);
RegisterProperty('OnMouseMove', 'TMouseMoveEvent', iptrw);
RegisterProperty('OnMouseUp', 'TMouseEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
@ -541,34 +541,34 @@ end;
procedure SIRegisterTSCROLLBAR(Cl: TPSPascalCompiler);
begin
with Cl.AddClassN(cl.FindClass('TWINCONTROL'), 'TSCROLLBAR') do
with Cl.AddClassN(cl.FindClass('TWinControl'), 'TScrollBar') do
begin
RegisterProperty('KIND', 'TSCROLLBARKIND', iptrw);
RegisterProperty('MAX', 'INTEGER', iptrw);
RegisterProperty('MIN', 'INTEGER', iptrw);
RegisterProperty('POSITION', 'INTEGER', iptrw);
RegisterProperty('ONCHANGE', 'TNOTIFYEVENT', iptrw);
RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
RegisterProperty('Kind', 'TScrollBarKind', iptrw);
RegisterProperty('Max', 'Integer', iptrw);
RegisterProperty('Min', 'Integer', iptrw);
RegisterProperty('Position', 'Integer', iptrw);
RegisterProperty('OnChange', 'TNotifyEvent', iptrw);
RegisterProperty('OnEnter', 'TNotifyEvent', iptrw);
RegisterProperty('OnExit', 'TNotifyEvent', iptrw);
{$IFNDEF PS_MINIVCL}
RegisterMethod('procedure SETPARAMS(APOSITION,AMIN,AMAX:INTEGER)');
RegisterMethod('procedure SetParams(APosition,AMin,AMax: Integer)');
RegisterProperty('CTL3D', 'Boolean', iptrw);
RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
RegisterProperty('LARGECHANGE', 'TSCROLLBARINC', iptrw);
RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
RegisterProperty('SMALLCHANGE', 'TSCROLLBARINC', iptrw);
RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
RegisterProperty('ONSCROLL', 'TSCROLLEVENT', iptrw);
RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
RegisterProperty('DragCursor', 'LongInt', iptrw);
RegisterProperty('DragMode', 'TDragMode', iptrw);
RegisterProperty('LargeChange', 'TScrollBarInc', iptrw);
RegisterProperty('ParentCtl3D', 'Boolean', iptrw);
RegisterProperty('ParentShowHint', 'Boolean', iptrw);
RegisterProperty('PopupMenu', 'TPopupMenu', iptrw);
RegisterProperty('SmallChange', 'TScrollBarInc', iptrw);
RegisterProperty('OnDragDrop', 'TDragDropEvent', iptrw);
RegisterProperty('OnDragOver', 'TDragOverEvent', iptrw);
RegisterProperty('OnEndDrag', 'TEndDragEvent', iptrw);
RegisterProperty('OnKeyDown', 'TKeyEvent', iptrw);
RegisterProperty('OnKeyPress', 'TKeyPressEvent', iptrw);
RegisterProperty('OnKeyUp', 'TKeyEvent', iptrw);
RegisterProperty('OnScroll', 'TScrollEvent', iptrw);
RegisterProperty('OnStartDrag', 'TStartDragEvent', iptrw);
{$ENDIF}
end;
end;
@ -585,12 +585,12 @@ begin
cl.AddTypeS('TCheckBoxState', '(cbUnchecked, cbChecked, cbGrayed)');
cl.AddTypeS('TListBoxStyle', '(lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable)');
cl.AddTypeS('TScrollCode', '(scLineUp, scLineDown, scPageUp, scPageDown, scPosition, scTrack, scTop, scBottom, scEndScroll)');
cl.AddTypeS('TScrollEvent', 'procedure(Sender: TObject; ScrollCode: TScrollCode;var ScrollPos: Integer)');
cl.AddTypeS('TScrollEvent', 'procedure(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer)');
Cl.addTypeS('TEOwnerDrawState', '(odSelected, odGrayed, odDisabled, odChecked,'
+' odFocused, odDefault, odHotLight, odInactive, odNoAccel, odNoFocusRect,'
+' odReserved1, odReserved2, odComboBoxEdit)');
cl.AddTypeS('TTextLayout', '( tlTop, tlCenter, tlBottom )');
Cl.addTypeS('TEOwnerDrawState', '(odSelected, odGrayed, odDisabled, odChecked, odFocused, odDefault, odHotLight, odInactive, odNoAccel, odNoFocusRect, odReserved1, odReserved2, odComboBoxEdit)');
cl.AddTypeS('TTextLayout', '(tlTop, tlCenter, tlBottom)');
cl.AddTypeS('TOwnerDrawState', 'set of TEOwnerDrawState');
end;

148
Source/uPSCompiler.pas
View File

@ -2123,18 +2123,18 @@ begin
exit;
end;
case VCType.BaseType of
btU8: VCType := FindAndAddType(Owner, '!OPENARRAYOFU8', 'array of byte');
btU8: VCType := FindAndAddType(Owner, '!OPENARRAYOFU8', 'array of Byte');
btS8: VCType := FindAndAddType(Owner, '!OPENARRAYOFS8', 'array of ShortInt');
btU16: VCType := FindAndAddType(Owner, '!OPENARRAYOFU16', 'array of SmallInt');
btS16: VCType := FindAndAddType(Owner, '!OPENARRAYOFS16', 'array of Word');
btU32: VCType := FindAndAddType(Owner, '!OPENARRAYOFU32', 'array of Cardinal');
btS32: VCType := FindAndAddType(Owner, '!OPENARRAYOFS32', 'array of Longint');
btS32: VCType := FindAndAddType(Owner, '!OPENARRAYOFS32', 'array of LongInt');
btSingle: VCType := FindAndAddType(Owner, '!OPENARRAYOFSINGLE', 'array of Single');
btDouble: VCType := FindAndAddType(Owner, '!OPENARRAYOFDOUBLE', 'array of Double');
btExtended: VCType := FindAndAddType(Owner, '!OPENARRAYOFEXTENDED', 'array of Extended');
btString: VCType := FindAndAddType(Owner, '!OPENARRAYOFSTRING', 'array of String');
btString: VCType := FindAndAddType(Owner, '!OPENARRAYOFSTRING', 'array of string');
btPChar: VCType := FindAndAddType(Owner, '!OPENARRAYOFPCHAR', {$IFDEF PS_PANSICHAR}'array of PAnsiChar'{$ELSE}'array of PChar'{$ENDIF});
btNotificationVariant, btVariant: VCType := FindAndAddType(Owner, '!OPENARRAYOFVARIANT', 'array of variant');
btNotificationVariant, btVariant: VCType := FindAndAddType(Owner, '!OPENARRAYOFVARIANT', 'array of Variant');
{$IFNDEF PS_NOINT64}btS64: VCType := FindAndAddType(Owner, '!OPENARRAYOFS64', 'array of Int64');{$ENDIF}
btChar: VCType := FindAndAddType(Owner, '!OPENARRAYOFCHAR', 'array of Char');
{$IFNDEF PS_NOWIDESTRING}
@ -6156,9 +6156,9 @@ function TPSPascalCompiler.ProcessSub(BlockInfo: TPSBlockInfo): Boolean;
exit;
end;
if TPSType(FarrType).BaseType = btVariant then
FArrType := at2ut(FindAndAddType(self, '!OPENARRAYOFVARIANT', 'array of variant'));
FArrType := at2ut(FindAndAddType(self, '!OPENARRAYOFVARIANT', 'array of Variant'));
if TPSType(FarrType).BaseType <> btArray then
FArrType := at2ut(FindAndAddType(self, '!OPENARRAYOFVARIANT', 'array of variant'));
FArrType := at2ut(FindAndAddType(self, '!OPENARRAYOFVARIANT', 'array of Variant'));
tmpp := AllocStackReg(FArrType);
tmpc := AllocStackReg(FindBaseType(bts32));
@ -6170,7 +6170,7 @@ function TPSPascalCompiler.ProcessSub(BlockInfo: TPSBlockInfo): Boolean;
BlockWriteByte(BlockInfo, CM_PV);
WriteOutrec(tmpp, False);
BlockWriteByte(BlockInfo, CM_C);
BlockWriteLong(BlockInfo, FindProc('SETARRAYLENGTH'));
BlockWriteLong(BlockInfo, FindProc('SetArrayLength'));
BlockWriteByte(BlockInfo, CM_PO);
tmpc.Free;
rr := TPSSubNumber.Create;
@ -6532,14 +6532,14 @@ function TPSPascalCompiler.ProcessSub(BlockInfo: TPSBlockInfo): Boolean;
exit;
end;
{$IFDEF PS_HAVEVARIANT}if (u.BaseType = btVariant) then
l := FindProc('VARARRAYSET') else
l := FindProc('VarArraySet') else
{$ENDIF}
{$IFNDEF PS_NOWIDESTRING}
if (u.BaseType = btWideString) or (u.BaseType = btUnicodeString) then
l := FindProc('WSTRSET')
l := FindProc('WStrSet')
else
{$ENDIF}
l := FindProc('STRSET');
l := FindProc('StrSet');
if l = -1 then
begin
MakeError('', ecUnknownIdentifier, 'StrSet');
@ -6604,14 +6604,14 @@ function TPSPascalCompiler.ProcessSub(BlockInfo: TPSBlockInfo): Boolean;
{$ENDIF}
end else begin
{$IFDEF PS_HAVEVARIANT}if (u.BaseType = btVariant) then
l := FindProc('VARARRAYGET') else
l := FindProc('VarArrayGet') else
{$ENDIF}
{$IFNDEF PS_NOWIDESTRING}
if (u.BaseType = btWideString) or (u.BaseType = btUnicodeString) then
l := FindProc('WSTRGET')
l := FindProc('WStrGet')
else
{$ENDIF}
l := FindProc('STRGET');
l := FindProc('StrGet');
if l = -1 then
begin
MakeError('', ecUnknownIdentifier, 'StrGet');
@ -11778,7 +11778,7 @@ var
FParser.Next;
{$IFNDEF PS_USESSUPPORT}
FUses := TIfStringList.Create;
FUses.Add('SYSTEM');
FUses.Add('System');
{$ENDIF}
repeat
if FParser.CurrTokenID <> CSTI_Identifier then
@ -11926,7 +11926,7 @@ begin
{$IFDEF PS_USESSUPPORT}
OldFileName:=fModule;
fModule:='System';
FUses.Add('SYSTEM');
FUses.Add('System');
{$ENDIF}
{$IFNDEF PS_NOSTANDARDTYPES}
DefineStandardTypes;
@ -12345,14 +12345,14 @@ begin
AddType('AnsiString', btString);
{$IFNDEF PS_NOWIDESTRING}
{$IFDEF DELPHI2009UP}
AddType('String', btUnicodeString);
AddType('string', btUnicodeString);
AddType('NativeString', btUnicodeString);
{$ELSE}
AddType('String', btString);
AddType('string', btString);
AddType('NativeString', btString);
{$ENDIF}
{$ELSE}
AddType('String', btString);
AddType('string', btString);
AddType('NativeString', btString);
{$ENDIF}
FAnyString := AddType('AnyString', btString);
@ -12362,8 +12362,8 @@ begin
AddType('LongInt', btS32);
at2ut(AddType('___Pointer', btPointer));
AddType('LongWord', btU32);
AddTypeCopyN('Integer', 'LONGINT');
AddTypeCopyN('Cardinal', 'LONGWORD');
AddTypeCopyN('Integer', 'LongInt');
AddTypeCopyN('Cardinal', 'LongWord');
AddType('tbtString', btString);
{$IFNDEF PS_NOINT64}
AddType('Int64', btS64);
@ -12376,14 +12376,14 @@ begin
AddType('Variant', btVariant);
AddType('!NotificationVariant', btNotificationVariant);
for i := FTypes.Count -1 downto 0 do AT2UT(FTypes[i]);
TPSArrayType(AddType('TVariantArray', btArray)).ArrayTypeNo := FindType('VARIANT');
TPSArrayType(AddType('TVariantArray', btArray)).ArrayTypeNo := FindType('Variant');
with AddFunction('function Assigned(I: Longint): Boolean;') do
with AddFunction('function Assigned(I: LongInt): Boolean;') do
begin
Name := '!ASSIGNED';
end;
with AddFunction('procedure _T(Name: tbtString; v: Variant);') do
with AddFunction('procedure _T(Name: tbtString; V: Variant);') do
begin
Name := '!NOTIFICATIONVARIANTSET';
end;
@ -12997,17 +12997,17 @@ begin
-UPSRuntime.TPSExec.RegisterStandardProcs
}
{$IFNDEF PS_NOINT64}
AddFunction('function IntToStr(i: Int64): String;');
AddFunction('function IntToStr(I: Int64): string;');
{$ELSE}
AddFunction('function IntTostr(i: Integer): String;');
AddFunction('function IntToStr(I: Integer): string;');
{$ENDIF}
AddFunction('function StrToInt(s: String): Longint;');
AddFunction('function StrToIntDef(s: String; def: Longint): Longint;');
AddFunction('function Copy(s: AnyString; iFrom, iCount: Longint): AnyString;');
AddFunction('function Pos(SubStr, S: AnyString): Longint;');
AddFunction('procedure Delete(var s: AnyString; ifrom, icount: Longint);');
AddFunction('procedure Insert(s: AnyString; var s2: AnyString; iPos: Longint);');
AddFunction('function GetArrayLength: integer;').Decl.AddParam.OrgName := 'arr';
AddFunction('function StrToInt(S: string): LongInt;');
AddFunction('function StrToIntDef(S: string; def: LongInt): LongInt;');
AddFunction('function Copy(S: AnyString; iFrom, iCount: LongInt): AnyString;');
AddFunction('function Pos(SubStr, S: AnyString): LongInt;');
AddFunction('procedure Delete(var S: AnyString; iFrom, iCount: LongInt);');
AddFunction('procedure Insert(S: AnyString; var s2: AnyString; iPos: LongInt);');
AddFunction('function GetArrayLength: Integer;').Decl.AddParam.OrgName := 'Arr';
p := AddFunction('procedure SetArrayLength;');
with P.Decl.AddParam do
begin
@ -13019,21 +13019,21 @@ begin
OrgName := 'count';
aType := FindBaseType(btS32);
end;
AddFunction('Function StrGet(var S : String; I : Integer) : Char;');
AddFunction('Function StrGet2(S : String; I : Integer) : Char;');
AddFunction('procedure StrSet(c : Char; I : Integer; var s : String);');
AddFunction('function StrGet(var S: string; I: Integer): Char;');
AddFunction('function StrGet2(S: string; I: Integer): Char;');
AddFunction('procedure StrSet(C: Char; I: Integer; var S: string);');
{$IFNDEF PS_NOWIDESTRING}
AddFunction('Function WStrGet(var S : AnyString; I : Integer) : WideChar;');
AddFunction('procedure WStrSet(c : AnyString; I : Integer; var s : AnyString);');
AddFunction('function WStrGet(var S: AnyString; I: Integer): WideChar;');
AddFunction('procedure WStrSet(C: AnyString; I: Integer; var S: AnyString);');
{$ENDIF}
AddDelphiFunction('Function VarArrayGet(var S : Variant; I : Integer) : Variant;');
AddDelphiFunction('procedure VarArraySet(c : Variant; I : Integer; var s : Variant);');
AddFunction('Function AnsiUppercase(s : String) : String;');
AddFunction('Function AnsiLowercase(s : String) : String;');
AddFunction('Function Uppercase(s : AnyString) : AnyString;');
AddFunction('Function Lowercase(s : AnyString) : AnyString;');
AddFunction('Function Trim(s : AnyString) : AnyString;');
AddFunction('function Length: Integer;').Decl.AddParam.OrgName:='s';
AddDelphiFunction('function VarArrayGet(var S: Variant; I: Integer): Variant;');
AddDelphiFunction('procedure VarArraySet(C: Variant; I: Integer; var S: Variant);');
AddFunction('function AnsiUpperCase(S: string): string;');
AddFunction('function AnsiLowerCase(S: string): string;');
AddFunction('function UpperCase(S: AnyString): AnyString;');
AddFunction('function LowerCase(S: AnyString): AnyString;');
AddFunction('function Trim(S: AnyString): AnyString;');
AddFunction('function Length: Integer;').Decl.AddParam.OrgName := 'S';
with AddFunction('procedure SetLength;').Decl do
begin
with AddParam do
@ -13048,11 +13048,11 @@ begin
end;
end;
{$IFNDEF PS_NOINT64}
AddFunction('function Low: Int64;').Decl.AddParam.OrgName:='x';
AddFunction('function High: Int64;').Decl.AddParam.OrgName:='x';
AddFunction('function Low: Int64;').Decl.AddParam.OrgName := 'X';
AddFunction('function High: Int64;').Decl.AddParam.OrgName := 'X';
{$ELSE}
AddFunction('function Low: Integer;').Decl.AddParam.OrgName:='x';
AddFunction('function High: Integer;').Decl.AddParam.OrgName:='x';
AddFunction('function Low: Integer;').Decl.AddParam.OrgName := 'X';
AddFunction('function High: Integer;').Decl.AddParam.OrgName := 'X';
{$ENDIF}
with AddFunction('procedure Dec;').Decl do begin
with AddParam do
@ -13092,21 +13092,21 @@ begin
Mode:=pmIn;
end;
end;
AddFunction('Function Sin(e : Extended) : Extended;');
AddFunction('Function Cos(e : Extended) : Extended;');
AddFunction('Function Sqrt(e : Extended) : Extended;');
AddFunction('Function Round(e : Extended) : Longint;');
AddFunction('Function Trunc(e : Extended) : Longint;');
AddFunction('Function Int(e : Extended) : Extended;');
AddFunction('Function Pi : Extended;');
AddFunction('Function Abs(e : Extended) : Extended;');
AddFunction('function StrToFloat(s: String): Extended;');
AddFunction('Function FloatToStr(e : Extended) : String;');
AddFunction('Function Padl(s : AnyString;I : longInt) : AnyString;');
AddFunction('Function Padr(s : AnyString;I : longInt) : AnyString;');
AddFunction('Function Padz(s : AnyString;I : longInt) : AnyString;');
AddFunction('Function Replicate(c : char;I : longInt) : String;');
AddFunction('Function StringOfChar(c : char;I : longInt) : String;');
AddFunction('function Sin(E: Extended): Extended;');
AddFunction('function Cos(E: Extended): Extended;');
AddFunction('function Sqrt(E: Extended): Extended;');
AddFunction('function Round(E: Extended): LongInt;');
AddFunction('function Trunc(E: Extended): LongInt;');
AddFunction('function Int(E: Extended): Extended;');
AddFunction('function Pi: Extended;');
AddFunction('function Abs(E: Extended): Extended;');
AddFunction('function StrToFloat(S: string): Extended;');
AddFunction('function FloatToStr(E: Extended): string;');
AddFunction('function PadL(S: AnyString; I: LongInt): AnyString;');
AddFunction('function PadR(S: AnyString; I: LongInt): AnyString;');
AddFunction('function PadZ(S: AnyString; I: LongInt): AnyString;');
AddFunction('function Replicate(C: Char; I: LongInt): string;');
AddFunction('function StringOfChar(C: Char; I: LongInt): string;');
AddTypeS('TVarType', 'Word');
AddConstantN('varEmpty', 'Word').Value.tu16 := varempty;
AddConstantN('varNull', 'Word').Value.tu16 := varnull;
@ -13154,19 +13154,19 @@ begin
'erVersionError, ErDivideByZero, ErMathError,erCouldNotCallProc, erOutofRecordRange, '+
'erOutOfMemory, erException, erNullPointerException, erNullVariantError, erInterfaceNotSupported, erCustomError)');
AddFunction('procedure RaiseLastException;');
AddFunction('procedure RaiseException(Ex: TIFException; Param: String);');
AddFunction('procedure RaiseException(Ex: TIFException; Param: string);');
AddFunction('function ExceptionType: TIFException;');
AddFunction('function ExceptionParam: String;');
AddFunction('function ExceptionParam: string;');
AddFunction('function ExceptionProc: Cardinal;');
AddFunction('function ExceptionPos: Cardinal;');
AddFunction('function ExceptionToString(er: TIFException; Param: String): String;');
AddFunction('function ExceptionToString(er: TIFException; Param: string): string;');
{$IFNDEF PS_NOINT64}
AddFunction('function StrToInt64(s: String): int64;');
AddFunction('function Int64ToStr(i: Int64): String;');
AddFunction('function StrToInt64Def(s: String; def: int64): int64;');
AddFunction('function StrToInt64(S: string): Int64;');
AddFunction('function Int64ToStr(I: Int64): string;');
AddFunction('function StrToInt64Def(S: string; def: Int64): Int64;');
{$ENDIF}
with AddFunction('function SizeOf: Longint;').Decl.AddParam do
with AddFunction('function SizeOf: LongInt;').Decl.AddParam do
begin
OrgName := 'Data';
end;
@ -13196,7 +13196,7 @@ begin
begin
ExportName := True;
end;
AddDelphiFunction('function IDispatchInvoke(Self: IDispatch; PropertySet: Boolean; const Name: String; Par: array of variant): variant;');
AddDelphiFunction('function IdispatchInvoke(Self: IDispatch; PropertySet: Boolean; const Name: string; Par: array of Variant): Variant;');
{$ENDIF}
{$ENDIF}
end;
@ -15692,13 +15692,13 @@ end;
function TPSVariantType.GetDynInvokeParamType(Owner: TPSPascalCompiler) : TPSType;
begin
Result := Owner.at2ut(FindAndAddType(owner, '!OPENARRAYOFVARIANT', 'array of variant'));
Result := Owner.at2ut(FindAndAddType(owner, '!OPENARRAYOFVARIANT', 'array of Variant'));
end;
function TPSVariantType.GetDynInvokeProcNo(Owner: TPSPascalCompiler; const Name: tbtString;
Params: TPSParameters): Cardinal;
begin
Result := Owner.FindProc('IDISPATCHINVOKE');
Result := Owner.FindProc('IdispatchInvoke');
end;
function TPSVariantType.GetDynIvokeResulType(

12
Source/uPSComponentExt.pas
View File

@ -298,7 +298,7 @@ Procedure TPSScriptExtension.GetCodeProps;
If (tci = nil) or existsItem(tci.OrgName) then continue;
if tci is TPSDelphiClassItemConstructor then begin
Getdecl(tci.decl, T, V);
If Show then addListItem('Constructor',tci.OrgName, v);
If Show then addListItem('constructor',tci.OrgName, v);
end else
if tci is TPSDelphiClassItemMethod then begin
If Show then begin
@ -342,7 +342,7 @@ Procedure TPSScriptExtension.GetCodeProps;
for n := 0 to (xr as TPSRecordType).RecValCount-1 do begin
xri := (xr as TPSRecordType).RecVal(n);
If Show then begin
addListItem('Var',xri.FieldOrgName,xri.aType.OriginalName)
addListItem('var',xri.FieldOrgName,xri.aType.OriginalName)
end else
If (xri.aType <> nil) and (xri.FieldName = Zoek) then
result := getTypeDef(xri.aType, aZoek);
@ -376,7 +376,7 @@ Procedure TPSScriptExtension.GetCodeProps;
for h := 0 to ip.ProcVars.Count-1 do begin
ipv := PIFPSProcVar(ip.ProcVars[h]);
If aVarName = '' then begin
addListItem('Var',ipv.OrgName, ': '+ipv.AType.OriginalName);
addListItem('var',ipv.OrgName, ': '+ipv.AType.OriginalName);
end else
If (ipv.NameHash = HH) and (ipv.Name = aVarName) then begin
result := getTypeDef(ipv.aType, aZoek);
@ -386,7 +386,7 @@ Procedure TPSScriptExtension.GetCodeProps;
for h := 0 to ip.Decl.ParamCount-1 do begin
ipp := TPSParameterDecl(ip.Decl.Params[h]);
If aVarName = '' then begin
addListItem('Var',ipp.OrgName, ': '+ipp.aType.OriginalName);
addListItem('var',ipp.OrgName, ': '+ipp.aType.OriginalName);
end else
If {(ipp.Hash = HH) and} (ipp.Name = aVarName) then begin
result := getTypeDef(ipp.aType, aZoek);
@ -472,11 +472,11 @@ begin
addListItem('Type',Comp.GetType(n).OriginalName);
end;
for n := 0 to Comp.GetVarCount-1 do begin
addListItem('Var',Comp.GetVar(n).OrgName, ': '+Comp.Getvar(n).aType.OriginalName);
addListItem('var',Comp.GetVar(n).OrgName, ': '+Comp.Getvar(n).aType.OriginalName);
end;
with TMyPascalCompiler(Comp) do begin
for n := 0 to FConstants.Count-1 do begin
addListItem('Const', TPSConstant(FConstants[n]).OrgName );
addListItem('const', TPSConstant(FConstants[n]).OrgName );
end;
for n := 0 to FRegProcs.Count-1 do begin
xr := FRegProcs[n];

690
Source/uPSR_DB.pas
View File

@ -1320,117 +1320,117 @@ procedure RIRegisterTDATASET(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TDATASET) do
begin
RegisterMethod(@TDATASET.ACTIVEBUFFER, 'ACTIVEBUFFER');
RegisterMethod(@TDATASET.APPEND, 'APPEND');
RegisterMethod(@TDATASET.APPENDRECORD, 'APPENDRECORD');
// RegisterVirtualMethod(@TDATASET.BOOKMARKVALID, 'BOOKMARKVALID');
RegisterVirtualMethod(@TDATASET.CANCEL, 'CANCEL');
RegisterMethod(@TDATASET.CHECKBROWSEMODE, 'CHECKBROWSEMODE');
RegisterMethod(@TDATASET.CLEARFIELDS, 'CLEARFIELDS');
RegisterMethod(@TDATASET.CLOSE, 'CLOSE');
RegisterMethod(@TDATASET.CONTROLSDISABLED, 'CONTROLSDISABLED');
// RegisterVirtualMethod(@TDATASET.COMPAREBOOKMARKS, 'COMPAREBOOKMARKS');
RegisterVirtualMethod(@TDATASET.CREATEBLOBSTREAM, 'CREATEBLOBSTREAM');
RegisterMethod(@TDATASET.CURSORPOSCHANGED, 'CURSORPOSCHANGED');
RegisterMethod(@TDATASET.DELETE, 'DELETE');
RegisterMethod(@TDATASET.DISABLECONTROLS, 'DISABLECONTROLS');
RegisterMethod(@TDATASET.EDIT, 'EDIT');
RegisterMethod(@TDATASET.ENABLECONTROLS, 'ENABLECONTROLS');
RegisterMethod(@TDATASET.FIELDBYNAME, 'FIELDBYNAME');
RegisterMethod(@TDATASET.FINDFIELD, 'FINDFIELD');
RegisterMethod(@TDATASET.FINDFIRST, 'FINDFIRST');
RegisterMethod(@TDATASET.FINDLAST, 'FINDLAST');
RegisterMethod(@TDATASET.FINDNEXT, 'FINDNEXT');
RegisterMethod(@TDATASET.FINDPRIOR, 'FINDPRIOR');
RegisterMethod(@TDATASET.FIRST, 'FIRST');
// RegisterVirtualMethod(@TDATASET.FREEBOOKMARK, 'FREEBOOKMARK');
// RegisterVirtualMethod(@TDATASET.GETBOOKMARK, 'GETBOOKMARK');
RegisterVirtualMethod(@TDATASET.GETCURRENTRECORD, 'GETCURRENTRECORD');
// RegisterVirtualMethod(@TDATASET.GETDETAILDATASETS, 'GETDETAILDATASETS');
// RegisterVirtualMethod(@TDATASET.GETDETAILLINKFIELDS, 'GETDETAILLINKFIELDS');
// RegisterVirtualMethod(@TDATASET.GETBLOBFIELDDATA, 'GETBLOBFIELDDATA');
// RegisterMethod(@TDATASET.GETFIELDLIST, 'GETFIELDLIST');
RegisterMethod(@TDATASET.GETFIELDNAMES, 'GETFIELDNAMES');
// RegisterMethod(@TDATASET.GOTOBOOKMARK, 'GOTOBOOKMARK');
RegisterMethod(@TDATASET.INSERT, 'INSERT');
RegisterMethod(@TDATASET.INSERTRECORD, 'INSERTRECORD');
RegisterMethod(@TDATASET.ISEMPTY, 'ISEMPTY');
RegisterMethod(@TDATASET.ISLINKEDTO, 'ISLINKEDTO');
RegisterVirtualMethod(@TDATASET.ISSEQUENCED, 'ISSEQUENCED');
RegisterMethod(@TDATASET.LAST, 'LAST');
RegisterVirtualMethod(@TDATASET.LOCATE, 'LOCATE');
RegisterVirtualMethod(@TDATASET.LOOKUP, 'LOOKUP');
RegisterMethod(@TDATASET.MOVEBY, 'MOVEBY');
RegisterMethod(@TDATASET.NEXT, 'NEXT');
RegisterMethod(@TDATASET.OPEN, 'OPEN');
RegisterVirtualMethod(@TDATASET.POST, 'POST');
RegisterMethod(@TDATASET.PRIOR, 'PRIOR');
RegisterMethod(@TDATASET.REFRESH, 'REFRESH');
// RegisterVirtualMethod(@TDATASET.RESYNC, 'RESYNC');
RegisterMethod(@TDATASET.SETFIELDS, 'SETFIELDS');
RegisterVirtualMethod(@TDATASET.TRANSLATE, 'TRANSLATE');
RegisterMethod(@TDATASET.UPDATECURSORPOS, 'UPDATECURSORPOS');
RegisterMethod(@TDATASET.UPDATERECORD, 'UPDATERECORD');
RegisterVirtualMethod(@TDATASET.UPDATESTATUS, 'UPDATESTATUS');
RegisterMethod(@TDATASET.ACTIVEBUFFER, 'ActiveBuffer');
RegisterMethod(@TDATASET.APPEND, 'Append');
RegisterMethod(@TDATASET.APPENDRECORD, 'AppendRecord');
// RegisterVirtualMethod(@TDATASET.BOOKMARKVALID, 'BookmarkValid');
RegisterVirtualMethod(@TDATASET.CANCEL, 'Cancel');
RegisterMethod(@TDATASET.CHECKBROWSEMODE, 'CheckBrowseMode');
RegisterMethod(@TDATASET.CLEARFIELDS, 'ClearFields');
RegisterMethod(@TDATASET.CLOSE, 'Close');
RegisterMethod(@TDATASET.CONTROLSDISABLED, 'ControlsDisabled');
// RegisterVirtualMethod(@TDATASET.COMPAREBOOKMARKS, 'CompareBookmarks');
RegisterVirtualMethod(@TDATASET.CREATEBLOBSTREAM, 'CreateBlobStream');
RegisterMethod(@TDATASET.CURSORPOSCHANGED, 'CursorPosChanged');
RegisterMethod(@TDATASET.DELETE, 'Delete');
RegisterMethod(@TDATASET.DISABLECONTROLS, 'DisableControls');
RegisterMethod(@TDATASET.EDIT, 'Edit');
RegisterMethod(@TDATASET.ENABLECONTROLS, 'EnableControls');
RegisterMethod(@TDATASET.FIELDBYNAME, 'FieldByName');
RegisterMethod(@TDATASET.FINDFIELD, 'FindField');
RegisterMethod(@TDATASET.FINDFIRST, 'FindFirst');
RegisterMethod(@TDATASET.FINDLAST, 'FindLast');
RegisterMethod(@TDATASET.FINDNEXT, 'FindNext');
RegisterMethod(@TDATASET.FINDPRIOR, 'FindPrior');
RegisterMethod(@TDATASET.FIRST, 'First');
// RegisterVirtualMethod(@TDATASET.FREEBOOKMARK, 'FreeBookmark');
// RegisterVirtualMethod(@TDATASET.GETBOOKMARK, 'GetBookmark');
RegisterVirtualMethod(@TDATASET.GETCURRENTRECORD, 'GetCurrentRecord');
// RegisterVirtualMethod(@TDATASET.GETDETAILDATASETS, 'GetDetailDataSets');
// RegisterVirtualMethod(@TDATASET.GETDETAILLINKFIELDS, 'GetDetailLinkFields');
// RegisterVirtualMethod(@TDATASET.GETBLOBFIELDDATA, 'GetBlobFieldData');
// RegisterMethod(@TDATASET.GETFIELDLIST, 'GetFieldList');
RegisterMethod(@TDATASET.GETFIELDNAMES, 'GetFieldNames');
// RegisterMethod(@TDATASET.GOTOBOOKMARK, 'GotoBookmark');
RegisterMethod(@TDATASET.INSERT, 'Insert');
RegisterMethod(@TDATASET.INSERTRECORD, 'InsertRecord');
RegisterMethod(@TDATASET.ISEMPTY, 'IsEmpty');
RegisterMethod(@TDATASET.ISLINKEDTO, 'IsLinkedTo');
RegisterVirtualMethod(@TDATASET.ISSEQUENCED, 'IsSequenced');
RegisterMethod(@TDATASET.LAST, 'Last');
RegisterVirtualMethod(@TDATASET.LOCATE, 'Locate');
RegisterVirtualMethod(@TDATASET.LOOKUP, 'Lookup');
RegisterMethod(@TDATASET.MOVEBY, 'MoveBy');
RegisterMethod(@TDATASET.NEXT, 'Next');
RegisterMethod(@TDATASET.OPEN, 'Open');
RegisterVirtualMethod(@TDATASET.POST, 'Post');
RegisterMethod(@TDATASET.PRIOR, 'Prior');
RegisterMethod(@TDATASET.REFRESH, 'Refresh');
// RegisterVirtualMethod(@TDATASET.RESYNC, 'Resync');
RegisterMethod(@TDATASET.SETFIELDS, 'SetFields');
RegisterVirtualMethod(@TDATASET.TRANSLATE, 'Translate');
RegisterMethod(@TDATASET.UPDATECURSORPOS, 'UpdateCursorPos');
RegisterMethod(@TDATASET.UPDATERECORD, 'UpdateRecord');
RegisterVirtualMethod(@TDATASET.UPDATESTATUS, 'UpdateStatus');
RegisterPropertyHelper(@TDATASETBOF_R,nil,'BOF');
// RegisterPropertyHelper(@TDATASETBOOKMARK_R,@TDATASETBOOKMARK_W,'BOOKMARK');
RegisterPropertyHelper(@TDATASETCANMODIFY_R,nil,'CANMODIFY');
RegisterPropertyHelper(@TDATASETDATASOURCE_R,nil,'DATASOURCE');
RegisterPropertyHelper(@TDATASETDEFAULTFIELDS_R,nil,'DEFAULTFIELDS');
// RegisterPropertyHelper(@TDATASETBOOKMARK_R,@TDATASETBOOKMARK_W,'Bookmark');
RegisterPropertyHelper(@TDATASETCANMODIFY_R,nil,'CanModify');
RegisterPropertyHelper(@TDATASETDATASOURCE_R,nil,'DataSource');
RegisterPropertyHelper(@TDATASETDEFAULTFIELDS_R,nil,'DefaultFields');
RegisterPropertyHelper(@TDATASETEOF_R,nil,'EOF');
RegisterPropertyHelper(@TDATASETFIELDCOUNT_R,nil,'FIELDCOUNT');
RegisterPropertyHelper(@TDATASETFIELDS_R,nil,'FIELDS');
RegisterPropertyHelper(@TDATASETFIELDVALUES_R,@TDATASETFIELDVALUES_W,'FIELDVALUES');
RegisterPropertyHelper(@TDATASETFOUND_R,nil,'FOUND');
RegisterPropertyHelper(@TDATASETFIELDCOUNT_R,nil,'FieldCount');
RegisterPropertyHelper(@TDATASETFIELDS_R,nil,'Fields');
RegisterPropertyHelper(@TDATASETFIELDVALUES_R,@TDATASETFIELDVALUES_W,'FieldValues');
RegisterPropertyHelper(@TDATASETFOUND_R,nil,'Found');
{$IFDEF DELPHI6UP}
RegisterPropertyHelper(@TDATASETISUNIDIRECTIONAL_R,nil,'ISUNIDIRECTIONAL');
RegisterPropertyHelper(@TDATASETISUNIDIRECTIONAL_R,nil,'IsUnidirectional');
{$ENDIF}
RegisterPropertyHelper(@TDATASETMODIFIED_R,nil,'MODIFIED');
RegisterPropertyHelper(@TDATASETRECORDCOUNT_R,nil,'RECORDCOUNT');
RegisterPropertyHelper(@TDATASETRECNO_R,@TDATASETRECNO_W,'RECNO');
RegisterPropertyHelper(@TDATASETRECORDSIZE_R,nil,'RECORDSIZE');
RegisterPropertyHelper(@TDATASETSTATE_R,nil,'STATE');
RegisterPropertyHelper(@TDATASETFILTER_R,@TDATASETFILTER_W,'FILTER');
RegisterPropertyHelper(@TDATASETFILTERED_R,@TDATASETFILTERED_W,'FILTERED');
RegisterPropertyHelper(@TDATASETFILTEROPTIONS_R,@TDATASETFILTEROPTIONS_W,'FILTEROPTIONS');
RegisterPropertyHelper(@TDATASETACTIVE_R,@TDATASETACTIVE_W,'ACTIVE');
RegisterPropertyHelper(@TDATASETAUTOCALCFIELDS_R,@TDATASETAUTOCALCFIELDS_W,'AUTOCALCFIELDS');
RegisterPropertyHelper(@TDATASETBEFOREOPEN_R,@TDATASETBEFOREOPEN_W,'BEFOREOPEN');
RegisterPropertyHelper(@TDATASETAFTEROPEN_R,@TDATASETAFTEROPEN_W,'AFTEROPEN');
RegisterPropertyHelper(@TDATASETBEFORECLOSE_R,@TDATASETBEFORECLOSE_W,'BEFORECLOSE');
RegisterPropertyHelper(@TDATASETAFTERCLOSE_R,@TDATASETAFTERCLOSE_W,'AFTERCLOSE');
RegisterPropertyHelper(@TDATASETBEFOREINSERT_R,@TDATASETBEFOREINSERT_W,'BEFOREINSERT');
RegisterPropertyHelper(@TDATASETAFTERINSERT_R,@TDATASETAFTERINSERT_W,'AFTERINSERT');
RegisterPropertyHelper(@TDATASETBEFOREEDIT_R,@TDATASETBEFOREEDIT_W,'BEFOREEDIT');
RegisterPropertyHelper(@TDATASETAFTEREDIT_R,@TDATASETAFTEREDIT_W,'AFTEREDIT');
RegisterPropertyHelper(@TDATASETBEFOREPOST_R,@TDATASETBEFOREPOST_W,'BEFOREPOST');
RegisterPropertyHelper(@TDATASETAFTERPOST_R,@TDATASETAFTERPOST_W,'AFTERPOST');
RegisterPropertyHelper(@TDATASETBEFORECANCEL_R,@TDATASETBEFORECANCEL_W,'BEFORECANCEL');
RegisterPropertyHelper(@TDATASETAFTERCANCEL_R,@TDATASETAFTERCANCEL_W,'AFTERCANCEL');
RegisterPropertyHelper(@TDATASETBEFOREDELETE_R,@TDATASETBEFOREDELETE_W,'BEFOREDELETE');
RegisterPropertyHelper(@TDATASETAFTERDELETE_R,@TDATASETAFTERDELETE_W,'AFTERDELETE');
RegisterPropertyHelper(@TDATASETBEFORESCROLL_R,@TDATASETBEFORESCROLL_W,'BEFORESCROLL');
RegisterPropertyHelper(@TDATASETAFTERSCROLL_R,@TDATASETAFTERSCROLL_W,'AFTERSCROLL');
RegisterPropertyHelper(@TDATASETMODIFIED_R,nil,'Modified');
RegisterPropertyHelper(@TDATASETRECORDCOUNT_R,nil,'RecordCount');
RegisterPropertyHelper(@TDATASETRECNO_R,@TDATASETRECNO_W,'RecNo');
RegisterPropertyHelper(@TDATASETRECORDSIZE_R,nil,'RecordSize');
RegisterPropertyHelper(@TDATASETSTATE_R,nil,'State');
RegisterPropertyHelper(@TDATASETFILTER_R,@TDATASETFILTER_W,'Filter');
RegisterPropertyHelper(@TDATASETFILTERED_R,@TDATASETFILTERED_W,'Filtered');
RegisterPropertyHelper(@TDATASETFILTEROPTIONS_R,@TDATASETFILTEROPTIONS_W,'FilterOptions');
RegisterPropertyHelper(@TDATASETACTIVE_R,@TDATASETACTIVE_W,'Active');
RegisterPropertyHelper(@TDATASETAUTOCALCFIELDS_R,@TDATASETAUTOCALCFIELDS_W,'AutoCalcFields');
RegisterPropertyHelper(@TDATASETBEFOREOPEN_R,@TDATASETBEFOREOPEN_W,'BeforeOpen');
RegisterPropertyHelper(@TDATASETAFTEROPEN_R,@TDATASETAFTEROPEN_W,'AfterOpen');
RegisterPropertyHelper(@TDATASETBEFORECLOSE_R,@TDATASETBEFORECLOSE_W,'BeforeClose');
RegisterPropertyHelper(@TDATASETAFTERCLOSE_R,@TDATASETAFTERCLOSE_W,'AfterClose');
RegisterPropertyHelper(@TDATASETBEFOREINSERT_R,@TDATASETBEFOREINSERT_W,'BeforeInsert');
RegisterPropertyHelper(@TDATASETAFTERINSERT_R,@TDATASETAFTERINSERT_W,'AfterInsert');
RegisterPropertyHelper(@TDATASETBEFOREEDIT_R,@TDATASETBEFOREEDIT_W,'BeforeEdit');
RegisterPropertyHelper(@TDATASETAFTEREDIT_R,@TDATASETAFTEREDIT_W,'AfterEdit');
RegisterPropertyHelper(@TDATASETBEFOREPOST_R,@TDATASETBEFOREPOST_W,'BeforePost');
RegisterPropertyHelper(@TDATASETAFTERPOST_R,@TDATASETAFTERPOST_W,'AfterPost');
RegisterPropertyHelper(@TDATASETBEFORECANCEL_R,@TDATASETBEFORECANCEL_W,'BeforeCancel');
RegisterPropertyHelper(@TDATASETAFTERCANCEL_R,@TDATASETAFTERCANCEL_W,'AfterCancel');
RegisterPropertyHelper(@TDATASETBEFOREDELETE_R,@TDATASETBEFOREDELETE_W,'BeforeDelete');
RegisterPropertyHelper(@TDATASETAFTERDELETE_R,@TDATASETAFTERDELETE_W,'AfterDelete');
RegisterPropertyHelper(@TDATASETBEFORESCROLL_R,@TDATASETBEFORESCROLL_W,'BeforeScroll');
RegisterPropertyHelper(@TDATASETAFTERSCROLL_R,@TDATASETAFTERSCROLL_W,'AfterScroll');
{$IFNDEF FPC}
RegisterPropertyHelper(@TDATASETFIELDLIST_R,nil,'FIELDLIST');
RegisterPropertyHelper(@TDATASETDESIGNER_R,nil,'DESIGNER');
RegisterPropertyHelper(@TDATASETBLOCKREADSIZE_R,@TDATASETBLOCKREADSIZE_W,'BLOCKREADSIZE');
RegisterPropertyHelper(@TDATASETBEFOREREFRESH_R,@TDATASETBEFOREREFRESH_W,'BEFOREREFRESH');
RegisterPropertyHelper(@TDATASETAFTERREFRESH_R,@TDATASETAFTERREFRESH_W,'AFTERREFRESH');
RegisterPropertyHelper(@TDATASETAGGFIELDS_R,nil,'AGGFIELDS');
RegisterPropertyHelper(@TDATASETDATASETFIELD_R,@TDATASETDATASETFIELD_W,'DATASETFIELD');
RegisterPropertyHelper(@TDATASETOBJECTVIEW_R,@TDATASETOBJECTVIEW_W,'OBJECTVIEW');
RegisterPropertyHelper(@TDATASETSPARSEARRAYS_R,@TDATASETSPARSEARRAYS_W,'SPARSEARRAYS');
RegisterPropertyHelper(@TDATASETFIELDDEFS_R,@TDATASETFIELDDEFS_W,'FIELDDEFS');
RegisterPropertyHelper(@TDATASETFIELDDEFLIST_R,nil,'FIELDDEFLIST');
RegisterPropertyHelper(@TDATASETFIELDLIST_R,nil,'FieldList');
RegisterPropertyHelper(@TDATASETDESIGNER_R,nil,'Designer');
RegisterPropertyHelper(@TDATASETBLOCKREADSIZE_R,@TDATASETBLOCKREADSIZE_W,'BlockReadSize');
RegisterPropertyHelper(@TDATASETBEFOREREFRESH_R,@TDATASETBEFOREREFRESH_W,'BeforeRefresh');
RegisterPropertyHelper(@TDATASETAFTERREFRESH_R,@TDATASETAFTERREFRESH_W,'AfterRefresh');
RegisterPropertyHelper(@TDATASETAGGFIELDS_R,nil,'AggFields');
RegisterPropertyHelper(@TDATASETDATASETFIELD_R,@TDATASETDATASETFIELD_W,'DataSetField');
RegisterPropertyHelper(@TDATASETOBJECTVIEW_R,@TDATASETOBJECTVIEW_W,'ObjectView');
RegisterPropertyHelper(@TDATASETSPARSEARRAYS_R,@TDATASETSPARSEARRAYS_W,'SparseArrays');
RegisterPropertyHelper(@TDATASETFIELDDEFS_R,@TDATASETFIELDDEFS_W,'FieldDefs');
RegisterPropertyHelper(@TDATASETFIELDDEFLIST_R,nil,'FieldDefList');
{$ENDIF}
RegisterEventPropertyHelper(@TDATASETONCALCFIELDS_R,@TDATASETONCALCFIELDS_W,'ONCALCFIELDS');
RegisterEventPropertyHelper(@TDATASETONDELETEERROR_R,@TDATASETONDELETEERROR_W,'ONDELETEERROR');
RegisterEventPropertyHelper(@TDATASETONEDITERROR_R,@TDATASETONEDITERROR_W,'ONEDITERROR');
RegisterEventPropertyHelper(@TDATASETONFILTERRECORD_R,@TDATASETONFILTERRECORD_W,'ONFILTERRECORD');
RegisterEventPropertyHelper(@TDATASETONNEWRECORD_R,@TDATASETONNEWRECORD_W,'ONNEWRECORD');
RegisterEventPropertyHelper(@TDATASETONPOSTERROR_R,@TDATASETONPOSTERROR_W,'ONPOSTERROR');
RegisterEventPropertyHelper(@TDATASETONCALCFIELDS_R,@TDATASETONCALCFIELDS_W,'OnCalcFields');
RegisterEventPropertyHelper(@TDATASETONDELETEERROR_R,@TDATASETONDELETEERROR_W,'OnDeleteError');
RegisterEventPropertyHelper(@TDATASETONEDITERROR_R,@TDATASETONEDITERROR_W,'OnEditError');
RegisterEventPropertyHelper(@TDATASETONFILTERRECORD_R,@TDATASETONFILTERRECORD_W,'OnFilterRecord');
RegisterEventPropertyHelper(@TDATASETONNEWRECORD_R,@TDATASETONNEWRECORD_W,'OnNewRecord');
RegisterEventPropertyHelper(@TDATASETONPOSTERROR_R,@TDATASETONPOSTERROR_W,'OnPostError');
end;
end;
@ -1438,17 +1438,17 @@ procedure RIRegisterTPARAMS(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TPARAMS) do
begin
// RegisterMethod(@TPARAMS.ASSIGNVALUES, 'ASSIGNVALUES');
RegisterMethod(@TPARAMS.ADDPARAM, 'ADDPARAM');
RegisterMethod(@TPARAMS.REMOVEPARAM, 'REMOVEPARAM');
RegisterMethod(@TPARAMS.CREATEPARAM, 'CREATEPARAM');
RegisterMethod(@TPARAMS.GETPARAMLIST, 'GETPARAMLIST');
RegisterMethod(@TPARAMS.ISEQUAL, 'ISEQUAL');
RegisterMethod(@TPARAMS.PARSESQL, 'PARSESQL');
RegisterMethod(@TPARAMS.PARAMBYNAME, 'PARAMBYNAME');
RegisterMethod(@TPARAMS.FINDPARAM, 'FINDPARAM');
RegisterPropertyHelper(@TPARAMSITEMS_R,@TPARAMSITEMS_W,'ITEMS');
RegisterPropertyHelper(@TPARAMSPARAMVALUES_R,@TPARAMSPARAMVALUES_W,'PARAMVALUES');
// RegisterMethod(@TPARAMS.ASSIGNVALUES, 'AssignValues');
RegisterMethod(@TPARAMS.ADDPARAM, 'AddParam');
RegisterMethod(@TPARAMS.REMOVEPARAM, 'RemoveParam');
RegisterMethod(@TPARAMS.CREATEPARAM, 'CreateParam');
RegisterMethod(@TPARAMS.GETPARAMLIST, 'GetParamList');
RegisterMethod(@TPARAMS.ISEQUAL, 'IsEqual');
RegisterMethod(@TPARAMS.PARSESQL, 'ParseSQL');
RegisterMethod(@TPARAMS.PARAMBYNAME, 'ParamByName');
RegisterMethod(@TPARAMS.FINDPARAM, 'FindParam');
RegisterPropertyHelper(@TPARAMSITEMS_R,@TPARAMSITEMS_W,'Items');
RegisterPropertyHelper(@TPARAMSPARAMVALUES_R,@TPARAMSPARAMVALUES_W,'ParamValues');
end;
end;
@ -1456,46 +1456,46 @@ procedure RIRegisterTPARAM(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TPARAM) do
begin
RegisterMethod(@TPARAM.ASSIGNFIELD, 'ASSIGNFIELD');
RegisterMethod(@TPARAM.ASSIGNFIELDVALUE, 'ASSIGNFIELDVALUE');
RegisterMethod(@TPARAM.CLEAR, 'CLEAR');
// RegisterMethod(@TPARAM.GETDATA, 'GETDATA');
RegisterMethod(@TPARAM.GETDATASIZE, 'GETDATASIZE');
RegisterMethod(@TPARAM.LOADFROMFILE, 'LOADFROMFILE');
RegisterMethod(@TPARAM.LOADFROMSTREAM, 'LOADFROMSTREAM');
// RegisterMethod(@TPARAM.SETBLOBDATA, 'SETBLOBDATA');
// RegisterMethod(@TPARAM.SETDATA, 'SETDATA');
RegisterMethod(@TPARAM.ASSIGNFIELD, 'AssignField');
RegisterMethod(@TPARAM.ASSIGNFIELDVALUE, 'AssignFieldValue');
RegisterMethod(@TPARAM.CLEAR, 'Clear');
// RegisterMethod(@TPARAM.GETDATA, 'GetData');
RegisterMethod(@TPARAM.GETDATASIZE, 'GetDataSize');
RegisterMethod(@TPARAM.LOADFROMFILE, 'LoadFromFile');
RegisterMethod(@TPARAM.LOADFROMSTREAM, 'LoadFromStream');
// RegisterMethod(@TPARAM.SETBLOBDATA, 'SetBlobData');
// RegisterMethod(@TPARAM.SETDATA, 'SetData');
{$IFNDEF FPC}
RegisterPropertyHelper(@TPARAMASBCD_R,@TPARAMASBCD_W,'ASBCD');
RegisterPropertyHelper(@TPARAMASBCD_R,@TPARAMASBCD_W,'AsBCD');
{$IFDEF DELPHI6UP}
RegisterPropertyHelper(@TPARAMASFMTBCD_R,@TPARAMASFMTBCD_W,'ASFMTBCD');
RegisterPropertyHelper(@TPARAMASFMTBCD_R,@TPARAMASFMTBCD_W,'AsFMTBCD');
{$ENDIF}
{$ENDIF}
RegisterPropertyHelper(@TPARAMASBLOB_R,@TPARAMASBLOB_W,'ASBLOB');
RegisterPropertyHelper(@TPARAMASBOOLEAN_R,@TPARAMASBOOLEAN_W,'ASBOOLEAN');
RegisterPropertyHelper(@TPARAMASCURRENCY_R,@TPARAMASCURRENCY_W,'ASCURRENCY');
RegisterPropertyHelper(@TPARAMASDATE_R,@TPARAMASDATE_W,'ASDATE');
RegisterPropertyHelper(@TPARAMASDATETIME_R,@TPARAMASDATETIME_W,'ASDATETIME');
RegisterPropertyHelper(@TPARAMASFLOAT_R,@TPARAMASFLOAT_W,'ASFLOAT');
RegisterPropertyHelper(@TPARAMASINTEGER_R,@TPARAMASINTEGER_W,'ASINTEGER');
RegisterPropertyHelper(@TPARAMASSMALLINT_R,@TPARAMASSMALLINT_W,'ASSMALLINT');
RegisterPropertyHelper(@TPARAMASMEMO_R,@TPARAMASMEMO_W,'ASMEMO');
RegisterPropertyHelper(@TPARAMASSTRING_R,@TPARAMASSTRING_W,'ASSTRING');
RegisterPropertyHelper(@TPARAMASTIME_R,@TPARAMASTIME_W,'ASTIME');
RegisterPropertyHelper(@TPARAMASWORD_R,@TPARAMASWORD_W,'ASWORD');
RegisterPropertyHelper(@TPARAMBOUND_R,@TPARAMBOUND_W,'BOUND');
RegisterPropertyHelper(@TPARAMISNULL_R,nil,'ISNULL');
RegisterPropertyHelper(@TPARAMNATIVESTR_R,@TPARAMNATIVESTR_W,'NATIVESTR');
RegisterPropertyHelper(@TPARAMTEXT_R,@TPARAMTEXT_W,'TEXT');
RegisterPropertyHelper(@TPARAMDATATYPE_R,@TPARAMDATATYPE_W,'DATATYPE');
RegisterPropertyHelper(@TPARAMASBLOB_R,@TPARAMASBLOB_W,'AsBlob');
RegisterPropertyHelper(@TPARAMASBOOLEAN_R,@TPARAMASBOOLEAN_W,'AsBoolean');
RegisterPropertyHelper(@TPARAMASCURRENCY_R,@TPARAMASCURRENCY_W,'AsCurrency');
RegisterPropertyHelper(@TPARAMASDATE_R,@TPARAMASDATE_W,'AsDate');
RegisterPropertyHelper(@TPARAMASDATETIME_R,@TPARAMASDATETIME_W,'AsDateTime');
RegisterPropertyHelper(@TPARAMASFLOAT_R,@TPARAMASFLOAT_W,'AsFloat');
RegisterPropertyHelper(@TPARAMASINTEGER_R,@TPARAMASINTEGER_W,'AsInteger');
RegisterPropertyHelper(@TPARAMASSMALLINT_R,@TPARAMASSMALLINT_W,'AsSmallInt');
RegisterPropertyHelper(@TPARAMASMEMO_R,@TPARAMASMEMO_W,'AsMemo');
RegisterPropertyHelper(@TPARAMASSTRING_R,@TPARAMASSTRING_W,'AsString');
RegisterPropertyHelper(@TPARAMASTIME_R,@TPARAMASTIME_W,'AsTime');
RegisterPropertyHelper(@TPARAMASWORD_R,@TPARAMASWORD_W,'AsWord');
RegisterPropertyHelper(@TPARAMBOUND_R,@TPARAMBOUND_W,'Bound');
RegisterPropertyHelper(@TPARAMISNULL_R,nil,'IsNull');
RegisterPropertyHelper(@TPARAMNATIVESTR_R,@TPARAMNATIVESTR_W,'NativeStr');
RegisterPropertyHelper(@TPARAMTEXT_R,@TPARAMTEXT_W,'Text');
RegisterPropertyHelper(@TPARAMDATATYPE_R,@TPARAMDATATYPE_W,'DataType');
{$IFDEF DELPHI6UP}
RegisterPropertyHelper(@TPARAMPRECISION_R,@TPARAMPRECISION_W,'PRECISION');
RegisterPropertyHelper(@TPARAMNUMERICSCALE_R,@TPARAMNUMERICSCALE_W,'NUMERICSCALE');
RegisterPropertyHelper(@TPARAMSIZE_R,@TPARAMSIZE_W,'SIZE');
RegisterPropertyHelper(@TPARAMPRECISION_R,@TPARAMPRECISION_W,'Precision');
RegisterPropertyHelper(@TPARAMNUMERICSCALE_R,@TPARAMNUMERICSCALE_W,'NumericScale');
RegisterPropertyHelper(@TPARAMSIZE_R,@TPARAMSIZE_W,'Size');
{$ENDIF}
RegisterPropertyHelper(@TPARAMNAME_R,@TPARAMNAME_W,'NAME');
RegisterPropertyHelper(@TPARAMPARAMTYPE_R,@TPARAMPARAMTYPE_W,'PARAMTYPE');
RegisterPropertyHelper(@TPARAMVALUE_R,@TPARAMVALUE_W,'VALUE');
RegisterPropertyHelper(@TPARAMNAME_R,@TPARAMNAME_W,'Name');
RegisterPropertyHelper(@TPARAMPARAMTYPE_R,@TPARAMPARAMTYPE_W,'ParamType');
RegisterPropertyHelper(@TPARAMVALUE_R,@TPARAMVALUE_W,'Value');
end;
end;
@ -1518,7 +1518,7 @@ procedure RIRegisterTREFERENCEFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TREFERENCEFIELD) do
begin
RegisterPropertyHelper(@TREFERENCEFIELDREFERENCETABLENAME_R,@TREFERENCEFIELDREFERENCETABLENAME_W,'REFERENCETABLENAME');
RegisterPropertyHelper(@TREFERENCEFIELDREFERENCETABLENAME_R,@TREFERENCEFIELDREFERENCETABLENAME_W,'ReferenceTableName');
end;
end;
@ -1527,8 +1527,8 @@ procedure RIRegisterTDATASETFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TDATASETFIELD) do
begin
RegisterPropertyHelper(@TDATASETFIELDNESTEDDATASET_R,nil,'NESTEDDATASET');
RegisterPropertyHelper(@TDATASETFIELDINCLUDEOBJECTFIELD_R,@TDATASETFIELDINCLUDEOBJECTFIELD_W,'INCLUDEOBJECTFIELD');
RegisterPropertyHelper(@TDATASETFIELDNESTEDDATASET_R,nil,'NestedDataSet');
RegisterPropertyHelper(@TDATASETFIELDINCLUDEOBJECTFIELD_R,@TDATASETFIELDINCLUDEOBJECTFIELD_W,'IncludeObjectField');
end;
end;
@ -1553,11 +1553,11 @@ procedure RIRegisterTOBJECTFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TOBJECTFIELD) do
begin
RegisterPropertyHelper(@TOBJECTFIELDFIELDCOUNT_R,nil,'FIELDCOUNT');
RegisterPropertyHelper(@TOBJECTFIELDFIELDS_R,nil,'FIELDS');
RegisterPropertyHelper(@TOBJECTFIELDFIELDVALUES_R,@TOBJECTFIELDFIELDVALUES_W,'FIELDVALUES');
RegisterPropertyHelper(@TOBJECTFIELDUNNAMED_R,nil,'UNNAMED');
RegisterPropertyHelper(@TOBJECTFIELDOBJECTTYPE_R,@TOBJECTFIELDOBJECTTYPE_W,'OBJECTTYPE');
RegisterPropertyHelper(@TOBJECTFIELDFIELDCOUNT_R,nil,'FieldCount');
RegisterPropertyHelper(@TOBJECTFIELDFIELDS_R,nil,'Fields');
RegisterPropertyHelper(@TOBJECTFIELDFIELDVALUES_R,@TOBJECTFIELDFIELDVALUES_W,'FieldValues');
RegisterPropertyHelper(@TOBJECTFIELDUNNAMED_R,nil,'UnNamed');
RegisterPropertyHelper(@TOBJECTFIELDOBJECTTYPE_R,@TOBJECTFIELDOBJECTTYPE_W,'ObjectType');
end;
end;
{$ENDIF}
@ -1581,18 +1581,18 @@ procedure RIRegisterTBLOBFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TBLOBFIELD) do
begin
RegisterMethod(@TBLOBFIELD.LOADFROMFILE, 'LOADFROMFILE');
RegisterMethod(@TBLOBFIELD.LOADFROMSTREAM, 'LOADFROMSTREAM');
RegisterMethod(@TBLOBFIELD.SAVETOFILE, 'SAVETOFILE');
RegisterMethod(@TBLOBFIELD.SAVETOSTREAM, 'SAVETOSTREAM');
RegisterPropertyHelper(@TBLOBFIELDBLOBSIZE_R,nil,'BLOBSIZE');
RegisterPropertyHelper(@TBLOBFIELDMODIFIED_R,@TBLOBFIELDMODIFIED_W,'MODIFIED');
RegisterPropertyHelper(@TBLOBFIELDVALUE_R,@TBLOBFIELDVALUE_W,'VALUE');
RegisterPropertyHelper(@TBLOBFIELDTRANSLITERATE_R,@TBLOBFIELDTRANSLITERATE_W,'TRANSLITERATE');
RegisterPropertyHelper(@TBLOBFIELDBLOBTYPE_R,@TBLOBFIELDBLOBTYPE_W,'BLOBTYPE');
RegisterMethod(@TBLOBFIELD.LOADFROMFILE, 'LoadFromFile');
RegisterMethod(@TBLOBFIELD.LOADFROMSTREAM, 'LoadFromStream');
RegisterMethod(@TBLOBFIELD.SAVETOFILE, 'SaveToFile');
RegisterMethod(@TBLOBFIELD.SAVETOSTREAM, 'SaveToStream');
RegisterPropertyHelper(@TBLOBFIELDBLOBSIZE_R,nil,'BlobSize');
RegisterPropertyHelper(@TBLOBFIELDMODIFIED_R,@TBLOBFIELDMODIFIED_W,'Modified');
RegisterPropertyHelper(@TBLOBFIELDVALUE_R,@TBLOBFIELDVALUE_W,'Value');
RegisterPropertyHelper(@TBLOBFIELDTRANSLITERATE_R,@TBLOBFIELDTRANSLITERATE_W,'Transliterate');
RegisterPropertyHelper(@TBLOBFIELDBLOBTYPE_R,@TBLOBFIELDBLOBTYPE_W,'BlobType');
{$IFNDEF FPC}
{$IFDEF DELPHI6UP}
RegisterPropertyHelper(@TBLOBFIELDGRAPHICHEADER_R,@TBLOBFIELDGRAPHICHEADER_W,'GRAPHICHEADER');
RegisterPropertyHelper(@TBLOBFIELDGRAPHICHEADER_R,@TBLOBFIELDGRAPHICHEADER_W,'GraphicHeader');
{$ENDIF}
{$ENDIF}
end;
@ -1606,11 +1606,11 @@ procedure RIRegisterTFMTBCDFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TFMTBCDFIELD) do
begin
RegisterPropertyHelper(@TFMTBCDFIELDVALUE_R,@TFMTBCDFIELDVALUE_W,'VALUE');
RegisterPropertyHelper(@TFMTBCDFIELDCURRENCY_R,@TFMTBCDFIELDCURRENCY_W,'CURRENCY');
RegisterPropertyHelper(@TFMTBCDFIELDMAXVALUE_R,@TFMTBCDFIELDMAXVALUE_W,'MAXVALUE');
RegisterPropertyHelper(@TFMTBCDFIELDMINVALUE_R,@TFMTBCDFIELDMINVALUE_W,'MINVALUE');
RegisterPropertyHelper(@TFMTBCDFIELDPRECISION_R,@TFMTBCDFIELDPRECISION_W,'PRECISION');
RegisterPropertyHelper(@TFMTBCDFIELDVALUE_R,@TFMTBCDFIELDVALUE_W,'Value');
RegisterPropertyHelper(@TFMTBCDFIELDCURRENCY_R,@TFMTBCDFIELDCURRENCY_W,'Currency');
RegisterPropertyHelper(@TFMTBCDFIELDMAXVALUE_R,@TFMTBCDFIELDMAXVALUE_W,'MaxValue');
RegisterPropertyHelper(@TFMTBCDFIELDMINVALUE_R,@TFMTBCDFIELDMINVALUE_W,'MinValue');
RegisterPropertyHelper(@TFMTBCDFIELDPRECISION_R,@TFMTBCDFIELDPRECISION_W,'Precision');
end;
end;
{$ENDIF}
@ -1618,11 +1618,11 @@ procedure RIRegisterTBCDFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TBCDFIELD) do
begin
RegisterPropertyHelper(@TBCDFIELDVALUE_R,@TBCDFIELDVALUE_W,'VALUE');
RegisterPropertyHelper(@TBCDFIELDCURRENCY_R,@TBCDFIELDCURRENCY_W,'CURRENCY');
RegisterPropertyHelper(@TBCDFIELDMAXVALUE_R,@TBCDFIELDMAXVALUE_W,'MAXVALUE');
RegisterPropertyHelper(@TBCDFIELDMINVALUE_R,@TBCDFIELDMINVALUE_W,'MINVALUE');
RegisterPropertyHelper(@TBCDFIELDPRECISION_R,@TBCDFIELDPRECISION_W,'PRECISION');
RegisterPropertyHelper(@TBCDFIELDVALUE_R,@TBCDFIELDVALUE_W,'Value');
RegisterPropertyHelper(@TBCDFIELDCURRENCY_R,@TBCDFIELDCURRENCY_W,'Currency');
RegisterPropertyHelper(@TBCDFIELDMAXVALUE_R,@TBCDFIELDMAXVALUE_W,'MaxValue');
RegisterPropertyHelper(@TBCDFIELDMINVALUE_R,@TBCDFIELDMINVALUE_W,'MinValue');
RegisterPropertyHelper(@TBCDFIELDPRECISION_R,@TBCDFIELDPRECISION_W,'Precision');
end;
end;
{$ENDIF}
@ -1666,8 +1666,8 @@ procedure RIRegisterTDATETIMEFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TDATETIMEFIELD) do
begin
RegisterPropertyHelper(@TDATETIMEFIELDVALUE_R,@TDATETIMEFIELDVALUE_W,'VALUE');
RegisterPropertyHelper(@TDATETIMEFIELDDISPLAYFORMAT_R,@TDATETIMEFIELDDISPLAYFORMAT_W,'DISPLAYFORMAT');
RegisterPropertyHelper(@TDATETIMEFIELDVALUE_R,@TDATETIMEFIELDVALUE_W,'Value');
RegisterPropertyHelper(@TDATETIMEFIELDDISPLAYFORMAT_R,@TDATETIMEFIELDDISPLAYFORMAT_W,'DisplayFormat');
end;
end;
@ -1675,8 +1675,8 @@ procedure RIRegisterTBOOLEANFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TBOOLEANFIELD) do
begin
RegisterPropertyHelper(@TBOOLEANFIELDVALUE_R,@TBOOLEANFIELDVALUE_W,'VALUE');
RegisterPropertyHelper(@TBOOLEANFIELDDISPLAYVALUES_R,@TBOOLEANFIELDDISPLAYVALUES_W,'DISPLAYVALUES');
RegisterPropertyHelper(@TBOOLEANFIELDVALUE_R,@TBOOLEANFIELDVALUE_W,'Value');
RegisterPropertyHelper(@TBOOLEANFIELDDISPLAYVALUES_R,@TBOOLEANFIELDDISPLAYVALUES_W,'DisplayValues');
end;
end;
@ -1692,12 +1692,12 @@ Begin
with Cl.Add(TFLOATFIELD) do
begin
{$IFNDEF FPC}
RegisterPropertyHelper(@TFLOATFIELDCURRENCY_R,@TFLOATFIELDCURRENCY_W,'CURRENCY');
RegisterPropertyHelper(@TFLOATFIELDCURRENCY_R,@TFLOATFIELDCURRENCY_W,'Currency');
{$ENDIF}
RegisterPropertyHelper(@TFLOATFIELDVALUE_R,@TFLOATFIELDVALUE_W,'VALUE');
RegisterPropertyHelper(@TFLOATFIELDMAXVALUE_R,@TFLOATFIELDMAXVALUE_W,'MAXVALUE');
RegisterPropertyHelper(@TFLOATFIELDMINVALUE_R,@TFLOATFIELDMINVALUE_W,'MINVALUE');
RegisterPropertyHelper(@TFLOATFIELDPRECISION_R,@TFLOATFIELDPRECISION_W,'PRECISION');
RegisterPropertyHelper(@TFLOATFIELDVALUE_R,@TFLOATFIELDVALUE_W,'Value');
RegisterPropertyHelper(@TFLOATFIELDMAXVALUE_R,@TFLOATFIELDMAXVALUE_W,'MaxValue');
RegisterPropertyHelper(@TFLOATFIELDMINVALUE_R,@TFLOATFIELDMINVALUE_W,'MinValue');
RegisterPropertyHelper(@TFLOATFIELDPRECISION_R,@TFLOATFIELDPRECISION_W,'Precision');
end;
end;
@ -1719,10 +1719,10 @@ procedure RIRegisterTLARGEINTFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TLARGEINTFIELD) do
begin
RegisterPropertyHelper(@TLARGEINTFIELDASLARGEINT_R,@TLARGEINTFIELDASLARGEINT_W,'ASLARGEINT');
RegisterPropertyHelper(@TLARGEINTFIELDVALUE_R,@TLARGEINTFIELDVALUE_W,'VALUE');
RegisterPropertyHelper(@TLARGEINTFIELDMAXVALUE_R,@TLARGEINTFIELDMAXVALUE_W,'MAXVALUE');
RegisterPropertyHelper(@TLARGEINTFIELDMINVALUE_R,@TLARGEINTFIELDMINVALUE_W,'MINVALUE');
RegisterPropertyHelper(@TLARGEINTFIELDASLARGEINT_R,@TLARGEINTFIELDASLARGEINT_W,'AsLargeInt');
RegisterPropertyHelper(@TLARGEINTFIELDVALUE_R,@TLARGEINTFIELDVALUE_W,'Value');
RegisterPropertyHelper(@TLARGEINTFIELDMAXVALUE_R,@TLARGEINTFIELDMAXVALUE_W,'MaxValue');
RegisterPropertyHelper(@TLARGEINTFIELDMINVALUE_R,@TLARGEINTFIELDMINVALUE_W,'MinValue');
end;
end;
@ -1737,9 +1737,9 @@ procedure RIRegisterTINTEGERFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TINTEGERFIELD) do
begin
RegisterPropertyHelper(@TINTEGERFIELDVALUE_R,@TINTEGERFIELDVALUE_W,'VALUE');
RegisterPropertyHelper(@TINTEGERFIELDMAXVALUE_R,@TINTEGERFIELDMAXVALUE_W,'MAXVALUE');
RegisterPropertyHelper(@TINTEGERFIELDMINVALUE_R,@TINTEGERFIELDMINVALUE_W,'MINVALUE');
RegisterPropertyHelper(@TINTEGERFIELDVALUE_R,@TINTEGERFIELDVALUE_W,'Value');
RegisterPropertyHelper(@TINTEGERFIELDMAXVALUE_R,@TINTEGERFIELDMAXVALUE_W,'MaxValue');
RegisterPropertyHelper(@TINTEGERFIELDMINVALUE_R,@TINTEGERFIELDMINVALUE_W,'MinValue');
end;
end;
@ -1747,8 +1747,8 @@ procedure RIRegisterTNUMERICFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TNUMERICFIELD) do
begin
RegisterPropertyHelper(@TNUMERICFIELDDISPLAYFORMAT_R,@TNUMERICFIELDDISPLAYFORMAT_W,'DISPLAYFORMAT');
RegisterPropertyHelper(@TNUMERICFIELDEDITFORMAT_R,@TNUMERICFIELDEDITFORMAT_W,'EDITFORMAT');
RegisterPropertyHelper(@TNUMERICFIELDDISPLAYFORMAT_R,@TNUMERICFIELDDISPLAYFORMAT_W,'DisplayFormat');
RegisterPropertyHelper(@TNUMERICFIELDEDITFORMAT_R,@TNUMERICFIELDEDITFORMAT_W,'EditFormat');
end;
end;
@ -1757,7 +1757,7 @@ procedure RIRegisterTWIDESTRINGFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TWIDESTRINGFIELD) do
begin
RegisterPropertyHelper(@TWIDESTRINGFIELDVALUE_R,@TWIDESTRINGFIELDVALUE_W,'VALUE');
RegisterPropertyHelper(@TWIDESTRINGFIELDVALUE_R,@TWIDESTRINGFIELDVALUE_W,'Value');
end;
end;
{$ENDIF}
@ -1766,10 +1766,10 @@ procedure RIRegisterTSTRINGFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TSTRINGFIELD) do
begin
RegisterPropertyHelper(@TSTRINGFIELDVALUE_R,@TSTRINGFIELDVALUE_W,'VALUE');
RegisterPropertyHelper(@TSTRINGFIELDVALUE_R,@TSTRINGFIELDVALUE_W,'Value');
{$IFNDEF FPC}
RegisterPropertyHelper(@TSTRINGFIELDFIXEDCHAR_R,@TSTRINGFIELDFIXEDCHAR_W,'FIXEDCHAR');
RegisterPropertyHelper(@TSTRINGFIELDTRANSLITERATE_R,@TSTRINGFIELDTRANSLITERATE_W,'TRANSLITERATE');
RegisterPropertyHelper(@TSTRINGFIELDFIXEDCHAR_R,@TSTRINGFIELDFIXEDCHAR_W,'FixedChar');
RegisterPropertyHelper(@TSTRINGFIELDTRANSLITERATE_R,@TSTRINGFIELDTRANSLITERATE_W,'Transliterate');
{$ENDIF}
end;
end;
@ -1778,82 +1778,82 @@ procedure RIRegisterTFIELD(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TFIELD) do
begin
RegisterMethod(@TFIELD.ASSIGNVALUE, 'ASSIGNVALUE');
RegisterVirtualMethod(@TFIELD.CLEAR, 'CLEAR');
RegisterMethod(@TFIELD.FOCUSCONTROL, 'FOCUSCONTROL');
// RegisterMethod(@TFIELD.GETDATA, 'GETDATA');
RegisterVirtualMethod(@TFIELD.ISVALIDCHAR, 'ISVALIDCHAR');
RegisterMethod(@TFIELD.REFRESHLOOKUPLIST, 'REFRESHLOOKUPLIST');
// RegisterMethod(@TFIELD.SETDATA, 'SETDATA');
RegisterVirtualMethod(@TFIELD.SETFIELDTYPE, 'SETFIELDTYPE');
// RegisterMethod(@TFIELD.VALIDATE, 'VALIDATE');
RegisterMethod(@TFIELD.ASSIGNVALUE, 'AssignValue');
RegisterVirtualMethod(@TFIELD.CLEAR, 'Clear');
RegisterMethod(@TFIELD.FOCUSCONTROL, 'FocusControl');
// RegisterMethod(@TFIELD.GETDATA, 'GetData');
RegisterVirtualMethod(@TFIELD.ISVALIDCHAR, 'IsValidChar');
RegisterMethod(@TFIELD.REFRESHLOOKUPLIST, 'RefreshLookupList');
// RegisterMethod(@TFIELD.SETDATA, 'SetData');
RegisterVirtualMethod(@TFIELD.SETFIELDTYPE, 'SetFieldType');
// RegisterMethod(@TFIELD.VALIDATE, 'Validate');
{$IFNDEF FPC}
RegisterPropertyHelper(@TFIELDEDITMASK_R,@TFIELDEDITMASK_W,'EDITMASK');
RegisterPropertyHelper(@TFIELDEDITMASKPTR_R,nil,'EDITMASKPTR');
RegisterPropertyHelper(@TFIELDEDITMASK_R,@TFIELDEDITMASK_W,'EDITMASK');
RegisterPropertyHelper(@TFIELDEDITMASKPTR_R,nil,'EDITMASKPTR');
RegisterPropertyHelper(@TFIELDFULLNAME_R,nil,'FULLNAME');
RegisterPropertyHelper(@TFIELDLOOKUP_R,@TFIELDLOOKUP_W,'LOOKUP');
RegisterPropertyHelper(@TFIELDPARENTFIELD_R,@TFIELDPARENTFIELD_W,'PARENTFIELD');
RegisterPropertyHelper(@TFIELDVALIDCHARS_R,@TFIELDVALIDCHARS_W,'VALIDCHARS');
RegisterPropertyHelper(@TFIELDAUTOGENERATEVALUE_R,@TFIELDAUTOGENERATEVALUE_W,'AUTOGENERATEVALUE');
RegisterPropertyHelper(@TFIELDEDITMASK_R,@TFIELDEDITMASK_W,'EditMask');
RegisterPropertyHelper(@TFIELDEDITMASKPTR_R,nil,'EditMaskPtr');
RegisterPropertyHelper(@TFIELDEDITMASK_R,@TFIELDEDITMASK_W,'EditMask');
RegisterPropertyHelper(@TFIELDEDITMASKPTR_R,nil,'EditMaskPtr');
RegisterPropertyHelper(@TFIELDFULLNAME_R,nil,'FullName');
RegisterPropertyHelper(@TFIELDLOOKUP_R,@TFIELDLOOKUP_W,'Lookup');
RegisterPropertyHelper(@TFIELDPARENTFIELD_R,@TFIELDPARENTFIELD_W,'ParentField');
RegisterPropertyHelper(@TFIELDVALIDCHARS_R,@TFIELDVALIDCHARS_W,'ValidChars');
RegisterPropertyHelper(@TFIELDAUTOGENERATEVALUE_R,@TFIELDAUTOGENERATEVALUE_W,'AutoGenerateValue');
{$IFDEF DELPHI6UP}
RegisterPropertyHelper(@TFIELDASBCD_R,@TFIELDASBCD_W,'ASBCD');
RegisterPropertyHelper(@TFIELDASBCD_R,@TFIELDASBCD_W,'AsBCD');
{$ENDIF}
{$ENDIF}
RegisterPropertyHelper(@TFIELDASBOOLEAN_R,@TFIELDASBOOLEAN_W,'ASBOOLEAN');
RegisterPropertyHelper(@TFIELDASCURRENCY_R,@TFIELDASCURRENCY_W,'ASCURRENCY');
RegisterPropertyHelper(@TFIELDASDATETIME_R,@TFIELDASDATETIME_W,'ASDATETIME');
RegisterPropertyHelper(@TFIELDASFLOAT_R,@TFIELDASFLOAT_W,'ASFLOAT');
RegisterPropertyHelper(@TFIELDASINTEGER_R,@TFIELDASINTEGER_W,'ASINTEGER');
RegisterPropertyHelper(@TFIELDASSTRING_R,@TFIELDASSTRING_W,'ASSTRING');
RegisterPropertyHelper(@TFIELDASVARIANT_R,@TFIELDASVARIANT_W,'ASVARIANT');
RegisterPropertyHelper(@TFIELDATTRIBUTESET_R,@TFIELDATTRIBUTESET_W,'ATTRIBUTESET');
RegisterPropertyHelper(@TFIELDCALCULATED_R,@TFIELDCALCULATED_W,'CALCULATED');
RegisterPropertyHelper(@TFIELDCANMODIFY_R,nil,'CANMODIFY');
RegisterPropertyHelper(@TFIELDCURVALUE_R,nil,'CURVALUE');
RegisterPropertyHelper(@TFIELDDATASET_R,@TFIELDDATASET_W,'DATASET');
RegisterPropertyHelper(@TFIELDDATASIZE_R,nil,'DATASIZE');
RegisterPropertyHelper(@TFIELDDATATYPE_R,nil,'DATATYPE');
RegisterPropertyHelper(@TFIELDDISPLAYNAME_R,nil,'DISPLAYNAME');
RegisterPropertyHelper(@TFIELDDISPLAYTEXT_R,nil,'DISPLAYTEXT');
RegisterPropertyHelper(@TFIELDFIELDNO_R,nil,'FIELDNO');
RegisterPropertyHelper(@TFIELDISINDEXFIELD_R,nil,'ISINDEXFIELD');
RegisterPropertyHelper(@TFIELDISNULL_R,nil,'ISNULL');
RegisterPropertyHelper(@TFIELDLOOKUPLIST_R,nil,'LOOKUPLIST');
RegisterPropertyHelper(@TFIELDNEWVALUE_R,@TFIELDNEWVALUE_W,'NEWVALUE');
RegisterPropertyHelper(@TFIELDOFFSET_R,nil,'OFFSET');
RegisterPropertyHelper(@TFIELDOLDVALUE_R,nil,'OLDVALUE');
RegisterPropertyHelper(@TFIELDSIZE_R,@TFIELDSIZE_W,'SIZE');
RegisterPropertyHelper(@TFIELDTEXT_R,@TFIELDTEXT_W,'TEXT');
RegisterPropertyHelper(@TFIELDVALUE_R,@TFIELDVALUE_W,'VALUE');
RegisterPropertyHelper(@TFIELDALIGNMENT_R,@TFIELDALIGNMENT_W,'ALIGNMENT');
RegisterPropertyHelper(@TFIELDCUSTOMCONSTRAINT_R,@TFIELDCUSTOMCONSTRAINT_W,'CUSTOMCONSTRAINT');
RegisterPropertyHelper(@TFIELDCONSTRAINTERRORMESSAGE_R,@TFIELDCONSTRAINTERRORMESSAGE_W,'CONSTRAINTERRORMESSAGE');
RegisterPropertyHelper(@TFIELDDEFAULTEXPRESSION_R,@TFIELDDEFAULTEXPRESSION_W,'DEFAULTEXPRESSION');
RegisterPropertyHelper(@TFIELDDISPLAYLABEL_R,@TFIELDDISPLAYLABEL_W,'DISPLAYLABEL');
RegisterPropertyHelper(@TFIELDDISPLAYWIDTH_R,@TFIELDDISPLAYWIDTH_W,'DISPLAYWIDTH');
RegisterPropertyHelper(@TFIELDFIELDKIND_R,@TFIELDFIELDKIND_W,'FIELDKIND');
RegisterPropertyHelper(@TFIELDFIELDNAME_R,@TFIELDFIELDNAME_W,'FIELDNAME');
RegisterPropertyHelper(@TFIELDHASCONSTRAINTS_R,nil,'HASCONSTRAINTS');
RegisterPropertyHelper(@TFIELDINDEX_R,@TFIELDINDEX_W,'INDEX');
RegisterPropertyHelper(@TFIELDIMPORTEDCONSTRAINT_R,@TFIELDIMPORTEDCONSTRAINT_W,'IMPORTEDCONSTRAINT');
RegisterPropertyHelper(@TFIELDLOOKUPDATASET_R,@TFIELDLOOKUPDATASET_W,'LOOKUPDATASET');
RegisterPropertyHelper(@TFIELDLOOKUPKEYFIELDS_R,@TFIELDLOOKUPKEYFIELDS_W,'LOOKUPKEYFIELDS');
RegisterPropertyHelper(@TFIELDLOOKUPRESULTFIELD_R,@TFIELDLOOKUPRESULTFIELD_W,'LOOKUPRESULTFIELD');
RegisterPropertyHelper(@TFIELDKEYFIELDS_R,@TFIELDKEYFIELDS_W,'KEYFIELDS');
RegisterPropertyHelper(@TFIELDLOOKUPCACHE_R,@TFIELDLOOKUPCACHE_W,'LOOKUPCACHE');
RegisterPropertyHelper(@TFIELDORIGIN_R,@TFIELDORIGIN_W,'ORIGIN');
RegisterPropertyHelper(@TFIELDPROVIDERFLAGS_R,@TFIELDPROVIDERFLAGS_W,'PROVIDERFLAGS');
RegisterPropertyHelper(@TFIELDREADONLY_R,@TFIELDREADONLY_W,'READONLY');
RegisterPropertyHelper(@TFIELDREQUIRED_R,@TFIELDREQUIRED_W,'REQUIRED');
RegisterPropertyHelper(@TFIELDVISIBLE_R,@TFIELDVISIBLE_W,'VISIBLE');
RegisterEventPropertyHelper(@TFIELDONCHANGE_R,@TFIELDONCHANGE_W,'ONCHANGE');
RegisterEventPropertyHelper(@TFIELDONGETTEXT_R,@TFIELDONGETTEXT_W,'ONGETTEXT');
RegisterEventPropertyHelper(@TFIELDONSETTEXT_R,@TFIELDONSETTEXT_W,'ONSETTEXT');
RegisterEventPropertyHelper(@TFIELDONVALIDATE_R,@TFIELDONVALIDATE_W,'ONVALIDATE');
RegisterPropertyHelper(@TFIELDASBOOLEAN_R,@TFIELDASBOOLEAN_W,'AsBoolean');
RegisterPropertyHelper(@TFIELDASCURRENCY_R,@TFIELDASCURRENCY_W,'AsCurrency');
RegisterPropertyHelper(@TFIELDASDATETIME_R,@TFIELDASDATETIME_W,'AsDateTime');
RegisterPropertyHelper(@TFIELDASFLOAT_R,@TFIELDASFLOAT_W,'AsFloat');
RegisterPropertyHelper(@TFIELDASINTEGER_R,@TFIELDASINTEGER_W,'AsInteger');
RegisterPropertyHelper(@TFIELDASSTRING_R,@TFIELDASSTRING_W,'AsString');
RegisterPropertyHelper(@TFIELDASVARIANT_R,@TFIELDASVARIANT_W,'AsVariant');
RegisterPropertyHelper(@TFIELDATTRIBUTESET_R,@TFIELDATTRIBUTESET_W,'AttributeSet');
RegisterPropertyHelper(@TFIELDCALCULATED_R,@TFIELDCALCULATED_W,'Calculated');
RegisterPropertyHelper(@TFIELDCANMODIFY_R,nil,'CanModify');
RegisterPropertyHelper(@TFIELDCURVALUE_R,nil,'CurValue');
RegisterPropertyHelper(@TFIELDDATASET_R,@TFIELDDATASET_W,'Dataset');
RegisterPropertyHelper(@TFIELDDATASIZE_R,nil,'DataSize');
RegisterPropertyHelper(@TFIELDDATATYPE_R,nil,'DataType');
RegisterPropertyHelper(@TFIELDDISPLAYNAME_R,nil,'DisplayName');
RegisterPropertyHelper(@TFIELDDISPLAYTEXT_R,nil,'DisplayText');
RegisterPropertyHelper(@TFIELDFIELDNO_R,nil,'FieldNo');
RegisterPropertyHelper(@TFIELDISINDEXFIELD_R,nil,'IsIndexField');
RegisterPropertyHelper(@TFIELDISNULL_R,nil,'IsNull');
RegisterPropertyHelper(@TFIELDLOOKUPLIST_R,nil,'LookupList');
RegisterPropertyHelper(@TFIELDNEWVALUE_R,@TFIELDNEWVALUE_W,'NewValue');
RegisterPropertyHelper(@TFIELDOFFSET_R,nil,'Offset');
RegisterPropertyHelper(@TFIELDOLDVALUE_R,nil,'OldValue');
RegisterPropertyHelper(@TFIELDSIZE_R,@TFIELDSIZE_W,'Size');
RegisterPropertyHelper(@TFIELDTEXT_R,@TFIELDTEXT_W,'Text');
RegisterPropertyHelper(@TFIELDVALUE_R,@TFIELDVALUE_W,'Value');
RegisterPropertyHelper(@TFIELDALIGNMENT_R,@TFIELDALIGNMENT_W,'Alignment');
RegisterPropertyHelper(@TFIELDCUSTOMCONSTRAINT_R,@TFIELDCUSTOMCONSTRAINT_W,'CustomConstraint');
RegisterPropertyHelper(@TFIELDCONSTRAINTERRORMESSAGE_R,@TFIELDCONSTRAINTERRORMESSAGE_W,'ConstraintErrorMessage');
RegisterPropertyHelper(@TFIELDDEFAULTEXPRESSION_R,@TFIELDDEFAULTEXPRESSION_W,'DefaultExpression');
RegisterPropertyHelper(@TFIELDDISPLAYLABEL_R,@TFIELDDISPLAYLABEL_W,'DisplayLabel');
RegisterPropertyHelper(@TFIELDDISPLAYWIDTH_R,@TFIELDDISPLAYWIDTH_W,'DisplayWidth');
RegisterPropertyHelper(@TFIELDFIELDKIND_R,@TFIELDFIELDKIND_W,'FieldKind');
RegisterPropertyHelper(@TFIELDFIELDNAME_R,@TFIELDFIELDNAME_W,'FieldName');
RegisterPropertyHelper(@TFIELDHASCONSTRAINTS_R,nil,'HasConstraints');
RegisterPropertyHelper(@TFIELDINDEX_R,@TFIELDINDEX_W,'Index');
RegisterPropertyHelper(@TFIELDIMPORTEDCONSTRAINT_R,@TFIELDIMPORTEDCONSTRAINT_W,'ImportedConstraint');
RegisterPropertyHelper(@TFIELDLOOKUPDATASET_R,@TFIELDLOOKUPDATASET_W,'LookupDataSet');
RegisterPropertyHelper(@TFIELDLOOKUPKEYFIELDS_R,@TFIELDLOOKUPKEYFIELDS_W,'LookupKeyFields');
RegisterPropertyHelper(@TFIELDLOOKUPRESULTFIELD_R,@TFIELDLOOKUPRESULTFIELD_W,'LookupResultField');
RegisterPropertyHelper(@TFIELDKEYFIELDS_R,@TFIELDKEYFIELDS_W,'KeyFields');
RegisterPropertyHelper(@TFIELDLOOKUPCACHE_R,@TFIELDLOOKUPCACHE_W,'LookupCache');
RegisterPropertyHelper(@TFIELDORIGIN_R,@TFIELDORIGIN_W,'Origin');
RegisterPropertyHelper(@TFIELDPROVIDERFLAGS_R,@TFIELDPROVIDERFLAGS_W,'ProviderFlags');
RegisterPropertyHelper(@TFIELDREADONLY_R,@TFIELDREADONLY_W,'ReadOnly');
RegisterPropertyHelper(@TFIELDREQUIRED_R,@TFIELDREQUIRED_W,'Required');
RegisterPropertyHelper(@TFIELDVISIBLE_R,@TFIELDVISIBLE_W,'Visible');
RegisterEventPropertyHelper(@TFIELDONCHANGE_R,@TFIELDONCHANGE_W,'OnChange');
RegisterEventPropertyHelper(@TFIELDONGETTEXT_R,@TFIELDONGETTEXT_W,'OnGetText');
RegisterEventPropertyHelper(@TFIELDONSETTEXT_R,@TFIELDONSETTEXT_W,'OnSetText');
RegisterEventPropertyHelper(@TFIELDONVALIDATE_R,@TFIELDONVALIDATE_W,'OnValidate');
end;
end;
@ -1861,15 +1861,15 @@ procedure RIRegisterTLOOKUPLIST(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TLOOKUPLIST) do
begin
RegisterConstructor(@TLOOKUPLIST.CREATE, 'CREATE');
RegisterConstructor(@TLOOKUPLIST.CREATE, 'Create');
{$IFDEF DELPHI2009UP}
RegisterVirtualAbstractMethod(TDefaultLookupList, @TDefaultLookupList.ADD, 'ADD');
RegisterVirtualAbstractMethod(TDefaultLookupList, @TDefaultLookupList.CLEAR, 'CLEAR');
RegisterVirtualAbstractMethod(TDefaultLookupList, @TDefaultLookupList.VALUEOFKEY, 'VALUEOFKEY');
RegisterVirtualAbstractMethod(TDefaultLookupList, @TDefaultLookupList.ADD, 'Add');
RegisterVirtualAbstractMethod(TDefaultLookupList, @TDefaultLookupList.CLEAR, 'Clear');
RegisterVirtualAbstractMethod(TDefaultLookupList, @TDefaultLookupList.VALUEOFKEY, 'ValueOfKey');
{$ELSE}
RegisterMethod(@TLOOKUPLIST.ADD, 'ADD');
RegisterMethod(@TLOOKUPLIST.CLEAR, 'CLEAR');
RegisterMethod(@TLOOKUPLIST.VALUEOFKEY, 'VALUEOFKEY');
RegisterMethod(@TLOOKUPLIST.ADD, 'Add');
RegisterMethod(@TLOOKUPLIST.CLEAR, 'Clear');
RegisterMethod(@TLOOKUPLIST.VALUEOFKEY, 'ValueOfKey');
{$ENDIF}
end;
end;
@ -1878,20 +1878,20 @@ procedure RIRegisterTFIELDS(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TFIELDS) do
begin
RegisterConstructor(@TFIELDS.CREATE, 'CREATE');
RegisterMethod(@TFIELDS.ADD, 'ADD');
RegisterMethod(@TFIELDS.CHECKFIELDNAME, 'CHECKFIELDNAME');
RegisterMethod(@TFIELDS.CHECKFIELDNAMES, 'CHECKFIELDNAMES');
RegisterMethod(@TFIELDS.CLEAR, 'CLEAR');
RegisterMethod(@TFIELDS.FINDFIELD, 'FINDFIELD');
RegisterMethod(@TFIELDS.FIELDBYNAME, 'FIELDBYNAME');
RegisterMethod(@TFIELDS.FIELDBYNUMBER, 'FIELDBYNUMBER');
RegisterMethod(@TFIELDS.GETFIELDNAMES, 'GETFIELDNAMES');
RegisterMethod(@TFIELDS.INDEXOF, 'INDEXOF');
RegisterMethod(@TFIELDS.REMOVE, 'REMOVE');
RegisterPropertyHelper(@TFIELDSCOUNT_R,nil,'COUNT');
RegisterPropertyHelper(@TFIELDSDATASET_R,nil,'DATASET');
RegisterPropertyHelper(@TFIELDSFIELDS_R,@TFIELDSFIELDS_W,'FIELDS');
RegisterConstructor(@TFIELDS.CREATE, 'Create');
RegisterMethod(@TFIELDS.ADD, 'Add');
RegisterMethod(@TFIELDS.CHECKFIELDNAME, 'CheckFieldName');
RegisterMethod(@TFIELDS.CHECKFIELDNAMES, 'CheckFieldNames');
RegisterMethod(@TFIELDS.CLEAR, 'Clear');
RegisterMethod(@TFIELDS.FINDFIELD, 'FindField');
RegisterMethod(@TFIELDS.FIELDBYNAME, 'FieldByName');
RegisterMethod(@TFIELDS.FIELDBYNUMBER, 'FieldByNumber');
RegisterMethod(@TFIELDS.GETFIELDNAMES, 'GetFieldNames');
RegisterMethod(@TFIELDS.INDEXOF, 'IndexOf');
RegisterMethod(@TFIELDS.REMOVE, 'Remove');
RegisterPropertyHelper(@TFIELDSCOUNT_R,nil,'Count');
RegisterPropertyHelper(@TFIELDSDATASET_R,nil,'Dataset');
RegisterPropertyHelper(@TFIELDSFIELDS_R,@TFIELDSFIELDS_W,'Fields');
end;
end;
@ -1900,9 +1900,9 @@ procedure RIRegisterTFIELDLIST(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TFIELDLIST) do
begin
RegisterMethod(@TFIELDLIST.FIELDBYNAME, 'FIELDBYNAME');
RegisterMethod(@TFIELDLIST.FIND, 'FIND');
RegisterPropertyHelper(@TFIELDLISTFIELDS_R,nil,'FIELDS');
RegisterMethod(@TFIELDLIST.FIELDBYNAME, 'FieldByName');
RegisterMethod(@TFIELDLIST.FIND, 'Find');
RegisterPropertyHelper(@TFIELDLISTFIELDS_R,nil,'Fields');
end;
end;
@ -1910,9 +1910,9 @@ procedure RIRegisterTFIELDDEFLIST(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TFIELDDEFLIST) do
begin
RegisterMethod(@TFIELDDEFLIST.FIELDBYNAME, 'FIELDBYNAME');
RegisterMethod(@TFIELDDEFLIST.FIND, 'FIND');
RegisterPropertyHelper(@TFIELDDEFLISTFIELDDEFS_R,nil,'FIELDDEFS');
RegisterMethod(@TFIELDDEFLIST.FIELDBYNAME, 'FieldByName');
RegisterMethod(@TFIELDDEFLIST.FIND, 'Find');
RegisterPropertyHelper(@TFIELDDEFLISTFIELDDEFS_R,nil,'FieldDefs');
end;
end;
@ -1921,9 +1921,9 @@ procedure RIRegisterTFLATLIST(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TFLATLIST) do
begin
RegisterConstructor(@TFLATLIST.CREATE, 'CREATE');
RegisterMethod(@TFLATLIST.UPDATE, 'UPDATE');
RegisterPropertyHelper(@TFLATLISTDATASET_R,nil,'DATASET');
RegisterConstructor(@TFLATLIST.CREATE, 'Create');
RegisterMethod(@TFLATLIST.UPDATE, 'Update');
RegisterPropertyHelper(@TFLATLISTDATASET_R,nil,'Dataset');
end;
end;
{$ENDIF}
@ -1933,14 +1933,14 @@ procedure RIRegisterTINDEXDEFS(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TINDEXDEFS) do
begin
RegisterConstructor(@TINDEXDEFS.CREATE, 'CREATE');
RegisterMethod(@TINDEXDEFS.ADDINDEXDEF, 'ADDINDEXDEF');
RegisterMethod(@TINDEXDEFS.FIND, 'FIND');
RegisterMethod(@TINDEXDEFS.UPDATE, 'UPDATE');
RegisterMethod(@TINDEXDEFS.FINDINDEXFORFIELDS, 'FINDINDEXFORFIELDS');
RegisterMethod(@TINDEXDEFS.GETINDEXFORFIELDS, 'GETINDEXFORFIELDS');
RegisterMethod(@TINDEXDEFS.ADD, 'ADD');
RegisterPropertyHelper(@TINDEXDEFSITEMS_R,@TINDEXDEFSITEMS_W,'ITEMS');
RegisterConstructor(@TINDEXDEFS.CREATE, 'Create');
RegisterMethod(@TINDEXDEFS.ADDINDEXDEF, 'AddIndexDef');
RegisterMethod(@TINDEXDEFS.FIND, 'Find');
RegisterMethod(@TINDEXDEFS.UPDATE, 'Update');
RegisterMethod(@TINDEXDEFS.FINDINDEXFORFIELDS, 'FindIndexForFields');
RegisterMethod(@TINDEXDEFS.GETINDEXFORFIELDS, 'GetIndexForFields');
RegisterMethod(@TINDEXDEFS.ADD, 'Add');
RegisterPropertyHelper(@TINDEXDEFSITEMS_R,@TINDEXDEFSITEMS_W,'Items');
end;
end;
@ -1948,18 +1948,18 @@ procedure RIRegisterTINDEXDEF(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TINDEXDEF) do
begin
RegisterConstructor(@TINDEXDEF.CREATE, 'CREATE');
RegisterConstructor(@TINDEXDEF.CREATE, 'Create');
{$IFNDEF FPC}
RegisterPropertyHelper(@TINDEXDEFFIELDEXPRESSION_R,nil,'FIELDEXPRESSION');
RegisterPropertyHelper(@TINDEXDEFCASEINSFIELDS_R,@TINDEXDEFCASEINSFIELDS_W,'CASEINSFIELDS');
RegisterPropertyHelper(@TINDEXDEFGROUPINGLEVEL_R,@TINDEXDEFGROUPINGLEVEL_W,'GROUPINGLEVEL');
RegisterPropertyHelper(@TINDEXDEFDESCFIELDS_R,@TINDEXDEFDESCFIELDS_W,'DESCFIELDS');
RegisterPropertyHelper(@TINDEXDEFFIELDEXPRESSION_R,nil,'FieldExpression');
RegisterPropertyHelper(@TINDEXDEFCASEINSFIELDS_R,@TINDEXDEFCASEINSFIELDS_W,'CaseInsFields');
RegisterPropertyHelper(@TINDEXDEFGROUPINGLEVEL_R,@TINDEXDEFGROUPINGLEVEL_W,'GroupingLevel');
RegisterPropertyHelper(@TINDEXDEFDESCFIELDS_R,@TINDEXDEFDESCFIELDS_W,'DescFields');
{$ENDIF}
RegisterPropertyHelper(@TINDEXDEFEXPRESSION_R,@TINDEXDEFEXPRESSION_W,'EXPRESSION');
RegisterPropertyHelper(@TINDEXDEFFIELDS_R,@TINDEXDEFFIELDS_W,'FIELDS');
RegisterPropertyHelper(@TINDEXDEFOPTIONS_R,@TINDEXDEFOPTIONS_W,'OPTIONS');
RegisterPropertyHelper(@TINDEXDEFSOURCE_R,@TINDEXDEFSOURCE_W,'SOURCE');
RegisterPropertyHelper(@TINDEXDEFEXPRESSION_R,@TINDEXDEFEXPRESSION_W,'Expression');
RegisterPropertyHelper(@TINDEXDEFFIELDS_R,@TINDEXDEFFIELDS_W,'Fields');
RegisterPropertyHelper(@TINDEXDEFOPTIONS_R,@TINDEXDEFOPTIONS_W,'Options');
RegisterPropertyHelper(@TINDEXDEFSOURCE_R,@TINDEXDEFSOURCE_W,'Source');
end;
end;
@ -1967,17 +1967,17 @@ procedure RIRegisterTFIELDDEFS(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TFIELDDEFS) do
begin
RegisterConstructor(@TFIELDDEFS.CREATE, 'CREATE');
RegisterMethod(@TFIELDDEFS.ADDFIELDDEF, 'ADDFIELDDEF');
RegisterMethod(@TFIELDDEFS.FIND, 'FIND');
RegisterMethod(@TFIELDDEFS.UPDATE, 'UPDATE');
RegisterConstructor(@TFIELDDEFS.CREATE, 'Create');
RegisterMethod(@TFIELDDEFS.ADDFIELDDEF, 'AddFieldDef');
RegisterMethod(@TFIELDDEFS.FIND, 'Find');
RegisterMethod(@TFIELDDEFS.UPDATE, 'Update');
{$IFNDEF FPC}
RegisterMethod(@TFIELDDEFS.ADD, 'ADD');
RegisterPropertyHelper(@TFIELDDEFSPARENTDEF_R,nil,'PARENTDEF');
RegisterMethod(@TFIELDDEFS.ADD, 'Add');
RegisterPropertyHelper(@TFIELDDEFSPARENTDEF_R,nil,'ParentDef');
{$ENDIF}
RegisterPropertyHelper(@TFIELDDEFSHIDDENFIELDS_R,@TFIELDDEFSHIDDENFIELDS_W,'HIDDENFIELDS');
RegisterPropertyHelper(@TFIELDDEFSITEMS_R,@TFIELDDEFSITEMS_W,'ITEMS');
RegisterPropertyHelper(@TFIELDDEFSHIDDENFIELDS_R,@TFIELDDEFSHIDDENFIELDS_W,'HiddenFields');
RegisterPropertyHelper(@TFIELDDEFSITEMS_R,@TFIELDDEFSITEMS_W,'Items');
end;
end;
@ -1985,26 +1985,26 @@ procedure RIRegisterTFIELDDEF(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TFIELDDEF) do
begin
// RegisterConstructor(@TFIELDDEF.CREATE, 'CREATE');
// RegisterConstructor(@TFIELDDEF.CREATE, 'Create');
{$IFNDEF FPC}
RegisterMethod(@TFIELDDEF.ADDCHILD, 'ADDCHILD');
RegisterMethod(@TFIELDDEF.HASCHILDDEFS, 'HASCHILDDEFS');
RegisterMethod(@TFIELDDEF.ADDCHILD, 'AddChild');
RegisterMethod(@TFIELDDEF.HASCHILDDEFS, 'HasChildDefs');
{$ENDIF}
RegisterMethod(@TFIELDDEF.CREATEFIELD, 'CREATEFIELD');
RegisterMethod(@TFIELDDEF.CREATEFIELD, 'CreateField');
{$IFNDEF FPC}
RegisterPropertyHelper(@TFIELDDEFFIELDNO_R,@TFIELDDEFFIELDNO_W,'FIELDNO');
RegisterPropertyHelper(@TFIELDDEFPARENTDEF_R,nil,'PARENTDEF');
RegisterPropertyHelper(@TFIELDDEFCHILDDEFS_R,@TFIELDDEFCHILDDEFS_W,'CHILDDEFS');
RegisterPropertyHelper(@TFIELDDEFREQUIRED_R,@TFIELDDEFREQUIRED_W,'REQUIRED');
RegisterPropertyHelper(@TFIELDDEFFIELDNO_R,@TFIELDDEFFIELDNO_W,'FieldNo');
RegisterPropertyHelper(@TFIELDDEFPARENTDEF_R,nil,'ParentDef');
RegisterPropertyHelper(@TFIELDDEFCHILDDEFS_R,@TFIELDDEFCHILDDEFS_W,'ChildDefs');
RegisterPropertyHelper(@TFIELDDEFREQUIRED_R,@TFIELDDEFREQUIRED_W,'Required');
{$ENDIF}
RegisterPropertyHelper(@TFIELDDEFFIELDCLASS_R,nil,'FIELDCLASS');
RegisterPropertyHelper(@TFIELDDEFINTERNALCALCFIELD_R,@TFIELDDEFINTERNALCALCFIELD_W,'INTERNALCALCFIELD');
RegisterPropertyHelper(@TFIELDDEFATTRIBUTES_R,@TFIELDDEFATTRIBUTES_W,'ATTRIBUTES');
RegisterPropertyHelper(@TFIELDDEFDATATYPE_R,@TFIELDDEFDATATYPE_W,'DATATYPE');
RegisterPropertyHelper(@TFIELDDEFPRECISION_R,@TFIELDDEFPRECISION_W,'PRECISION');
RegisterPropertyHelper(@TFIELDDEFSIZE_R,@TFIELDDEFSIZE_W,'SIZE');
RegisterPropertyHelper(@TFIELDDEFFIELDCLASS_R,nil,'FieldClass');
RegisterPropertyHelper(@TFIELDDEFINTERNALCALCFIELD_R,@TFIELDDEFINTERNALCALCFIELD_W,'InternalCalcField');
RegisterPropertyHelper(@TFIELDDEFATTRIBUTES_R,@TFIELDDEFATTRIBUTES_W,'Attributes');
RegisterPropertyHelper(@TFIELDDEFDATATYPE_R,@TFIELDDEFDATATYPE_W,'DataType');
RegisterPropertyHelper(@TFIELDDEFPRECISION_R,@TFIELDDEFPRECISION_W,'Precision');
RegisterPropertyHelper(@TFIELDDEFSIZE_R,@TFIELDDEFSIZE_W,'Size');
end;
end;
@ -2013,12 +2013,12 @@ procedure RIRegisterTDEFCOLLECTION(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TDEFCOLLECTION) do
begin
RegisterConstructor(@TDEFCOLLECTION.CREATE, 'CREATE');
RegisterMethod(@TDEFCOLLECTION.FIND, 'FIND');
RegisterMethod(@TDEFCOLLECTION.GETITEMNAMES, 'GETITEMNAMES');
RegisterMethod(@TDEFCOLLECTION.INDEXOF, 'INDEXOF');
RegisterPropertyHelper(@TDEFCOLLECTIONDATASET_R,nil,'DATASET');
RegisterPropertyHelper(@TDEFCOLLECTIONUPDATED_R,@TDEFCOLLECTIONUPDATED_W,'UPDATED');
RegisterConstructor(@TDEFCOLLECTION.CREATE, 'Create');
RegisterMethod(@TDEFCOLLECTION.FIND, 'Find');
RegisterMethod(@TDEFCOLLECTION.GETITEMNAMES, 'GetItemNames');
RegisterMethod(@TDEFCOLLECTION.INDEXOF, 'IndexOf');
RegisterPropertyHelper(@TDEFCOLLECTIONDATASET_R,nil,'Dataset');
RegisterPropertyHelper(@TDEFCOLLECTIONUPDATED_R,@TDEFCOLLECTIONUPDATED_W,'Updated');
end;
end;
@ -2026,7 +2026,7 @@ procedure RIRegisterTNAMEDITEM(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TNAMEDITEM) do
begin
RegisterPropertyHelper(@TNAMEDITEMNAME_R,@TNAMEDITEMNAME_W,'NAME');
RegisterPropertyHelper(@TNAMEDITEMNAME_R,@TNAMEDITEMNAME_W,'Name');
end;
end;
{$ENDIF}

202
Source/uPSR_classes.pas
View File

@ -102,54 +102,54 @@ begin
with Cl.Add(TStrings) do
begin
{$IFDEF DELPHI2005UP}
RegisterConstructor(@TStrings.CREATE, 'CREATE');
RegisterConstructor(@TStrings.CREATE, 'Create');
{$ENDIF}
RegisterVirtualMethod(@TStrings.Add, 'ADD');
RegisterMethod(@TStrings.Append, 'APPEND');
RegisterVirtualMethod(@TStrings.AddStrings, 'ADDSTRINGS');
RegisterVirtualAbstractMethod(TStringList, @TStringList.Clear, 'CLEAR');
RegisterVirtualAbstractMethod(TStringList, @TStringList.Delete, 'DELETE');
RegisterVirtualMethod(@TStrings.IndexOf, 'INDEXOF');
RegisterVirtualAbstractMethod(TStringList, @TStringList.Insert, 'INSERT');
RegisterPropertyHelper(@TStringsCapacityR, @TStringsCapacityW, 'CAPACITY');
RegisterVirtualMethod(@TStrings.Add, 'Add');
RegisterMethod(@TStrings.Append, 'Append');
RegisterVirtualMethod(@TStrings.AddStrings, 'AddStrings');
RegisterVirtualAbstractMethod(TStringList, @TStringList.Clear, 'Clear');
RegisterVirtualAbstractMethod(TStringList, @TStringList.Delete, 'Delete');
RegisterVirtualMethod(@TStrings.IndexOf, 'IndexOf');
RegisterVirtualAbstractMethod(TStringList, @TStringList.Insert, 'Insert');
RegisterPropertyHelper(@TStringsCapacityR, @TStringsCapacityW, 'Capacity');
RegisterPropertyHelper(@TStringsDelimiterR, @TStringsDelimiterW, 'DELIMITER');
{$IFDEF DELPHI2006UP}
RegisterPropertyHelper(@TStringsStrictDelimiterR, @TStringsStrictDelimiterW, 'STRICTDELIMITER');
RegisterPropertyHelper(@TStringsStrictDelimiterR, @TStringsStrictDelimiterW, 'StrictDelimiter');
{$ENDIF}
RegisterPropertyHelper(@TStringsDelimitedTextR, @TStringsDelimitedTextW, 'DELIMITEDTEXT');
RegisterPropertyHelper(@TStringsNameValueSeparatorR, @TStringsNameValueSeparatorW, 'NAMEVALUESEPARATOR');
RegisterPropertyHelper(@TStringsQuoteCharR, @TStringsQuoteCharW, 'QUOTECHAR');
RegisterPropertyHelper(@TStringsCountR, nil, 'COUNT');
RegisterPropertyHelper(@TStringsTextR, @TStringsTextW, 'TEXT');
RegisterPropertyHelper(@TStringsCommaTextR, @TStringsCommatextW, 'COMMATEXT');
RegisterPropertyHelper(@TStringsDelimitedTextR, @TStringsDelimitedTextW, 'DelimitedText');
RegisterPropertyHelper(@TStringsNameValueSeparatorR, @TStringsNameValueSeparatorW, 'NameValueSeparator');
RegisterPropertyHelper(@TStringsQuoteCharR, @TStringsQuoteCharW, 'QuoteChar');
RegisterPropertyHelper(@TStringsCountR, nil, 'Count');
RegisterPropertyHelper(@TStringsTextR, @TStringsTextW, 'Text');
RegisterPropertyHelper(@TStringsCommaTextR, @TStringsCommatextW, 'CommaText');
if Streams then
begin
RegisterVirtualMethod(@TStrings.LoadFromFile, 'LOADFROMFILE');
RegisterVirtualMethod(@TStrings.SaveToFile, 'SAVETOFILE');
RegisterVirtualMethod(@TStrings.LoadFromFile, 'LoadFromFile');
RegisterVirtualMethod(@TStrings.SaveToFile, 'SaveToFile');
end;
RegisterPropertyHelper(@TStringsStringsR, @TStringsStringsW, 'STRINGS');
RegisterPropertyHelper(@TStringsObjectsR, @TStringsObjectsW, 'OBJECTS');
RegisterPropertyHelper(@TStringsStringsR, @TStringsStringsW, 'Strings');
RegisterPropertyHelper(@TStringsObjectsR, @TStringsObjectsW, 'Objects');
{$IFNDEF PS_MINIVCL}
RegisterMethod(@TStrings.BeginUpdate, 'BEGINUPDATE');
RegisterMethod(@TStrings.EndUpdate, 'ENDUPDATE');
RegisterMethod(@TStrings.Equals, 'EQUALS');
RegisterVirtualMethod(@TStrings.Exchange, 'EXCHANGE');
RegisterMethod(@TStrings.IndexOfName, 'INDEXOFNAME');
RegisterMethod(@TStrings.BeginUpdate, 'BeginUpdate');
RegisterMethod(@TStrings.EndUpdate, 'EndUpdate');
RegisterMethod(@TStrings.Equals, 'Equals');
RegisterVirtualMethod(@TStrings.Exchange, 'Exchange');
RegisterMethod(@TStrings.IndexOfName, 'IndexOfName');
if Streams then
RegisterVirtualMethod(@TStrings.LoadFromStream, 'LOADFROMSTREAM');
RegisterVirtualMethod(@TStrings.Move, 'MOVE');
RegisterVirtualMethod(@TStrings.LoadFromStream, 'LoadFromStream');
RegisterVirtualMethod(@TStrings.Move, 'Move');
if Streams then
RegisterVirtualMethod(@TStrings.SaveToStream, 'SAVETOSTREAM');
RegisterVirtualMethod(@TStrings.SetText, 'SETTEXT');
RegisterPropertyHelper(@TStringsNamesR, nil, 'NAMES');
RegisterPropertyHelper(@TStringsValuesR, @TStringsValuesW, 'VALUES');
RegisterPropertyHelper(@TStringsValueFromIndexR, @TStringsValueFromIndexW, 'VALUEFROMINDEX');
RegisterVirtualMethod(@TSTRINGS.ADDOBJECT, 'ADDOBJECT');
RegisterVirtualMethod(@TSTRINGS.GETTEXT, 'GETTEXT');
RegisterMethod(@TSTRINGS.INDEXOFOBJECT, 'INDEXOFOBJECT');
RegisterMethod(@TSTRINGS.INSERTOBJECT, 'INSERTOBJECT');
RegisterVirtualMethod(@TStrings.SaveToStream, 'SaveToStream');
RegisterVirtualMethod(@TStrings.SetText, 'SetText');
RegisterPropertyHelper(@TStringsNamesR, nil, 'Names');
RegisterPropertyHelper(@TStringsValuesR, @TStringsValuesW, 'Values');
RegisterPropertyHelper(@TStringsValueFromIndexR, @TStringsValueFromIndexW, 'ValueFromIndex');
RegisterVirtualMethod(@TSTRINGS.ADDOBJECT, 'AddObject');
RegisterVirtualMethod(@TSTRINGS.GETTEXT, 'GetText');
RegisterMethod(@TSTRINGS.INDEXOFOBJECT, 'IndexOfObject');
RegisterMethod(@TSTRINGS.INSERTOBJECT, 'InsertObject');
{$ENDIF}
end;
end;
@ -173,15 +173,15 @@ begin
with Cl.Add(TSTRINGLIST) do
begin
{$IFDEF DELPHI2005UP}
RegisterConstructor(@TStringList.CREATE, 'CREATE');
RegisterConstructor(@TStringList.CREATE, 'Create');
{$ENDIF}
RegisterVirtualMethod(@TSTRINGLIST.FIND, 'FIND');
RegisterVirtualMethod(@TSTRINGLIST.SORT, 'SORT');
RegisterPropertyHelper(@TSTRINGLISTCASESENSITIVE_R, @TSTRINGLISTCASESENSITIVE_W, 'CASESENSITIVE');
RegisterPropertyHelper(@TSTRINGLISTDUPLICATES_R, @TSTRINGLISTDUPLICATES_W, 'DUPLICATES');
RegisterPropertyHelper(@TSTRINGLISTSORTED_R, @TSTRINGLISTSORTED_W, 'SORTED');
RegisterEventPropertyHelper(@TSTRINGLISTONCHANGE_R, @TSTRINGLISTONCHANGE_W, 'ONCHANGE');
RegisterEventPropertyHelper(@TSTRINGLISTONCHANGING_R, @TSTRINGLISTONCHANGING_W, 'ONCHANGING');
RegisterVirtualMethod(@TSTRINGLIST.FIND, 'Find');
RegisterVirtualMethod(@TSTRINGLIST.SORT, 'Sort');
RegisterPropertyHelper(@TSTRINGLISTCASESENSITIVE_R, @TSTRINGLISTCASESENSITIVE_W, 'CaseSensitive');
RegisterPropertyHelper(@TSTRINGLISTDUPLICATES_R, @TSTRINGLISTDUPLICATES_W, 'Duplicates');
RegisterPropertyHelper(@TSTRINGLISTSORTED_R, @TSTRINGLISTSORTED_W, 'Sorted');
RegisterEventPropertyHelper(@TSTRINGLISTONCHANGE_R, @TSTRINGLISTONCHANGE_W, 'OnChange');
RegisterEventPropertyHelper(@TSTRINGLISTONCHANGING_R, @TSTRINGLISTONCHANGING_W, 'OnChanging');
end;
end;
@ -195,9 +195,9 @@ procedure RIRegisterTBITS(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TBITS) do
begin
RegisterMethod(@TBITS.OPENBIT, 'OPENBIT');
RegisterPropertyHelper(@TBITSBITS_R, @TBITSBITS_W, 'BITS');
RegisterPropertyHelper(@TBITSSIZE_R, @TBITSSIZE_W, 'SIZE');
RegisterMethod(@TBITS.OPENBIT, 'OpenBit');
RegisterPropertyHelper(@TBITSBITS_R, @TBITSBITS_W, 'Bits');
RegisterPropertyHelper(@TBITSSIZE_R, @TBITSSIZE_W, 'Size');
end;
end;
{$ENDIF}
@ -213,20 +213,20 @@ procedure RIRegisterTSTREAM(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TSTREAM) do
begin
RegisterVirtualAbstractMethod(TMemoryStream, @TMemoryStream.READ, 'READ');
RegisterVirtualAbstractMethod(TMemoryStream, @TMemoryStream.WRITE, 'WRITE');
RegisterVirtualAbstractMethod(TMemoryStream, @TMemoryStream.SEEK, 'SEEK');
RegisterMethod(@TSTREAM.READBUFFER, 'READBUFFER');
RegisterMethod(@TSTREAM.WRITEBUFFER, 'WRITEBUFFER');
RegisterVirtualAbstractMethod(TMemoryStream, @TMemoryStream.READ, 'Read');
RegisterVirtualAbstractMethod(TMemoryStream, @TMemoryStream.WRITE, 'Write');
RegisterVirtualAbstractMethod(TMemoryStream, @TMemoryStream.SEEK, 'Seek');
RegisterMethod(@TSTREAM.READBUFFER, 'ReadBuffer');
RegisterMethod(@TSTREAM.WRITEBUFFER, 'WriteBuffer');
{$IFDEF DELPHI4UP}
{$IFNDEF PS_NOINT64}
RegisterMethod(@TSTREAM.COPYFROM, 'COPYFROM');
RegisterMethod(@TSTREAM.COPYFROM, 'CopyFrom');
{$ENDIF}
{$ELSE}
RegisterMethod(@TSTREAM.COPYFROM, 'COPYFROM');
RegisterMethod(@TSTREAM.COPYFROM, 'CopyFrom');
{$ENDIF}
RegisterPropertyHelper(@TSTREAMPOSITION_R, @TSTREAMPOSITION_W, 'POSITION');
RegisterPropertyHelper(@TSTREAMSIZE_R, {$IFDEF DELPHI3UP}@TSTREAMSIZE_W, {$ELSE}nil, {$ENDIF}'SIZE');
RegisterPropertyHelper(@TSTREAMPOSITION_R, @TSTREAMPOSITION_W, 'Position');
RegisterPropertyHelper(@TSTREAMSIZE_R, {$IFDEF DELPHI3UP}@TSTREAMSIZE_W, {$ELSE}nil, {$ENDIF}'Size');
end;
end;
@ -236,8 +236,8 @@ procedure RIRegisterTHANDLESTREAM(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(THANDLESTREAM) do
begin
RegisterConstructor(@THANDLESTREAM.CREATE, 'CREATE');
RegisterPropertyHelper(@THANDLESTREAMHANDLE_R, nil, 'HANDLE');
RegisterConstructor(@THANDLESTREAM.CREATE, 'Create');
RegisterPropertyHelper(@THANDLESTREAMHANDLE_R, nil, 'Handle');
end;
end;
@ -254,9 +254,9 @@ begin
with Cl.Add(TFILESTREAM) do
begin
{$IFDEF FPC}
RegisterConstructor(@TFileStreamCreate, 'CREATE');
RegisterConstructor(@TFileStreamCreate, 'Create');
{$ELSE}
RegisterConstructor(@TFILESTREAM.CREATE, 'CREATE');
RegisterConstructor(@TFILESTREAM.CREATE, 'Create');
{$ENDIF}
end;
end;
@ -265,7 +265,7 @@ procedure RIRegisterTSTRINGSTREAM(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TSTRINGSTREAM) do
begin
RegisterConstructor(@TSTRINGSTREAM.CREATE, 'CREATE');
RegisterConstructor(@TSTRINGSTREAM.CREATE, 'Create');
end;
end;
@ -274,8 +274,8 @@ procedure RIRegisterTCUSTOMMEMORYSTREAM(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TCUSTOMMEMORYSTREAM) do
begin
RegisterMethod(@TCUSTOMMEMORYSTREAM.SAVETOSTREAM, 'SAVETOSTREAM');
RegisterMethod(@TCUSTOMMEMORYSTREAM.SAVETOFILE, 'SAVETOFILE');
RegisterMethod(@TCUSTOMMEMORYSTREAM.SAVETOSTREAM, 'SaveToStream');
RegisterMethod(@TCUSTOMMEMORYSTREAM.SAVETOFILE, 'SaveToFile');
end;
end;
@ -283,10 +283,10 @@ procedure RIRegisterTMEMORYSTREAM(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TMEMORYSTREAM) do
begin
RegisterMethod(@TMEMORYSTREAM.CLEAR, 'CLEAR');
RegisterMethod(@TMEMORYSTREAM.LOADFROMSTREAM, 'LOADFROMSTREAM');
RegisterMethod(@TMEMORYSTREAM.LOADFROMFILE, 'LOADFROMFILE');
RegisterMethod(@TMEMORYSTREAM.SETSIZE, 'SETSIZE');
RegisterMethod(@TMEMORYSTREAM.CLEAR, 'Clear');
RegisterMethod(@TMEMORYSTREAM.LOADFROMSTREAM, 'LoadFromStream');
RegisterMethod(@TMEMORYSTREAM.LOADFROMFILE, 'LoadFromFile');
RegisterMethod(@TMEMORYSTREAM.SETSIZE, 'SetSize');
end;
end;
@ -294,8 +294,8 @@ procedure RIRegisterTRESOURCESTREAM(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TRESOURCESTREAM) do
begin
RegisterConstructor(@TRESOURCESTREAM.CREATE, 'CREATE');
RegisterConstructor(@TRESOURCESTREAM.CREATEFROMID, 'CREATEFROMID');
RegisterConstructor(@TRESOURCESTREAM.CREATE, 'Create');
RegisterConstructor(@TRESOURCESTREAM.CREATEFROMID, 'CreateFromID');
end;
end;
@ -306,21 +306,21 @@ procedure RIRegisterTPARSER(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TPARSER) do
begin
RegisterConstructor(@TPARSER.CREATE, 'CREATE');
RegisterMethod(@TPARSER.CHECKTOKEN, 'CHECKTOKEN');
RegisterMethod(@TPARSER.CHECKTOKENSYMBOL, 'CHECKTOKENSYMBOL');
RegisterMethod(@TPARSER.ERROR, 'ERROR');
RegisterMethod(@TPARSER.ERRORSTR, 'ERRORSTR');
RegisterMethod(@TPARSER.HEXTOBINARY, 'HEXTOBINARY');
RegisterMethod(@TPARSER.NEXTTOKEN, 'NEXTTOKEN');
RegisterMethod(@TPARSER.SOURCEPOS, 'SOURCEPOS');
RegisterMethod(@TPARSER.TOKENCOMPONENTIDENT, 'TOKENCOMPONENTIDENT');
RegisterMethod(@TPARSER.TOKENFLOAT, 'TOKENFLOAT');
RegisterMethod(@TPARSER.TOKENINT, 'TOKENINT');
RegisterMethod(@TPARSER.TOKENSTRING, 'TOKENSTRING');
RegisterMethod(@TPARSER.TOKENSYMBOLIS, 'TOKENSYMBOLIS');
RegisterPropertyHelper(@TPARSERSOURCELINE_R, nil, 'SOURCELINE');
RegisterPropertyHelper(@TPARSERTOKEN_R, nil, 'TOKEN');
RegisterConstructor(@TPARSER.CREATE, 'Create');
RegisterMethod(@TPARSER.CHECKTOKEN, 'CheckToken');
RegisterMethod(@TPARSER.CHECKTOKENSYMBOL, 'CheckTokenSymbol');
RegisterMethod(@TPARSER.ERROR, 'Error');
RegisterMethod(@TPARSER.ERRORSTR, 'ErrorStr');
RegisterMethod(@TPARSER.HEXTOBINARY, 'HexToBinary');
RegisterMethod(@TPARSER.NEXTTOKEN, 'NextToken');
RegisterMethod(@TPARSER.SOURCEPOS, 'SourcePos');
RegisterMethod(@TPARSER.TOKENCOMPONENTIDENT, 'TokenComponentIdent');
RegisterMethod(@TPARSER.TOKENFLOAT, 'TokenFloat');
RegisterMethod(@TPARSER.TOKENINT, 'TokenInt');
RegisterMethod(@TPARSER.TOKENSTRING, 'TokenString');
RegisterMethod(@TPARSER.TOKENSYMBOLIS, 'TokenSymbolIs');
RegisterPropertyHelper(@TPARSERSOURCELINE_R, nil, 'SourceLine');
RegisterPropertyHelper(@TPARSERTOKEN_R, nil, 'Token');
end;
end;
@ -370,7 +370,7 @@ procedure RIRegisterTOWNEDCOLLECTION(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TOWNEDCOLLECTION) do
begin
RegisterConstructor(@TOWNEDCOLLECTION.CREATE, 'CREATE');
RegisterConstructor(@TOWNEDCOLLECTION.CREATE, 'Create');
end;
end;
{$ENDIF}
@ -379,18 +379,18 @@ procedure RIRegisterTCOLLECTION(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TCOLLECTION) do
begin
RegisterConstructor(@TCOLLECTION.CREATE, 'CREATE');
{$IFDEF DELPHI6UP} {$IFNDEF FPC} RegisterMethod(@TCOLLECTION.OWNER, 'OWNER'); {$ENDIF} {$ENDIF} // no owner in FPC
RegisterMethod(@TCOLLECTION.ADD, 'ADD');
RegisterVirtualMethod(@TCOLLECTION.BEGINUPDATE, 'BEGINUPDATE');
RegisterMethod(@TCOLLECTION.CLEAR, 'CLEAR');
{$IFDEF DELPHI5UP} RegisterMethod(@TCOLLECTION.DELETE, 'DELETE'); {$ENDIF}
RegisterVirtualMethod(@TCOLLECTION.ENDUPDATE, 'ENDUPDATE');
{$IFDEF DELPHI3UP} RegisterMethod(@TCOLLECTION.FINDITEMID, 'FINDITEMID'); {$ENDIF}
{$IFDEF DELPHI3UP} RegisterMethod(@TCOLLECTION.INSERT, 'INSERT'); {$ENDIF}
RegisterPropertyHelper(@TCOLLECTIONCOUNT_R,nil,'COUNT');
{$IFDEF DELPHI3UP} RegisterPropertyHelper(@TCOLLECTIONITEMCLASS_R,nil,'ITEMCLASS'); {$ENDIF}
RegisterPropertyHelper(@TCOLLECTIONITEMS_R,@TCOLLECTIONITEMS_W,'ITEMS');
RegisterConstructor(@TCOLLECTION.CREATE, 'Create');
{$IFDEF DELPHI6UP} {$IFNDEF FPC} RegisterMethod(@TCOLLECTION.OWNER, 'Owner'); {$ENDIF} {$ENDIF} // no owner in FPC
RegisterMethod(@TCOLLECTION.ADD, 'Add');
RegisterVirtualMethod(@TCOLLECTION.BEGINUPDATE, 'BeginUpdate');
RegisterMethod(@TCOLLECTION.CLEAR, 'Clear');
{$IFDEF DELPHI5UP} RegisterMethod(@TCOLLECTION.DELETE, 'Delete'); {$ENDIF}
RegisterVirtualMethod(@TCOLLECTION.ENDUPDATE, 'EndUpdate');
{$IFDEF DELPHI3UP} RegisterMethod(@TCOLLECTION.FINDITEMID, 'FindItemID'); {$ENDIF}
{$IFDEF DELPHI3UP} RegisterMethod(@TCOLLECTION.INSERT, 'Insert'); {$ENDIF}
RegisterPropertyHelper(@TCOLLECTIONCOUNT_R,nil,'Count');
{$IFDEF DELPHI3UP} RegisterPropertyHelper(@TCOLLECTIONITEMCLASS_R,nil,'ItemClass'); {$ENDIF}
RegisterPropertyHelper(@TCOLLECTIONITEMS_R,@TCOLLECTIONITEMS_W,'Items');
end;
end;
@ -398,11 +398,11 @@ procedure RIRegisterTCOLLECTIONITEM(Cl: TPSRuntimeClassImporter);
Begin
with Cl.Add(TCOLLECTIONITEM) do
begin
RegisterVirtualConstructor(@TCOLLECTIONITEM.CREATE, 'CREATE');
RegisterPropertyHelper(@TCOLLECTIONITEMCOLLECTION_R,@TCOLLECTIONITEMCOLLECTION_W,'COLLECTION');
RegisterVirtualConstructor(@TCOLLECTIONITEM.CREATE, 'Create');
RegisterPropertyHelper(@TCOLLECTIONITEMCOLLECTION_R,@TCOLLECTIONITEMCOLLECTION_W,'Collection');
{$IFDEF DELPHI3UP} RegisterPropertyHelper(@TCOLLECTIONITEMID_R,nil,'ID'); {$ENDIF}
RegisterPropertyHelper(@TCOLLECTIONITEMINDEX_R,@TCOLLECTIONITEMINDEX_W,'INDEX');
{$IFDEF DELPHI3UP} RegisterPropertyHelper(@TCOLLECTIONITEMDISPLAYNAME_R,@TCOLLECTIONITEMDISPLAYNAME_W,'DISPLAYNAME'); {$ENDIF}
RegisterPropertyHelper(@TCOLLECTIONITEMINDEX_R,@TCOLLECTIONITEMINDEX_W,'Index');
{$IFDEF DELPHI3UP} RegisterPropertyHelper(@TCOLLECTIONITEMDISPLAYNAME_R,@TCOLLECTIONITEMDISPLAYNAME_W,'DisplayName'); {$ENDIF}
end;
end;
{$ENDIF}

8
Source/uPSR_comobj.pas
View File

@ -99,8 +99,8 @@ begin
cl.RegisterDelphiFunction(@OleCheck, 'OleCheck', cdRegister);
cl.RegisterDelphiFunction(@StringToGUID, 'StringToGUID', cdRegister);
cl.RegisterDelphiFunction(@CreateComObject, 'CreateComObject', cdRegister);
cl.RegisterDelphiFunction(@CreateOleObject, 'CREATEOLEOBJECT', cdRegister);
cl.RegisterDelphiFunction(@GetActiveOleObject, 'GETACTIVEOLEOBJECT', cdRegister);
cl.RegisterDelphiFunction(@CreateOleObject, 'CreateOleObject', cdRegister);
cl.RegisterDelphiFunction(@GetActiveOleObject, 'GetActiveOleObject', cdRegister);
{$ENDIF}
{$ELSE}
cl.RegisterDelphiFunction(@OleCheck, 'OleCheck', cdRegister);
@ -110,8 +110,8 @@ begin
cl.RegisterDelphiFunction(@CreateComObject, 'CreateComObject', cdRegister);
{$ENDIF}
{$ENDIF}
cl.RegisterDelphiFunction(@CreateOleObject, 'CREATEOLEOBJECT', cdRegister);
cl.RegisterDelphiFunction(@GetActiveOleObject, 'GETACTIVEOLEOBJECT', cdRegister);
cl.RegisterDelphiFunction(@CreateOleObject, 'CreateOleObject', cdRegister);
cl.RegisterDelphiFunction(@GetActiveOleObject, 'GetActiveOleObject', cdRegister);
{$ENDIF}
end;

100
Source/uPSR_controls.pas
View File

@ -54,42 +54,42 @@ procedure RIRegisterTControl(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TControl) do
begin
RegisterVirtualConstructor(@TControl.Create, 'CREATE');
RegisterMethod(@TControl.BRingToFront, 'BRINGTOFRONT');
RegisterMethod(@TControl.Hide, 'HIDE');
RegisterVirtualMethod(@TControl.Invalidate, 'INVALIDATE');
RegisterMethod(@TControl.Refresh, 'REFRESH');
RegisterVirtualMethod(@TControl.Repaint, 'REPAINT');
RegisterMethod(@TControl.SendToBack, 'SENDTOBACK');
RegisterMethod(@TControl.Show, 'SHOW');
RegisterVirtualMethod(@TControl.Update, 'UPDATE');
RegisterVirtualMethod(@TControl.SetBounds, 'SETBOUNDS');
RegisterVirtualConstructor(@TControl.Create, 'Create');
RegisterMethod(@TControl.BRingToFront, 'BringToFront');
RegisterMethod(@TControl.Hide, 'Hide');
RegisterVirtualMethod(@TControl.Invalidate, 'Invalidate');
RegisterMethod(@TControl.Refresh, 'Refresh');
RegisterVirtualMethod(@TControl.Repaint, 'Repaint');
RegisterMethod(@TControl.SendToBack, 'SendToBack');
RegisterMethod(@TControl.Show, 'Show');
RegisterVirtualMethod(@TControl.Update, 'Update');
RegisterVirtualMethod(@TControl.SetBounds, 'SetBounds');
RegisterPropertyHelper(@TControlShowHintR, @TControlShowHintW, 'SHOWHINT');
RegisterPropertyHelper(@TControlAlignR, @TControlAlignW, 'ALIGN');
RegisterPropertyHelper(@TControlClientHeightR, @TControlClientHeightW, 'CLIENTHEIGHT');
RegisterPropertyHelper(@TControlClientWidthR, @TControlClientWidthW, 'CLIENTWIDTH');
RegisterPropertyHelper(@TControlVisibleR, @TControlVisibleW, 'VISIBLE');
RegisterPropertyHelper(@TCONTROLENABLED_R, @TCONTROLENABLED_W, 'ENABLED');
RegisterPropertyHelper(@TControlShowHintR, @TControlShowHintW, 'ShowHint');
RegisterPropertyHelper(@TControlAlignR, @TControlAlignW, 'Align');
RegisterPropertyHelper(@TControlClientHeightR, @TControlClientHeightW, 'ClientHeight');
RegisterPropertyHelper(@TControlClientWidthR, @TControlClientWidthW, 'ClientWidth');
RegisterPropertyHelper(@TControlVisibleR, @TControlVisibleW, 'Visible');
RegisterPropertyHelper(@TCONTROLENABLED_R, @TCONTROLENABLED_W, 'Enabled');
RegisterPropertyHelper(@TControlParentR, @TControlParentW, 'PARENT');
RegisterPropertyHelper(@TControlParentR, @TControlParentW, 'Parent');
{$IFNDEF PS_MINIVCL}
RegisterMethod(@TControl.Dragging, 'DRAGGING');
RegisterMethod(@TControl.HasParent, 'HASPARENT');
RegisterMethod(@TCONTROL.CLIENTTOSCREEN, 'CLIENTTOSCREEN');
RegisterMethod(@TCONTROL.DRAGGING, 'DRAGGING');
RegisterMethod(@TControl.Dragging, 'Dragging');
RegisterMethod(@TControl.HasParent, 'HasParent');
RegisterMethod(@TCONTROL.CLIENTTOSCREEN, 'ClientToScreen');
RegisterMethod(@TCONTROL.DRAGGING, 'Dragging');
{$IFNDEF FPC}
RegisterMethod(@TCONTROL.BEGINDRAG, 'BEGINDRAG');
RegisterMethod(@TCONTROL.ENDDRAG, 'ENDDRAG');
RegisterMethod(@TCONTROL.BEGINDRAG, 'BeginDrag');
RegisterMethod(@TCONTROL.ENDDRAG, 'EndDrag');
{$ENDIF}
{$IFNDEF CLX}
RegisterMethod(@TCONTROL.GETTEXTBUF, 'GETTEXTBUF');
RegisterMethod(@TCONTROL.GETTEXTLEN, 'GETTEXTLEN');
RegisterMethod(@TCONTROL.PERFORM, 'PERFORM');
RegisterMethod(@TCONTROL.SETTEXTBUF, 'SETTEXTBUF');
RegisterMethod(@TCONTROL.GETTEXTBUF, 'GetTextBuf');
RegisterMethod(@TCONTROL.GETTEXTLEN, 'GetTextLen');
RegisterMethod(@TCONTROL.PERFORM, 'Perform');
RegisterMethod(@TCONTROL.SETTEXTBUF, 'SetTextBuf');
{$ENDIF}
RegisterMethod(@TCONTROL.SCREENTOCLIENT, 'SCREENTOCLIENT');
RegisterMethod(@TCONTROL.SCREENTOCLIENT, 'ScreenToClient');
{$ENDIF}
end;
end;
@ -113,34 +113,34 @@ begin
with Cl.Add(TWinControl) do
begin
{$IFNDEF CLX}
RegisterPropertyHelper(@TWinControlHandleR, nil, 'HANDLE');
RegisterPropertyHelper(@TWinControlHandleR, nil, 'Handle');
{$ENDIF}
RegisterPropertyHelper(@TWinControlShowingR, nil, 'SHOWING');
RegisterPropertyHelper(@TWinControlTabOrderR, @TWinControlTabOrderW, 'TABORDER');
RegisterPropertyHelper(@TWinControlTabStopR, @TWinControlTabStopW, 'TABSTOP');
RegisterMethod(@TWINCONTROL.CANFOCUS, 'CANFOCUS');
RegisterMethod(@TWINCONTROL.FOCUSED, 'FOCUSED');
RegisterPropertyHelper(@TWINCONTROLCONTROLS_R, nil, 'CONTROLS');
RegisterPropertyHelper(@TWINCONTROLCONTROLCOUNT_R, nil, 'CONTROLCOUNT');
RegisterPropertyHelper(@TWinControlShowingR, nil, 'Showing');
RegisterPropertyHelper(@TWinControlTabOrderR, @TWinControlTabOrderW, 'TabOrder');
RegisterPropertyHelper(@TWinControlTabStopR, @TWinControlTabStopW, 'TabStop');
RegisterMethod(@TWINCONTROL.CANFOCUS, 'CanFocus');
RegisterMethod(@TWINCONTROL.FOCUSED, 'Focused');
RegisterPropertyHelper(@TWINCONTROLCONTROLS_R, nil, 'Controls');
RegisterPropertyHelper(@TWINCONTROLCONTROLCOUNT_R, nil, 'ControlCount');
{$IFNDEF PS_MINIVCL}
RegisterMethod(@TWinControl.HandleAllocated, 'HANDLEALLOCATED');
RegisterMethod(@TWinControl.HandleNeeded, 'HANDLENEEDED');
RegisterMethod(@TWinControl.EnableAlign, 'ENABLEALIGN');
RegisterMethod(@TWinControl.RemoveControl, 'REMOVECONTROL');
RegisterMethod(@TWinControl.HandleAllocated, 'HandleAllocated');
RegisterMethod(@TWinControl.HandleNeeded, 'HandleNeeded');
RegisterMethod(@TWinControl.EnableAlign, 'EnableAlign');
RegisterMethod(@TWinControl.RemoveControl, 'RemoveControl');
{$IFNDEF FPC}
RegisterMethod(@TWinControl.InsertControl, 'INSERTCONTROL');
RegisterMethod(@TWinControl.ScaleBy, 'SCALEBY');
RegisterMethod(@TWinControl.ScrollBy, 'SCROLLBY');
RegisterMethod(@TWinControl.InsertControl, 'InsertControl');
RegisterMethod(@TWinControl.ScaleBy, 'ScaleBy');
RegisterMethod(@TWinControl.ScrollBy, 'ScrollBy');
{$IFNDEF CLX}
RegisterMethod(@TWINCONTROL.PAINTTO, 'PAINTTO');
RegisterMethod(@TWINCONTROL.PAINTTO, 'PaintTo');
{$ENDIF}
{$ENDIF}{FPC}
RegisterMethod(@TWinControl.Realign, 'REALIGN');
RegisterVirtualMethod(@TWinControl.SetFocus, 'SETFOCUS');
RegisterMethod(@TWINCONTROL.CONTAINSCONTROL, 'CONTAINSCONTROL');
RegisterMethod(@TWINCONTROL.DISABLEALIGN, 'DISABLEALIGN');
RegisterMethod(@TWINCONTROL.UPDATECONTROLSTATE, 'UPDATECONTROLSTATE');
RegisterPropertyHelper(@TWINCONTROLBRUSH_R, nil, 'BRUSH');
RegisterMethod(@TWinControl.Realign, 'Realign');
RegisterVirtualMethod(@TWinControl.SetFocus, 'SetFocus');
RegisterMethod(@TWINCONTROL.CONTAINSCONTROL, 'ContainsControl');
RegisterMethod(@TWINCONTROL.DISABLEALIGN, 'DisableAlign');
RegisterMethod(@TWINCONTROL.UPDATECONTROLSTATE, 'UpdateControlState');
RegisterPropertyHelper(@TWINCONTROLBRUSH_R, nil, 'Brush');
{$ENDIF}
end;
end;

30
Source/uPSR_dateutils.pas
View File

@ -43,21 +43,21 @@ end;
procedure RegisterDateTimeLibrary_R(S: TPSExec);
begin
S.RegisterDelphiFunction(@EncodeDate, 'ENCODEDATE', cdRegister);
S.RegisterDelphiFunction(@EncodeTime, 'ENCODETIME', cdRegister);
S.RegisterDelphiFunction(@TryEncodeDate, 'TRYENCODEDATE', cdRegister);
S.RegisterDelphiFunction(@TryEncodeTime, 'TRYENCODETIME', cdRegister);
S.RegisterDelphiFunction(@DecodeDate, 'DECODEDATE', cdRegister);
S.RegisterDelphiFunction(@DecodeTime, 'DECODETIME', cdRegister);
S.RegisterDelphiFunction(@DayOfWeek, 'DAYOFWEEK', cdRegister);
S.RegisterDelphiFunction(@Date, 'DATE', cdRegister);
S.RegisterDelphiFunction(@Time, 'TIME', cdRegister);
S.RegisterDelphiFunction(@Now, 'NOW', cdRegister);
S.RegisterDelphiFunction(@DateTimeToUnix, 'DATETIMETOUNIX', cdRegister);
S.RegisterDelphiFunction(@UnixToDateTime, 'UNIXTODATETIME', cdRegister);
S.RegisterDelphiFunction(@DateToStr, 'DATETOSTR', cdRegister);
S.RegisterDelphiFunction(@FormatDateTime, 'FORMATDATETIME', cdRegister);
S.RegisterDelphiFunction(@StrToDate, 'STRTODATE', cdRegister);
S.RegisterDelphiFunction(@EncodeDate, 'EncodeDate', cdRegister);
S.RegisterDelphiFunction(@EncodeTime, 'EncodeTime', cdRegister);
S.RegisterDelphiFunction(@TryEncodeDate, 'TryEncodeDate', cdRegister);
S.RegisterDelphiFunction(@TryEncodeTime, 'TryEncodeTime', cdRegister);
S.RegisterDelphiFunction(@DecodeDate, 'DecodeDate', cdRegister);
S.RegisterDelphiFunction(@DecodeTime, 'DecodeTime', cdRegister);
S.RegisterDelphiFunction(@DayOfWeek, 'DayOfWeek', cdRegister);
S.RegisterDelphiFunction(@Date, 'Date', cdRegister);
S.RegisterDelphiFunction(@Time, 'Time', cdRegister);
S.RegisterDelphiFunction(@Now, 'Now', cdRegister);
S.RegisterDelphiFunction(@DateTimeToUnix, 'DateTimeToUnix', cdRegister);
S.RegisterDelphiFunction(@UnixToDateTime, 'UnixToDateTime', cdRegister);
S.RegisterDelphiFunction(@DateToStr, 'DateToStr', cdRegister);
S.RegisterDelphiFunction(@FormatDateTime, 'FormatDateTime', cdRegister);
S.RegisterDelphiFunction(@StrToDate, 'StrToDate', cdRegister);
end;
end.

4
Source/uPSR_dll.pas
View File

@ -301,8 +301,8 @@ begin
if AddDllProcImport then
Caller.AddSpecialProcImport('dll', @ProcessDllImport, nil);
if RegisterUnloadDLL then
Caller.RegisterFunctionName('UNLOADDLL', UnloadProc, nil, nil);
Caller.RegisterFunctionName('DLLGETLASTERROR', GetLastErrorProc, nil, nil);
Caller.RegisterFunctionName('UnloadDll', UnloadProc, nil, nil);
Caller.RegisterFunctionName('DllGetLastError', GetLastErrorProc, nil, nil);
end;
end.

8
Source/uPSR_extctrls.pas
View File

@ -38,7 +38,7 @@ begin
with Cl.Add(TSHAPE) do
begin
{$IFNDEF PS_MINIVCL}
RegisterMethod(@TSHAPE.STYLECHANGED, 'STYLECHANGED');
RegisterMethod(@TSHAPE.STYLECHANGED, 'StyleChanged');
{$ENDIF}
end;
end;
@ -49,7 +49,7 @@ procedure RIRegisterTIMAGE(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TIMAGE) do
begin
RegisterPropertyHelper(@TIMAGECANVAS_R, nil, 'CANVAS');
RegisterPropertyHelper(@TIMAGECANVAS_R, nil, 'Canvas');
end;
end;
@ -59,7 +59,7 @@ procedure RIRegisterTPAINTBOX(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TPAINTBOX) do
begin
RegisterPropertyHelper(@TPAINTBOXCANVAS_R, nil, 'CANVAS');
RegisterPropertyHelper(@TPAINTBOXCANVAS_R, nil, 'Canvas');
end;
end;
@ -101,7 +101,7 @@ procedure RIRegisterTHEADER(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(THEADER) do
begin
RegisterPropertyHelper(@THEADERSECTIONWIDTH_R, @THEADERSECTIONWIDTH_W, 'SECTIONWIDTH');
RegisterPropertyHelper(@THEADERSECTIONWIDTH_R, @THEADERSECTIONWIDTH_W, 'SectionWidth');
end;
end;
{$ENDIF}

156
Source/uPSR_forms.pas
View File

@ -25,8 +25,8 @@ procedure RIRegisterTCONTROLSCROLLBAR(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TCONTROLSCROLLBAR) do
begin
RegisterPropertyHelper(@TCONTROLSCROLLBARKIND_R, nil, 'KIND');
RegisterPropertyHelper(@TCONTROLSCROLLBARSCROLLPOS_R, nil, 'SCROLLPOS');
RegisterPropertyHelper(@TCONTROLSCROLLBARKIND_R, nil, 'Kind');
RegisterPropertyHelper(@TCONTROLSCROLLBARSCROLLPOS_R, nil, 'ScrollPos');
end;
end;
@ -35,7 +35,7 @@ procedure RIRegisterTSCROLLINGWINCONTROL(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TSCROLLINGWINCONTROL) do
begin
RegisterMethod(@TSCROLLINGWINCONTROL.SCROLLINVIEW, 'SCROLLINVIEW');
RegisterMethod(@TSCROLLINGWINCONTROL.SCROLLINVIEW, 'ScrollInView');
end;
end;
{$ENDIF}
@ -75,43 +75,43 @@ begin
with Cl.Add(TFORM) do
begin
{$IFDEF DELPHI4UP}
RegisterVirtualConstructor(@TFORM.CREATENEW, 'CREATENEW');
RegisterVirtualConstructor(@TFORM.CREATENEW, 'CreateNew');
{$ELSE}
RegisterConstructor(@TFORM.CREATENEW, 'CREATENEW');
RegisterConstructor(@TFORM.CREATENEW, 'CreateNew');
{$ENDIF}
RegisterMethod(@TFORM.CLOSE, 'CLOSE');
RegisterMethod(@TFORM.HIDE, 'HIDE');
RegisterMethod(@TFORM.SHOW, 'SHOW');
RegisterMethod(@TFORM.SHOWMODAL, 'SHOWMODAL');
RegisterMethod(@TFORM.RELEASE, 'RELEASE');
RegisterPropertyHelper(@TFORMACTIVE_R, nil, 'ACTIVE');
RegisterMethod(@TFORM.CLOSE, 'Close');
RegisterMethod(@TFORM.HIDE, 'Hide');
RegisterMethod(@TFORM.SHOW, 'Show');
RegisterMethod(@TFORM.SHOWMODAL, 'ShowModal');
RegisterMethod(@TFORM.RELEASE, 'Release');
RegisterPropertyHelper(@TFORMACTIVE_R, nil, 'Active');
{$IFNDEF PS_MINIVCL}
{$IFNDEF FPC}
{$IFNDEF CLX}
RegisterMethod(@TFORM.ARRANGEICONS, 'ARRANGEICONS');
RegisterMethod(@TFORM.GETFORMIMAGE, 'GETFORMIMAGE');
RegisterMethod(@TFORM.PRINT, 'PRINT');
RegisterMethod(@TFORM.SENDCANCELMODE, 'SENDCANCELMODE');
RegisterPropertyHelper(@TFORMACTIVEOLECONTROL_R, @TFORMACTIVEOLECONTROL_W, 'ACTIVEOLECONTROL');
RegisterPropertyHelper(@TFORMCLIENTHANDLE_R, nil, 'CLIENTHANDLE');
RegisterPropertyHelper(@TFORMTILEMODE_R, @TFORMTILEMODE_W, 'TILEMODE');
RegisterMethod(@TFORM.ARRANGEICONS, 'ArrangeIcons');
RegisterMethod(@TFORM.GETFORMIMAGE, 'GetFormImage');
RegisterMethod(@TFORM.PRINT, 'Print');
RegisterMethod(@TFORM.SENDCANCELMODE, 'SendCancelMode');
RegisterPropertyHelper(@TFORMACTIVEOLECONTROL_R, @TFORMACTIVEOLECONTROL_W, 'ActiveOleControl');
RegisterPropertyHelper(@TFORMCLIENTHANDLE_R, nil, 'ClientHandle');
RegisterPropertyHelper(@TFORMTILEMODE_R, @TFORMTILEMODE_W, 'TileMode');
{$ENDIF}{CLX}
RegisterMethod(@TFORM.CASCADE, 'CASCADE');
RegisterMethod(@TFORM.NEXT, 'NEXT');
RegisterMethod(@TFORM.PREVIOUS, 'PREVIOUS');
RegisterMethod(@TFORM.TILE, 'TILE');
RegisterPropertyHelper(@TFORMACTIVEMDICHILD_R, nil, 'ACTIVEMDICHILD');
RegisterPropertyHelper(@TFORMDROPTARGET_R, @TFORMDROPTARGET_W, 'DROPTARGET');
RegisterPropertyHelper(@TFORMMDICHILDCOUNT_R, nil, 'MDICHILDCOUNT');
RegisterPropertyHelper(@TFORMMDICHILDREN_R, nil, 'MDICHILDREN');
RegisterMethod(@TFORM.CASCADE, 'Cascade');
RegisterMethod(@TFORM.NEXT, 'Next');
RegisterMethod(@TFORM.PREVIOUS, 'Previous');
RegisterMethod(@TFORM.TILE, 'Tile');
RegisterPropertyHelper(@TFORMACTIVEMDICHILD_R, nil, 'ActiveMDIChild');
RegisterPropertyHelper(@TFORMDROPTARGET_R, @TFORMDROPTARGET_W, 'DropTarget');
RegisterPropertyHelper(@TFORMMDICHILDCOUNT_R, nil, 'MDIChildCount');
RegisterPropertyHelper(@TFORMMDICHILDREN_R, nil, 'MDIChildren');
{$ENDIF}{FPC}
RegisterMethod(@TFORM.CLOSEQUERY, 'CLOSEQUERY');
RegisterMethod(@TFORM.DEFOCUSCONTROL, 'DEFOCUSCONTROL');
RegisterMethod(@TFORM.FOCUSCONTROL, 'FOCUSCONTROL');
RegisterMethod(@TFORM.SETFOCUSEDCONTROL, 'SETFOCUSEDCONTROL');
RegisterPropertyHelper(@TFORMCANVAS_R, nil, 'CANVAS');
RegisterPropertyHelper(@TFORMMODALRESULT_R, @TFORMMODALRESULT_W, 'MODALRESULT');
RegisterMethod(@TFORM.CLOSEQUERY, 'CloseQuery');
RegisterMethod(@TFORM.DEFOCUSCONTROL, 'DefocusControl');
RegisterMethod(@TFORM.FOCUSCONTROL, 'FocusControl');
RegisterMethod(@TFORM.SETFOCUSEDCONTROL, 'SetFocusedControl');
RegisterPropertyHelper(@TFORMCANVAS_R, nil, 'Canvas');
RegisterPropertyHelper(@TFORMMODALRESULT_R, @TFORMMODALRESULT_W, 'ModalResult');
{$ENDIF}{PS_MINIVCL}
end;
end;
@ -178,63 +178,63 @@ begin
with Cl.Add(TAPPLICATION) do
begin
{$IFNDEF FPC}
RegisterMethod(@TAPPLICATION.MINIMIZE, 'MINIMIZE');
RegisterMethod(@TAPPLICATION.RESTORE, 'RESTORE');
RegisterPropertyHelper(@TAPPLICATIONACTIVE_R, nil, 'ACTIVE');
RegisterPropertyHelper(@TAPPLICATIONONACTIVATE_R, @TAPPLICATIONONACTIVATE_W, 'ONACTIVATE');
RegisterPropertyHelper(@TAPPLICATIONONDEACTIVATE_R, @TAPPLICATIONONDEACTIVATE_W, 'ONDEACTIVATE');
RegisterPropertyHelper(@TAPPLICATIONONMINIMIZE_R, @TAPPLICATIONONMINIMIZE_W, 'ONMINIMIZE');
RegisterPropertyHelper(@TAPPLICATIONONRESTORE_R, @TAPPLICATIONONRESTORE_W, 'ONRESTORE');
RegisterPropertyHelper(@TAPPLICATIONDIALOGHANDLE_R, @TAPPLICATIONDIALOGHANDLE_W, 'DIALOGHANDLE');
RegisterMethod(@TAPPLICATION.CREATEHANDLE, 'CREATEHANDLE');
RegisterMethod(@TAPPLICATION.NORMALIZETOPMOSTS, 'NORMALIZETOPMOSTS');
RegisterMethod(@TAPPLICATION.RESTORETOPMOSTS, 'RESTORETOPMOSTS');
RegisterMethod(@TAPPLICATION.MINIMIZE, 'Minimize');
RegisterMethod(@TAPPLICATION.RESTORE, 'Restore');
RegisterPropertyHelper(@TAPPLICATIONACTIVE_R, nil, 'Active');
RegisterPropertyHelper(@TAPPLICATIONONACTIVATE_R, @TAPPLICATIONONACTIVATE_W, 'OnActivate');
RegisterPropertyHelper(@TAPPLICATIONONDEACTIVATE_R, @TAPPLICATIONONDEACTIVATE_W, 'OnDeactivate');
RegisterPropertyHelper(@TAPPLICATIONONMINIMIZE_R, @TAPPLICATIONONMINIMIZE_W, 'OnMinimize');
RegisterPropertyHelper(@TAPPLICATIONONRESTORE_R, @TAPPLICATIONONRESTORE_W, 'OnRestore');
RegisterPropertyHelper(@TAPPLICATIONDIALOGHANDLE_R, @TAPPLICATIONDIALOGHANDLE_W, 'DialogHandle');
RegisterMethod(@TAPPLICATION.CREATEHANDLE, 'CreateHandle');
RegisterMethod(@TAPPLICATION.NORMALIZETOPMOSTS, 'NormalizeTopMosts');
RegisterMethod(@TAPPLICATION.RESTORETOPMOSTS, 'RestoreTopMosts');
{$IFNDEF CLX}
RegisterPropertyHelper(@TAPPLICATIONHANDLE_R, @TAPPLICATIONHANDLE_W, 'HANDLE');
RegisterPropertyHelper(@TAPPLICATIONUPDATEFORMATSETTINGS_R, @TAPPLICATIONUPDATEFORMATSETTINGS_W, 'UPDATEFORMATSETTINGS');
RegisterPropertyHelper(@TAPPLICATIONHANDLE_R, @TAPPLICATIONHANDLE_W, 'Handle');
RegisterPropertyHelper(@TAPPLICATIONUPDATEFORMATSETTINGS_R, @TAPPLICATIONUPDATEFORMATSETTINGS_W, 'UpdateFormatSettings');
{$ENDIF}
{$ENDIF}
RegisterMethod(@TAPPLICATION.BRINGTOFRONT, 'BRINGTOFRONT');
RegisterMethod(@TAPPLICATION.MESSAGEBOX, 'MESSAGEBOX');
RegisterMethod(@TAPPLICATION.PROCESSMESSAGES, 'PROCESSMESSAGES');
RegisterMethod(@TAPPLICATION.TERMINATE, 'TERMINATE');
RegisterPropertyHelper(@TAPPLICATIONEXENAME_R, nil, 'EXENAME');
RegisterPropertyHelper(@TAPPLICATIONHINT_R, @TAPPLICATIONHINT_W, 'HINT');
RegisterPropertyHelper(@TAPPLICATIONMAINFORM_R, nil, 'MAINFORM');
RegisterPropertyHelper(@TAPPLICATIONSHOWHINT_R, @TAPPLICATIONSHOWHINT_W, 'SHOWHINT');
RegisterPropertyHelper(@TAPPLICATIONSHOWMAINFORM_R, @TAPPLICATIONSHOWMAINFORM_W, 'SHOWMAINFORM');
RegisterPropertyHelper(@TAPPLICATIONTERMINATED_R, nil, 'TERMINATED');
RegisterPropertyHelper(@TAPPLICATIONTITLE_R, @TAPPLICATIONTITLE_W, 'TITLE');
RegisterPropertyHelper(@TAPPLICATIONONIDLE_R, @TAPPLICATIONONIDLE_W, 'ONIDLE');
RegisterPropertyHelper(@TAPPLICATIONONHINT_R, @TAPPLICATIONONHINT_W, 'ONHINT');
RegisterMethod(@TAPPLICATION.BRINGTOFRONT, 'BringToFront');
RegisterMethod(@TAPPLICATION.MESSAGEBOX, 'MessageBox');
RegisterMethod(@TAPPLICATION.PROCESSMESSAGES, 'ProcessMessages');
RegisterMethod(@TAPPLICATION.TERMINATE, 'Terminate');
RegisterPropertyHelper(@TAPPLICATIONEXENAME_R, nil, 'ExeName');
RegisterPropertyHelper(@TAPPLICATIONHINT_R, @TAPPLICATIONHINT_W, 'Hint');
RegisterPropertyHelper(@TAPPLICATIONMAINFORM_R, nil, 'MainForm');
RegisterPropertyHelper(@TAPPLICATIONSHOWHINT_R, @TAPPLICATIONSHOWHINT_W, 'ShowHint');
RegisterPropertyHelper(@TAPPLICATIONSHOWMAINFORM_R, @TAPPLICATIONSHOWMAINFORM_W, 'ShowMainForm');
RegisterPropertyHelper(@TAPPLICATIONTERMINATED_R, nil, 'Terminated');
RegisterPropertyHelper(@TAPPLICATIONTITLE_R, @TAPPLICATIONTITLE_W, 'Title');
RegisterPropertyHelper(@TAPPLICATIONONIDLE_R, @TAPPLICATIONONIDLE_W, 'OnIdle');
RegisterPropertyHelper(@TAPPLICATIONONHINT_R, @TAPPLICATIONONHINT_W, 'OnHint');
{$IFNDEF PS_MINIVCL}
RegisterMethod(@TAPPLICATION.CONTROLDESTROYED, 'CONTROLDESTROYED');
RegisterMethod(@TAPPLICATION.CANCELHINT, 'CANCELHINT');
RegisterMethod(@TAPPLICATION.CONTROLDESTROYED, 'ControlDestroyed');
RegisterMethod(@TAPPLICATION.CANCELHINT, 'CancelHint');
{$IFNDEF CLX}
{$IFNDEF FPC}
RegisterMethod(@TAPPLICATION.HELPCOMMAND, 'HELPCOMMAND');
RegisterMethod(@TAPPLICATION.HELPCOMMAND, 'HelpCommand');
{$ENDIF}
RegisterMethod(@TAPPLICATION.HELPCONTEXT, 'HELPCONTEXT');
RegisterMethod(@TAPPLICATION.HELPCONTEXT, 'HelpContext');
{$IFNDEF FPC}
RegisterMethod(@TAPPLICATION.HELPJUMP, 'HELPJUMP');
RegisterMethod(@TAPPLICATION.HELPJUMP, 'HelpJump');
{$ENDIF}
{$ENDIF}
// RegisterMethod(@TAPPLICATION.HANDLEEXCEPTION, 'HANDLEEXCEPTION');
// RegisterMethod(@TAPPLICATION.HOOKMAINWINDOW, 'HOOKMAINWINDOW');
// RegisterMethod(@TAPPLICATION.UNHOOKMAINWINDOW, 'UNHOOKMAINWINDOW');
// RegisterMethod(@TAPPLICATION.HANDLEEXCEPTION, 'HandleException');
// RegisterMethod(@TAPPLICATION.HOOKMAINWINDOW, 'HookMainWindow');
// RegisterMethod(@TAPPLICATION.UNHOOKMAINWINDOW, 'UnhookMainWindow');
RegisterMethod(@TAPPLICATION.HANDLEMESSAGE, 'HANDLEMESSAGE');
RegisterMethod(@TAPPLICATION.HIDEHINT, 'HIDEHINT');
RegisterMethod(@TAPPLICATION.HINTMOUSEMESSAGE, 'HINTMOUSEMESSAGE');
RegisterMethod(@TAPPLICATION.INITIALIZE, 'INITIALIZE');
RegisterMethod(@TAPPLICATION.RUN, 'RUN');
// RegisterMethod(@TAPPLICATION.SHOWEXCEPTION, 'SHOWEXCEPTION');
RegisterPropertyHelper(@TAPPLICATIONHELPFILE_R, @TAPPLICATIONHELPFILE_W, 'HELPFILE');
RegisterPropertyHelper(@TAPPLICATIONHINTCOLOR_R, @TAPPLICATIONHINTCOLOR_W, 'HINTCOLOR');
RegisterPropertyHelper(@TAPPLICATIONHINTPAUSE_R, @TAPPLICATIONHINTPAUSE_W, 'HINTPAUSE');
RegisterPropertyHelper(@TAPPLICATIONHINTSHORTPAUSE_R, @TAPPLICATIONHINTSHORTPAUSE_W, 'HINTSHORTPAUSE');
RegisterPropertyHelper(@TAPPLICATIONHINTHIDEPAUSE_R, @TAPPLICATIONHINTHIDEPAUSE_W, 'HINTHIDEPAUSE');
RegisterPropertyHelper(@TAPPLICATIONONHELP_R, @TAPPLICATIONONHELP_W, 'ONHELP');
RegisterMethod(@TAPPLICATION.HANDLEMESSAGE, 'HandleMessage');
RegisterMethod(@TAPPLICATION.HIDEHINT, 'HideHint');
RegisterMethod(@TAPPLICATION.HINTMOUSEMESSAGE, 'HintMouseMessage');
RegisterMethod(@TAPPLICATION.INITIALIZE, 'Initialize');
RegisterMethod(@TAPPLICATION.RUN, 'Run');
// RegisterMethod(@TAPPLICATION.SHOWEXCEPTION, 'ShowException');
RegisterPropertyHelper(@TAPPLICATIONHELPFILE_R, @TAPPLICATIONHELPFILE_W, 'HelpFile');
RegisterPropertyHelper(@TAPPLICATIONHINTCOLOR_R, @TAPPLICATIONHINTCOLOR_W, 'HintColor');
RegisterPropertyHelper(@TAPPLICATIONHINTPAUSE_R, @TAPPLICATIONHINTPAUSE_W, 'HintPause');
RegisterPropertyHelper(@TAPPLICATIONHINTSHORTPAUSE_R, @TAPPLICATIONHINTSHORTPAUSE_W, 'HintShortPause');
RegisterPropertyHelper(@TAPPLICATIONHINTHIDEPAUSE_R, @TAPPLICATIONHINTHIDEPAUSE_W, 'HintHidePause');
RegisterPropertyHelper(@TAPPLICATIONONHELP_R, @TAPPLICATIONONHELP_W, 'OnHelp');
{$ENDIF}
end;
end;

62
Source/uPSR_graphics.pas
View File

@ -40,12 +40,12 @@ procedure RIRegisterTFont(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TFont) do
begin
RegisterConstructor(@TFont.Create, 'CREATE');
RegisterConstructor(@TFont.Create, 'Create');
{$IFNDEF CLX}
RegisterPropertyHelper(@TFontHandleR, @TFontHandleW, 'HANDLE');
RegisterPropertyHelper(@TFontHandleR, @TFontHandleW, 'Handle');
{$ENDIF}
RegisterPropertyHelper(@TFontPixelsPerInchR, @TFontPixelsPerInchW, 'PIXELSPERINCH');
RegisterPropertyHelper(@TFontStyleR, @TFontStyleW, 'STYLE');
RegisterPropertyHelper(@TFontPixelsPerInchR, @TFontPixelsPerInchW, 'PixelsPerInch');
RegisterPropertyHelper(@TFontStyleR, @TFontStyleW, 'Style');
end;
end;
{$IFNDEF CLX}
@ -70,37 +70,37 @@ begin
with Cl.Add(TCanvas) do
begin
{$IFDEF FPC}
RegisterMethod(@TCanvasArc, 'ARC');
RegisterMethod(@TCanvasChord, 'CHORD');
RegisterMethod(@TCanvasRectangle, 'RECTANGLE');
RegisterMethod(@TCanvasRoundRect, 'ROUNDRECT');
RegisterMethod(@TCanvasEllipse, 'ELLIPSE');
RegisterMethod(@TCanvasFillRect, 'FILLRECT');
RegisterMethod(@TCanvasFloodFill, 'FLOODFILL');
RegisterMethod(@TCanvasArc, 'Arc');
RegisterMethod(@TCanvasChord, 'Chord');
RegisterMethod(@TCanvasRectangle, 'Rectangle');
RegisterMethod(@TCanvasRoundRect, 'RoundRect');
RegisterMethod(@TCanvasEllipse, 'Ellipse');
RegisterMethod(@TCanvasFillRect, 'FillRect');
RegisterMethod(@TCanvasFloodFill, 'FloodFill');
{$ELSE}
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}Arc, 'ARC');
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}Chord, 'CHORD');
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}Rectangle, 'RECTANGLE');
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}RoundRect, 'ROUNDRECT');
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}Ellipse, 'ELLIPSE');
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}FillRect, 'FILLRECT');
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}Arc, 'Arc');
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}Chord, 'Chord');
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}Rectangle, 'Rectangle');
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}RoundRect, 'RoundRect');
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}Ellipse, 'Ellipse');
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}FillRect, 'FillRect');
{$IFNDEF CLX}
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}FloodFill, 'FLOODFILL');
RegisterMethod(@TCanvas{$IFNDEF FPC}.{$ENDIF}FloodFill, 'FloodFill');
{$ENDIF}
{$ENDIF}
RegisterMethod(@TCanvas.Draw, 'DRAW');
RegisterMethod(@TCanvas.Draw, 'Draw');
RegisterMethod(@TCanvas.Lineto, 'LINETO');
RegisterMethod(@TCanvas.Moveto, 'MOVETO');
RegisterMethod(@TCanvas.Pie, 'PIE');
RegisterMethod(@TCanvas.Refresh, 'REFRESH');
RegisterMethod(@TCanvas.TextHeight, 'TEXTHEIGHT');
RegisterMethod(@TCanvas.TextOut, 'TEXTOUT');
RegisterMethod(@TCanvas.TextWidth, 'TEXTWIDTH');
RegisterMethod(@TCanvas.Lineto, 'LineTo');
RegisterMethod(@TCanvas.Moveto, 'MoveTo');
RegisterMethod(@TCanvas.Pie, 'Pie');
RegisterMethod(@TCanvas.Refresh, 'Refresh');
RegisterMethod(@TCanvas.TextHeight, 'TextHeight');
RegisterMethod(@TCanvas.TextOut, 'TextOut');
RegisterMethod(@TCanvas.TextWidth, 'TextWidth');
{$IFNDEF CLX}
RegisterPropertyHelper(@TCanvasHandleR, @TCanvasHandleW, 'HANDLE');
RegisterPropertyHelper(@TCanvasHandleR, @TCanvasHandleW, 'Handle');
{$ENDIF}
RegisterPropertyHelper(@TCanvasPixelsR, @TCanvasPixelsW, 'PIXELS');
RegisterPropertyHelper(@TCanvasPixelsR, @TCanvasPixelsW, 'Pixels');
end;
end;
@ -113,7 +113,7 @@ procedure RIRegisterTGRAPHICSOBJECT(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TGRAPHICSOBJECT) do
begin
RegisterPropertyHelper(@TGRAPHICSOBJECTONCHANGE_R, @TGRAPHICSOBJECTONCHANGE_W, 'ONCHANGE');
RegisterPropertyHelper(@TGRAPHICSOBJECTONCHANGE_R, @TGRAPHICSOBJECTONCHANGE_W, 'OnChange');
end;
end;
@ -121,7 +121,7 @@ procedure RIRegisterTPEN(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TPEN) do
begin
RegisterConstructor(@TPEN.CREATE, 'CREATE');
RegisterConstructor(@TPEN.CREATE, 'Create');
end;
end;
@ -129,7 +129,7 @@ procedure RIRegisterTBRUSH(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TBRUSH) do
begin
RegisterConstructor(@TBRUSH.CREATE, 'CREATE');
RegisterConstructor(@TBRUSH.CREATE, 'Create');
end;
end;

186
Source/uPSR_menus.pas
View File

@ -292,17 +292,17 @@ begin T := Self.COMMAND; end;
procedure RIRegister_Menus_Routines(S: TPSExec);
begin
S.RegisterDelphiFunction(@SHORTCUT, 'SHORTCUT', cdRegister);
S.RegisterDelphiFunction(@SHORTCUTTOKEY, 'SHORTCUTTOKEY', cdRegister);
S.RegisterDelphiFunction(@SHORTCUT, 'ShortCut', cdRegister);
S.RegisterDelphiFunction(@SHORTCUTTOKEY, 'ShortCutToKey', cdRegister);
{$IFNDEF FPC}
S.RegisterDelphiFunction(@SHORTCUTTOTEXT, 'SHORTCUTTOTEXT', cdRegister);
S.RegisterDelphiFunction(@TEXTTOSHORTCUT, 'TEXTTOSHORTCUT', cdRegister);
S.RegisterDelphiFunction(@NEWMENU, 'NEWMENU', cdRegister);
S.RegisterDelphiFunction(@NEWPOPUPMENU, 'NEWPOPUPMENU', cdRegister);
S.RegisterDelphiFunction(@NEWSUBMENU, 'NEWSUBMENU', cdRegister);
S.RegisterDelphiFunction(@NEWITEM, 'NEWITEM', cdRegister);
S.RegisterDelphiFunction(@NEWLINE, 'NEWLINE', cdRegister);
S.RegisterDelphiFunction(@DRAWMENUITEM, 'DRAWMENUITEM', cdRegister);
S.RegisterDelphiFunction(@SHORTCUTTOTEXT, 'ShortCutToText', cdRegister);
S.RegisterDelphiFunction(@TEXTTOSHORTCUT, 'TextToShortCut', cdRegister);
S.RegisterDelphiFunction(@NEWMENU, 'NewMenu', cdRegister);
S.RegisterDelphiFunction(@NEWPOPUPMENU, 'NewPopupMenu', cdRegister);
S.RegisterDelphiFunction(@NEWSUBMENU, 'NewSubMenu', cdRegister);
S.RegisterDelphiFunction(@NEWITEM, 'NewItem', cdRegister);
S.RegisterDelphiFunction(@NEWLINE, 'NewLine', cdRegister);
S.RegisterDelphiFunction(@DRAWMENUITEM, 'DrawMenuItem', cdRegister);
{$ENDIF}
end;
@ -311,7 +311,7 @@ procedure RIRegisterTMENUITEMSTACK(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TMENUITEMSTACK) do
begin
RegisterMethod(@TMENUITEMSTACK.CLEARITEM, 'CLEARITEM');
RegisterMethod(@TMENUITEMSTACK.CLEARITEM, 'ClearItem');
end;
end;
@ -319,9 +319,9 @@ procedure RIRegisterTPOPUPLIST(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TPOPUPLIST) do
begin
RegisterPropertyHelper(@TPOPUPLISTWINDOW_R,nil,'WINDOW');
RegisterMethod(@TPOPUPLIST.ADD, 'ADD');
RegisterMethod(@TPOPUPLIST.REMOVE, 'REMOVE');
RegisterPropertyHelper(@TPOPUPLISTWINDOW_R,nil,'Window');
RegisterMethod(@TPOPUPLIST.ADD, 'Add');
RegisterMethod(@TPOPUPLIST.REMOVE, 'Remove');
end;
end;
{$ENDIF}
@ -331,16 +331,16 @@ procedure RIRegisterTPOPUPMENU(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TPOPUPMENU) do
begin
RegisterConstructor(@TPOPUPMENU.CREATE, 'CREATE');
RegisterVirtualMethod(@TPOPUPMENU.POPUP, 'POPUP');
RegisterPropertyHelper(@TPOPUPMENUPOPUPCOMPONENT_R,@TPOPUPMENUPOPUPCOMPONENT_W,'POPUPCOMPONENT');
RegisterEventPropertyHelper(@TPOPUPMENUONPOPUP_R,@TPOPUPMENUONPOPUP_W,'ONPOPUP');
RegisterConstructor(@TPOPUPMENU.CREATE, 'Create');
RegisterVirtualMethod(@TPOPUPMENU.POPUP, 'Popup');
RegisterPropertyHelper(@TPOPUPMENUPOPUPCOMPONENT_R,@TPOPUPMENUPOPUPCOMPONENT_W,'PopupComponent');
RegisterEventPropertyHelper(@TPOPUPMENUONPOPUP_R,@TPOPUPMENUONPOPUP_W,'OnPopup');
{$IFNDEF FPC}
RegisterPropertyHelper(@TPOPUPMENUALIGNMENT_R,@TPOPUPMENUALIGNMENT_W,'ALIGNMENT');
RegisterPropertyHelper(@TPOPUPMENUAUTOPOPUP_R,@TPOPUPMENUAUTOPOPUP_W,'AUTOPOPUP');
RegisterPropertyHelper(@TPOPUPMENUHELPCONTEXT_R,@TPOPUPMENUHELPCONTEXT_W,'HELPCONTEXT');
RegisterPropertyHelper(@TPOPUPMENUMENUANIMATION_R,@TPOPUPMENUMENUANIMATION_W,'MENUANIMATION');
RegisterPropertyHelper(@TPOPUPMENUTRACKBUTTON_R,@TPOPUPMENUTRACKBUTTON_W,'TRACKBUTTON');
RegisterPropertyHelper(@TPOPUPMENUALIGNMENT_R,@TPOPUPMENUALIGNMENT_W,'Alignment');
RegisterPropertyHelper(@TPOPUPMENUAUTOPOPUP_R,@TPOPUPMENUAUTOPOPUP_W,'AutoPopup');
RegisterPropertyHelper(@TPOPUPMENUHELPCONTEXT_R,@TPOPUPMENUHELPCONTEXT_W,'HelpContext');
RegisterPropertyHelper(@TPOPUPMENUMENUANIMATION_R,@TPOPUPMENUMENUANIMATION_W,'MenuAnimation');
RegisterPropertyHelper(@TPOPUPMENUTRACKBUTTON_R,@TPOPUPMENUTRACKBUTTON_W,'TrackButton');
{$ENDIF}
end;
end;
@ -350,12 +350,12 @@ begin
with Cl.Add(TMAINMENU) do
begin
{$IFNDEF FPC}
RegisterMethod(@TMAINMENU.MERGE, 'MERGE');
RegisterMethod(@TMAINMENU.UNMERGE, 'UNMERGE');
RegisterMethod(@TMAINMENU.POPULATEOLE2MENU, 'POPULATEOLE2MENU');
RegisterMethod(@TMAINMENU.GETOLE2ACCELERATORTABLE, 'GETOLE2ACCELERATORTABLE');
RegisterMethod(@TMAINMENU.SETOLE2MENUHANDLE, 'SETOLE2MENUHANDLE');
RegisterPropertyHelper(@TMAINMENUAUTOMERGE_R,@TMAINMENUAUTOMERGE_W,'AUTOMERGE');
RegisterMethod(@TMAINMENU.MERGE, 'Merge');
RegisterMethod(@TMAINMENU.UNMERGE, 'Unmerge');
RegisterMethod(@TMAINMENU.POPULATEOLE2MENU, 'PopulateOle2Menu');
RegisterMethod(@TMAINMENU.GETOLE2ACCELERATORTABLE, 'GetOle2AcceleratorTable');
RegisterMethod(@TMAINMENU.SETOLE2MENUHANDLE, 'SetOle2MenuHandle');
RegisterPropertyHelper(@TMAINMENUAUTOMERGE_R,@TMAINMENUAUTOMERGE_W,'AutoMerge');
{$ENDIF}
end;
end;
@ -365,24 +365,24 @@ procedure RIRegisterTMENU(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TMENU) do
begin
RegisterConstructor(@TMENU.CREATE, 'CREATE');
RegisterMethod(@TMENU.DISPATCHCOMMAND, 'DISPATCHCOMMAND');
RegisterMethod(@TMENU.FINDITEM, 'FINDITEM');
RegisterPropertyHelper(@TMENUIMAGES_R,@TMENUIMAGES_W,'IMAGES');
RegisterMethod(@TMENU.ISRIGHTTOLEFT, 'ISRIGHTTOLEFT');
RegisterPropertyHelper(@TMENUHANDLE_R,nil,'HANDLE');
RegisterPropertyHelper(@TMENUITEMS_R,nil,'ITEMS');
RegisterConstructor(@TMENU.CREATE, 'Create');
RegisterMethod(@TMENU.DISPATCHCOMMAND, 'DispatchCommand');
RegisterMethod(@TMENU.FINDITEM, 'FindItem');
RegisterPropertyHelper(@TMENUIMAGES_R,@TMENUIMAGES_W,'Images');
RegisterMethod(@TMENU.ISRIGHTTOLEFT, 'IsRightToLeft');
RegisterPropertyHelper(@TMENUHANDLE_R,nil,'Handle');
RegisterPropertyHelper(@TMENUITEMS_R,nil,'Items');
{$IFNDEF FPC}
RegisterMethod(@TMENU.DISPATCHPOPUP, 'DISPATCHPOPUP');
RegisterMethod(@TMENU.PARENTBIDIMODECHANGED, 'PARENTBIDIMODECHANGED');
RegisterMethod(@TMENU.PROCESSMENUCHAR, 'PROCESSMENUCHAR');
RegisterPropertyHelper(@TMENUAUTOHOTKEYS_R,@TMENUAUTOHOTKEYS_W,'AUTOHOTKEYS');
RegisterPropertyHelper(@TMENUAUTOLINEREDUCTION_R,@TMENUAUTOLINEREDUCTION_W,'AUTOLINEREDUCTION');
RegisterPropertyHelper(@TMENUBIDIMODE_R,@TMENUBIDIMODE_W,'BIDIMODE');
RegisterMethod(@TMENU.GETHELPCONTEXT, 'GETHELPCONTEXT');
RegisterPropertyHelper(@TMENUOWNERDRAW_R,@TMENUOWNERDRAW_W,'OWNERDRAW');
RegisterPropertyHelper(@TMENUPARENTBIDIMODE_R,@TMENUPARENTBIDIMODE_W,'PARENTBIDIMODE');
RegisterPropertyHelper(@TMENUWINDOWHANDLE_R,@TMENUWINDOWHANDLE_W,'WINDOWHANDLE');
RegisterMethod(@TMENU.DISPATCHPOPUP, 'DispatchPopup');
RegisterMethod(@TMENU.PARENTBIDIMODECHANGED, 'ParentBiDiModeChanged');
RegisterMethod(@TMENU.PROCESSMENUCHAR, 'ProcessMenuChar');
RegisterPropertyHelper(@TMENUAUTOHOTKEYS_R,@TMENUAUTOHOTKEYS_W,'AutoHotkeys');
RegisterPropertyHelper(@TMENUAUTOLINEREDUCTION_R,@TMENUAUTOLINEREDUCTION_W,'AutoLineReduction');
RegisterPropertyHelper(@TMENUBIDIMODE_R,@TMENUBIDIMODE_W,'BiDiMode');
RegisterMethod(@TMENU.GETHELPCONTEXT, 'GetHelpContext');
RegisterPropertyHelper(@TMENUOWNERDRAW_R,@TMENUOWNERDRAW_W,'OwnerDraw');
RegisterPropertyHelper(@TMENUPARENTBIDIMODE_R,@TMENUPARENTBIDIMODE_W,'ParentBiDiMode');
RegisterPropertyHelper(@TMENUWINDOWHANDLE_R,@TMENUWINDOWHANDLE_W,'WindowHandle');
{$ENDIF}
end;
end;
@ -391,57 +391,57 @@ procedure RIRegisterTMENUITEM(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TMENUITEM) do
begin
RegisterConstructor(@TMENUITEM.CREATE, 'CREATE');
RegisterVirtualMethod(@TMENUITEM.INITIATEACTION, 'INITIATEACTION');
RegisterMethod(@TMENUITEM.INSERT, 'INSERT');
RegisterMethod(@TMENUITEM.DELETE, 'DELETE');
RegisterMethod(@TMENUITEM.CLEAR, 'CLEAR');
RegisterVirtualMethod(@TMENUITEM.CLICK, 'CLICK');
RegisterConstructor(@TMENUITEM.CREATE, 'Create');
RegisterVirtualMethod(@TMENUITEM.INITIATEACTION, 'InitiateAction');
RegisterMethod(@TMENUITEM.INSERT, 'Insert');
RegisterMethod(@TMENUITEM.DELETE, 'Delete');
RegisterMethod(@TMENUITEM.CLEAR, 'Clear');
RegisterVirtualMethod(@TMENUITEM.CLICK, 'Click');
{$IFNDEF FPC}
RegisterMethod(@TMENUITEM.FIND, 'FIND');
RegisterMethod(@TMENUITEM.NEWTOPLINE, 'NEWTOPLINE');
RegisterMethod(@TMENUITEM.NEWBOTTOMLINE, 'NEWBOTTOMLINE');
RegisterMethod(@TMENUITEM.INSERTNEWLINEBEFORE, 'INSERTNEWLINEBEFORE');
RegisterMethod(@TMENUITEM.INSERTNEWLINEAFTER, 'INSERTNEWLINEAFTER');
RegisterMethod(@TMENUITEM.RETHINKHOTKEYS, 'RETHINKHOTKEYS');
RegisterMethod(@TMENUITEM.RETHINKLINES, 'RETHINKLINES');
RegisterMethod(@TMENUITEM.ISLINE, 'ISLINE');
RegisterMethod(@TMENUITEM.FIND, 'Find');
RegisterMethod(@TMENUITEM.NEWTOPLINE, 'NewTopLine');
RegisterMethod(@TMENUITEM.NEWBOTTOMLINE, 'NewBottomLine');
RegisterMethod(@TMENUITEM.INSERTNEWLINEBEFORE, 'InsertNewLineBefore');
RegisterMethod(@TMENUITEM.INSERTNEWLINEAFTER, 'InsertNewLineAfter');
RegisterMethod(@TMENUITEM.RETHINKHOTKEYS, 'RethinkHotkeys');
RegisterMethod(@TMENUITEM.RETHINKLINES, 'RethinkLines');
RegisterMethod(@TMENUITEM.ISLINE, 'IsLine');
{$ENDIF}
RegisterMethod(@TMENUITEM.INDEXOF, 'INDEXOF');
RegisterMethod(@TMENUITEM.GETIMAGELIST, 'GETIMAGELIST');
RegisterMethod(@TMENUITEM.GETPARENTCOMPONENT, 'GETPARENTCOMPONENT');
RegisterMethod(@TMENUITEM.GETPARENTMENU, 'GETPARENTMENU');
RegisterMethod(@TMENUITEM.HASPARENT, 'HASPARENT');
RegisterMethod(@TMENUITEM.ADD, 'ADD');
RegisterMethod(@TMENUITEM.REMOVE, 'REMOVE');
RegisterMethod(@TMENUITEM.INDEXOF, 'IndexOf');
RegisterMethod(@TMENUITEM.GETIMAGELIST, 'GetImageList');
RegisterMethod(@TMENUITEM.GETPARENTCOMPONENT, 'GetParentComponent');
RegisterMethod(@TMENUITEM.GETPARENTMENU, 'GetParentMenu');
RegisterMethod(@TMENUITEM.HASPARENT, 'HasParent');
RegisterMethod(@TMENUITEM.ADD, 'Add');
RegisterMethod(@TMENUITEM.REMOVE, 'Remove');
{$IFNDEF FPC}
RegisterPropertyHelper(@TMENUITEMAUTOHOTKEYS_R,@TMENUITEMAUTOHOTKEYS_W,'AUTOHOTKEYS');
RegisterPropertyHelper(@TMENUITEMAUTOLINEREDUCTION_R,@TMENUITEMAUTOLINEREDUCTION_W,'AUTOLINEREDUCTION');
RegisterEventPropertyHelper(@TMENUITEMONDRAWITEM_R,@TMENUITEMONDRAWITEM_W,'ONDRAWITEM');
RegisterEventPropertyHelper(@TMENUITEMONADVANCEDDRAWITEM_R,@TMENUITEMONADVANCEDDRAWITEM_W,'ONADVANCEDDRAWITEM');
RegisterEventPropertyHelper(@TMENUITEMONMEASUREITEM_R,@TMENUITEMONMEASUREITEM_W,'ONMEASUREITEM');
RegisterPropertyHelper(@TMENUITEMAUTOHOTKEYS_R,@TMENUITEMAUTOHOTKEYS_W,'AutoHotkeys');
RegisterPropertyHelper(@TMENUITEMAUTOLINEREDUCTION_R,@TMENUITEMAUTOLINEREDUCTION_W,'AutoLineReduction');
RegisterEventPropertyHelper(@TMENUITEMONDRAWITEM_R,@TMENUITEMONDRAWITEM_W,'OnDrawItem');
RegisterEventPropertyHelper(@TMENUITEMONADVANCEDDRAWITEM_R,@TMENUITEMONADVANCEDDRAWITEM_W,'OnAdvancedDrawItem');
RegisterEventPropertyHelper(@TMENUITEMONMEASUREITEM_R,@TMENUITEMONMEASUREITEM_W,'OnMeasureItem');
{$ENDIF}
RegisterPropertyHelper(@TMENUITEMCOMMAND_R,nil,'COMMAND');
RegisterPropertyHelper(@TMENUITEMHANDLE_R,nil,'HANDLE');
RegisterPropertyHelper(@TMENUITEMCOUNT_R,nil,'COUNT');
RegisterPropertyHelper(@TMENUITEMITEMS_R,nil,'ITEMS');
RegisterPropertyHelper(@TMENUITEMMENUINDEX_R,@TMENUITEMMENUINDEX_W,'MENUINDEX');
RegisterPropertyHelper(@TMENUITEMPARENT_R,nil,'PARENT');
RegisterPropertyHelper(@TMENUITEMACTION_R,@TMENUITEMACTION_W,'ACTION');
RegisterPropertyHelper(@TMENUITEMBITMAP_R,@TMENUITEMBITMAP_W,'BITMAP');
RegisterPropertyHelper(@TMENUITEMCAPTION_R,@TMENUITEMCAPTION_W,'CAPTION');
RegisterPropertyHelper(@TMENUITEMCHECKED_R,@TMENUITEMCHECKED_W,'CHECKED');
RegisterPropertyHelper(@TMENUITEMSUBMENUIMAGES_R,@TMENUITEMSUBMENUIMAGES_W,'SUBMENUIMAGES');
RegisterPropertyHelper(@TMENUITEMDEFAULT_R,@TMENUITEMDEFAULT_W,'DEFAULT');
RegisterPropertyHelper(@TMENUITEMENABLED_R,@TMENUITEMENABLED_W,'ENABLED');
RegisterPropertyHelper(@TMENUITEMGROUPINDEX_R,@TMENUITEMGROUPINDEX_W,'GROUPINDEX');
RegisterPropertyHelper(@TMENUITEMHELPCONTEXT_R,@TMENUITEMHELPCONTEXT_W,'HELPCONTEXT');
RegisterPropertyHelper(@TMENUITEMHINT_R,@TMENUITEMHINT_W,'HINT');
RegisterPropertyHelper(@TMENUITEMIMAGEINDEX_R,@TMENUITEMIMAGEINDEX_W,'IMAGEINDEX');
RegisterPropertyHelper(@TMENUITEMRADIOITEM_R,@TMENUITEMRADIOITEM_W,'RADIOITEM');
RegisterPropertyHelper(@TMENUITEMSHORTCUT_R,@TMENUITEMSHORTCUT_W,'SHORTCUT');
RegisterPropertyHelper(@TMENUITEMVISIBLE_R,@TMENUITEMVISIBLE_W,'VISIBLE');
RegisterEventPropertyHelper(@TMENUITEMONCLICK_R,@TMENUITEMONCLICK_W,'ONCLICK');
RegisterPropertyHelper(@TMENUITEMCOMMAND_R,nil,'Command');
RegisterPropertyHelper(@TMENUITEMHANDLE_R,nil,'Handle');
RegisterPropertyHelper(@TMENUITEMCOUNT_R,nil,'Count');
RegisterPropertyHelper(@TMENUITEMITEMS_R,nil,'Items');
RegisterPropertyHelper(@TMENUITEMMENUINDEX_R,@TMENUITEMMENUINDEX_W,'MenuIndex');
RegisterPropertyHelper(@TMENUITEMPARENT_R,nil,'Parent');
RegisterPropertyHelper(@TMENUITEMACTION_R,@TMENUITEMACTION_W,'Action');
RegisterPropertyHelper(@TMENUITEMBITMAP_R,@TMENUITEMBITMAP_W,'Bitmap');
RegisterPropertyHelper(@TMENUITEMCAPTION_R,@TMENUITEMCAPTION_W,'Caption');
RegisterPropertyHelper(@TMENUITEMCHECKED_R,@TMENUITEMCHECKED_W,'Checked');
RegisterPropertyHelper(@TMENUITEMSUBMENUIMAGES_R,@TMENUITEMSUBMENUIMAGES_W,'SubMenuImages');
RegisterPropertyHelper(@TMENUITEMDEFAULT_R,@TMENUITEMDEFAULT_W,'Default');
RegisterPropertyHelper(@TMENUITEMENABLED_R,@TMENUITEMENABLED_W,'Enabled');
RegisterPropertyHelper(@TMENUITEMGROUPINDEX_R,@TMENUITEMGROUPINDEX_W,'GroupIndex');
RegisterPropertyHelper(@TMENUITEMHELPCONTEXT_R,@TMENUITEMHELPCONTEXT_W,'HelpContext');
RegisterPropertyHelper(@TMENUITEMHINT_R,@TMENUITEMHINT_W,'Hint');
RegisterPropertyHelper(@TMENUITEMIMAGEINDEX_R,@TMENUITEMIMAGEINDEX_W,'ImageIndex');
RegisterPropertyHelper(@TMENUITEMRADIOITEM_R,@TMENUITEMRADIOITEM_W,'RadioItem');
RegisterPropertyHelper(@TMENUITEMSHORTCUT_R,@TMENUITEMSHORTCUT_W,'ShortCut');
RegisterPropertyHelper(@TMENUITEMVISIBLE_R,@TMENUITEMVISIBLE_W,'Visible');
RegisterEventPropertyHelper(@TMENUITEMONCLICK_R,@TMENUITEMONCLICK_W,'OnClick');
end;
end;

24
Source/uPSR_std.pas
View File

@ -21,8 +21,8 @@ procedure RIRegisterTObject(CL: TPSRuntimeClassImporter);
begin
with cl.Add(TObject) do
begin
RegisterConstructor(@TObject.Create, 'CREATE');
RegisterMethod(@TObject.Free, 'FREE');
RegisterConstructor(@TObject.Create, 'Create');
RegisterMethod(@TObject.Free, 'Free');
end;
end;
@ -30,7 +30,7 @@ procedure RIRegisterTPersistent(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TPersistent) do
begin
RegisterVirtualMethod(@TPersistent.Assign, 'ASSIGN');
RegisterVirtualMethod(@TPersistent.Assign, 'Assign');
end;
end;
@ -50,16 +50,16 @@ procedure RIRegisterTComponent(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TComponent) do
begin
RegisterMethod(@TComponent.FindComponent, 'FINDCOMPONENT');
RegisterVirtualConstructor(@TComponent.Create, 'CREATE');
RegisterPropertyHelper(@TComponentOwnerR, nil, 'OWNER');
RegisterMethod(@TComponent.FindComponent, 'FindComponent');
RegisterVirtualConstructor(@TComponent.Create, 'Create');
RegisterPropertyHelper(@TComponentOwnerR, nil, 'Owner');
RegisterMethod(@TCOMPONENT.DESTROYCOMPONENTS, 'DESTROYCOMPONENTS');
RegisterPropertyHelper(@TCOMPONENTCOMPONENTS_R, nil, 'COMPONENTS');
RegisterPropertyHelper(@TCOMPONENTCOMPONENTCOUNT_R, nil, 'COMPONENTCOUNT');
RegisterPropertyHelper(@TCOMPONENTCOMPONENTINDEX_R, @TCOMPONENTCOMPONENTINDEX_W, 'COMPONENTINDEX');
RegisterPropertyHelper(@TCOMPONENTCOMPONENTSTATE_R, nil, 'COMPONENTSTATE');
RegisterPropertyHelper(@TCOMPONENTDESIGNINFO_R, @TCOMPONENTDESIGNINFO_W, 'DESIGNINFO');
RegisterMethod(@TCOMPONENT.DESTROYCOMPONENTS, 'DestroyComponents');
RegisterPropertyHelper(@TCOMPONENTCOMPONENTS_R, nil, 'Components');
RegisterPropertyHelper(@TCOMPONENTCOMPONENTCOUNT_R, nil, 'ComponentCount');
RegisterPropertyHelper(@TCOMPONENTCOMPONENTINDEX_R, @TCOMPONENTCOMPONENTINDEX_W, 'ComponentIndex');
RegisterPropertyHelper(@TCOMPONENTCOMPONENTSTATE_R, nil, 'ComponentState');
RegisterPropertyHelper(@TCOMPONENTDESIGNINFO_R, @TCOMPONENTDESIGNINFO_W, 'DesignInfo');
end;
end;

70
Source/uPSR_stdctrls.pas
View File

@ -52,7 +52,7 @@ begin
begin
{$IFNDEF PS_MINIVCL}
{$IFNDEF CLX}
RegisterPropertyHelper(@TCUSTOMLABELCANVAS_R, nil, 'CANVAS');
RegisterPropertyHelper(@TCUSTOMLABELCANVAS_R, nil, 'Canvas');
{$ENDIF}
{$ENDIF}
end;
@ -78,22 +78,22 @@ procedure RIRegisterTCUSTOMEDIT(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TCUSTOMEDIT) do
begin
RegisterMethod(@TCUSTOMEDIT.CLEAR, 'CLEAR');
RegisterMethod(@TCUSTOMEDIT.CLEARSELECTION, 'CLEARSELECTION');
RegisterMethod(@TCUSTOMEDIT.SELECTALL, 'SELECTALL');
RegisterPropertyHelper(@TCUSTOMEDITMODIFIED_R, @TCUSTOMEDITMODIFIED_W, 'MODIFIED');
RegisterPropertyHelper(@TCUSTOMEDITSELLENGTH_R, @TCUSTOMEDITSELLENGTH_W, 'SELLENGTH');
RegisterPropertyHelper(@TCUSTOMEDITSELSTART_R, @TCUSTOMEDITSELSTART_W, 'SELSTART');
RegisterPropertyHelper(@TCUSTOMEDITSELTEXT_R, @TCUSTOMEDITSELTEXT_W, 'SELTEXT');
RegisterPropertyHelper(@TCUSTOMEDITTEXT_R, @TCUSTOMEDITTEXT_W, 'TEXT');
RegisterMethod(@TCUSTOMEDIT.CLEAR, 'Clear');
RegisterMethod(@TCUSTOMEDIT.CLEARSELECTION, 'ClearSelection');
RegisterMethod(@TCUSTOMEDIT.SELECTALL, 'SelectAll');
RegisterPropertyHelper(@TCUSTOMEDITMODIFIED_R, @TCUSTOMEDITMODIFIED_W, 'Modified');
RegisterPropertyHelper(@TCUSTOMEDITSELLENGTH_R, @TCUSTOMEDITSELLENGTH_W, 'SelLength');
RegisterPropertyHelper(@TCUSTOMEDITSELSTART_R, @TCUSTOMEDITSELSTART_W, 'SelStart');
RegisterPropertyHelper(@TCUSTOMEDITSELTEXT_R, @TCUSTOMEDITSELTEXT_W, 'SelText');
RegisterPropertyHelper(@TCUSTOMEDITTEXT_R, @TCUSTOMEDITTEXT_W, 'Text');
{$IFNDEF PS_MINIVCL}
RegisterMethod(@TCUSTOMEDIT.COPYTOCLIPBOARD, 'COPYTOCLIPBOARD');
RegisterMethod(@TCUSTOMEDIT.CUTTOCLIPBOARD, 'CUTTOCLIPBOARD');
RegisterMethod(@TCUSTOMEDIT.PASTEFROMCLIPBOARD, 'PASTEFROMCLIPBOARD');
RegisterMethod(@TCUSTOMEDIT.COPYTOCLIPBOARD, 'CopyToClipboard');
RegisterMethod(@TCUSTOMEDIT.CUTTOCLIPBOARD, 'CutToClipboard');
RegisterMethod(@TCUSTOMEDIT.PASTEFROMCLIPBOARD, 'PasteFromClipboard');
{$IFNDEF FPC}
RegisterMethod(@TCUSTOMEDIT.GETSELTEXTBUF, 'GETSELTEXTBUF');
RegisterMethod(@TCUSTOMEDIT.SETSELTEXTBUF, 'SETSELTEXTBUF');
RegisterMethod(@TCUSTOMEDIT.GETSELTEXTBUF, 'GetSelTextBuf');
RegisterMethod(@TCUSTOMEDIT.SETSELTEXTBUF, 'SetSelTextBuf');
{$ENDIF}{FPC}
{$ENDIF}
end;
@ -114,7 +114,7 @@ begin
with Cl.Add(TCUSTOMMEMO) do
begin
{$IFNDEF CLX}
RegisterPropertyHelper(@TCUSTOMMEMOLINES_R, @TCUSTOMMEMOLINES_W, 'LINES');
RegisterPropertyHelper(@TCUSTOMMEMOLINES_R, @TCUSTOMMEMOLINES_W, 'Lines');
{$ENDIF}
end;
end;
@ -125,7 +125,7 @@ begin
with Cl.Add(TMEMO) do
begin
{$IFDEF CLX}
RegisterPropertyHelper(@TCUSTOMMEMOLINES_R, @TCUSTOMMEMOLINES_W, 'LINES');
RegisterPropertyHelper(@TCUSTOMMEMOLINES_R, @TCUSTOMMEMOLINES_W, 'Lines');
{$ENDIF}
end;
end;
@ -150,17 +150,17 @@ procedure RIRegisterTCUSTOMCOMBOBOX(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TCUSTOMCOMBOBOX) do
begin
RegisterPropertyHelper(@TCUSTOMCOMBOBOXDROPPEDDOWN_R, @TCUSTOMCOMBOBOXDROPPEDDOWN_W, 'DROPPEDDOWN');
RegisterPropertyHelper(@TCUSTOMCOMBOBOXITEMS_R, @TCUSTOMCOMBOBOXITEMS_W, 'ITEMS');
RegisterPropertyHelper(@TCUSTOMCOMBOBOXITEMINDEX_R, @TCUSTOMCOMBOBOXITEMINDEX_W, 'ITEMINDEX');
RegisterPropertyHelper(@TCUSTOMCOMBOBOXDROPPEDDOWN_R, @TCUSTOMCOMBOBOXDROPPEDDOWN_W, 'DroppedDown');
RegisterPropertyHelper(@TCUSTOMCOMBOBOXITEMS_R, @TCUSTOMCOMBOBOXITEMS_W, 'Items');
RegisterPropertyHelper(@TCUSTOMCOMBOBOXITEMINDEX_R, @TCUSTOMCOMBOBOXITEMINDEX_W, 'ItemIndex');
{$IFNDEF PS_MINIVCL}
RegisterMethod(@TCUSTOMCOMBOBOX.CLEAR, 'CLEAR');
RegisterMethod(@TCUSTOMCOMBOBOX.SELECTALL, 'SELECTALL');
RegisterPropertyHelper(@TCUSTOMCOMBOBOXCANVAS_R, nil, 'CANVAS');
RegisterPropertyHelper(@TCUSTOMCOMBOBOXSELLENGTH_R, @TCUSTOMCOMBOBOXSELLENGTH_W, 'SELLENGTH');
RegisterPropertyHelper(@TCUSTOMCOMBOBOXSELSTART_R, @TCUSTOMCOMBOBOXSELSTART_W, 'SELSTART');
RegisterPropertyHelper(@TCUSTOMCOMBOBOXSELTEXT_R, @TCUSTOMCOMBOBOXSELTEXT_W, 'SELTEXT');
RegisterMethod(@TCUSTOMCOMBOBOX.CLEAR, 'Clear');
RegisterMethod(@TCUSTOMCOMBOBOX.SELECTALL, 'SelectAll');
RegisterPropertyHelper(@TCUSTOMCOMBOBOXCANVAS_R, nil, 'Canvas');
RegisterPropertyHelper(@TCUSTOMCOMBOBOXSELLENGTH_R, @TCUSTOMCOMBOBOXSELLENGTH_W, 'SelLength');
RegisterPropertyHelper(@TCUSTOMCOMBOBOXSELSTART_R, @TCUSTOMCOMBOBOXSELSTART_W, 'SelStart');
RegisterPropertyHelper(@TCUSTOMCOMBOBOXSELTEXT_R, @TCUSTOMCOMBOBOXSELTEXT_W, 'SelText');
{$ENDIF}
end;
end;
@ -223,17 +223,17 @@ procedure RIRegisterTCUSTOMLISTBOX(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TCUSTOMLISTBOX) do
begin
RegisterPropertyHelper(@TCUSTOMLISTBOXITEMS_R, @TCUSTOMLISTBOXITEMS_W, 'ITEMS');
RegisterPropertyHelper(@TCUSTOMLISTBOXITEMINDEX_R, @TCUSTOMLISTBOXITEMINDEX_W, 'ITEMINDEX');
RegisterPropertyHelper(@TCUSTOMLISTBOXSELCOUNT_R, nil, 'SELCOUNT');
RegisterPropertyHelper(@TCUSTOMLISTBOXSELECTED_R, @TCUSTOMLISTBOXSELECTED_W, 'SELECTED');
RegisterPropertyHelper(@TCUSTOMLISTBOXITEMS_R, @TCUSTOMLISTBOXITEMS_W, 'Items');
RegisterPropertyHelper(@TCUSTOMLISTBOXITEMINDEX_R, @TCUSTOMLISTBOXITEMINDEX_W, 'ItemIndex');
RegisterPropertyHelper(@TCUSTOMLISTBOXSELCOUNT_R, nil, 'SelCount');
RegisterPropertyHelper(@TCUSTOMLISTBOXSELECTED_R, @TCUSTOMLISTBOXSELECTED_W, 'Selected');
{$IFNDEF PS_MINIVCL}
RegisterMethod(@TCUSTOMLISTBOX.CLEAR, 'CLEAR');
RegisterMethod(@TCUSTOMLISTBOX.ITEMATPOS, 'ITEMATPOS');
RegisterMethod(@TCUSTOMLISTBOX.ITEMRECT, 'ITEMRECT');
RegisterPropertyHelper(@TCUSTOMLISTBOXCANVAS_R, nil, 'CANVAS');
RegisterPropertyHelper(@TCUSTOMLISTBOXTOPINDEX_R, @TCUSTOMLISTBOXTOPINDEX_W, 'TOPINDEX');
RegisterMethod(@TCUSTOMLISTBOX.CLEAR, 'Clear');
RegisterMethod(@TCUSTOMLISTBOX.ITEMATPOS, 'ItemAtPos');
RegisterMethod(@TCUSTOMLISTBOX.ITEMRECT, 'ItemRect');
RegisterPropertyHelper(@TCUSTOMLISTBOXCANVAS_R, nil, 'Canvas');
RegisterPropertyHelper(@TCUSTOMLISTBOXTOPINDEX_R, @TCUSTOMLISTBOXTOPINDEX_W, 'TopIndex');
{$ENDIF}
end;
end;
@ -249,7 +249,7 @@ procedure RIRegisterTSCROLLBAR(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add(TSCROLLBAR) do
begin
RegisterMethod(@TSCROLLBAR.SETPARAMS, 'SETPARAMS');
RegisterMethod(@TSCROLLBAR.SETPARAMS, 'SetParams');
end;
end;

122
Source/uPSRuntime.pas
View File

@ -9342,87 +9342,87 @@ begin
RegisterFunctionName('!NOTIFICATIONVARIANTSET', NVarProc, Pointer(0), nil);
RegisterFunctionName('!NOTIFICATIONVARIANTGET', NVarProc, Pointer(1), nil);
RegisterFunctionName('INTTOSTR', DefProc, Pointer(0), nil);
RegisterFunctionName('STRTOINT', DefProc, Pointer(1), nil);
RegisterFunctionName('STRTOINTDEF', DefProc, Pointer(2), nil);
RegisterFunctionName('POS', DefProc, Pointer(3), nil);
RegisterFunctionName('COPY', DefProc, Pointer(4), nil);
RegisterFunctionName('DELETE', DefProc, Pointer(5), nil);
RegisterFunctionName('INSERT', DefProc, Pointer(6), nil);
RegisterFunctionName('IntToStr', DefProc, Pointer(0), nil);
RegisterFunctionName('StrToInt', DefProc, Pointer(1), nil);
RegisterFunctionName('StrToIntDef', DefProc, Pointer(2), nil);
RegisterFunctionName('Pos', DefProc, Pointer(3), nil);
RegisterFunctionName('Copy', DefProc, Pointer(4), nil);
RegisterFunctionName('Delete', DefProc, Pointer(5), nil);
RegisterFunctionName('Insert', DefProc, Pointer(6), nil);
RegisterFunctionName('STRGET', DefProc, Pointer(7), nil);
RegisterFunctionName('STRSET', DefProc, Pointer(8), nil);
RegisterFunctionName('UPPERCASE', DefProc, Pointer(10), nil);
RegisterFunctionName('LOWERCASE', DefProc, Pointer(11), nil);
RegisterFunctionName('TRIM', DefProc, Pointer(12), nil);
RegisterFunctionName('StrGet', DefProc, Pointer(7), nil);
RegisterFunctionName('StrSet', DefProc, Pointer(8), nil);
RegisterFunctionName('UpperCase', DefProc, Pointer(10), nil);
RegisterFunctionName('LowerCase', DefProc, Pointer(11), nil);
RegisterFunctionName('Trim', DefProc, Pointer(12), nil);
RegisterFunctionName('LENGTH',Length_,nil,nil);
RegisterFunctionName('SETLENGTH',SetLength_,nil,nil);
RegisterFunctionName('LOW',Low_,nil,nil);
RegisterFunctionName('HIGH',High_,nil,nil);
RegisterFunctionName('DEC',Dec_,nil,nil);
RegisterFunctionName('INC',Inc_,nil,nil);
RegisterFunctionName('INCLUDE',Include_,nil,nil);
RegisterFunctionName('EXCLUDE',Exclude_,nil,nil);
RegisterFunctionName('Length',Length_,nil,nil);
RegisterFunctionName('SetLength',SetLength_,nil,nil);
RegisterFunctionName('Low',Low_,nil,nil);
RegisterFunctionName('High',High_,nil,nil);
RegisterFunctionName('Dec',Dec_,nil,nil);
RegisterFunctionName('Inc',Inc_,nil,nil);
RegisterFunctionName('Include',Include_,nil,nil);
RegisterFunctionName('Exclude',Exclude_,nil,nil);
RegisterFunctionName('SIN', DefProc, Pointer(15), nil);
RegisterFunctionName('COS', DefProc, Pointer(16), nil);
RegisterFunctionName('SQRT', DefProc, Pointer(17), nil);
RegisterFunctionName('ROUND', DefProc, Pointer(18), nil);
RegisterFunctionName('TRUNC', DefProc, Pointer(19), nil);
RegisterFunctionName('INT', DefProc, Pointer(20), nil);
RegisterFunctionName('PI', DefProc, Pointer(21), nil);
RegisterFunctionName('ABS', DefProc, Pointer(22), nil);
RegisterFunctionName('STRTOFLOAT', DefProc, Pointer(23), nil);
RegisterFunctionName('FLOATTOSTR', DefProc, Pointer(24), nil);
RegisterFunctionName('PADL', DefProc, Pointer(25), nil);
RegisterFunctionName('PADR', DefProc, Pointer(26), nil);
RegisterFunctionName('PADZ', DefProc, Pointer(27), nil);
RegisterFunctionName('REPLICATE', DefProc, Pointer(28), nil);
RegisterFunctionName('STRINGOFCHAR', DefProc, Pointer(28), nil);
RegisterFunctionName('Sin', DefProc, Pointer(15), nil);
RegisterFunctionName('Cos', DefProc, Pointer(16), nil);
RegisterFunctionName('Sqrt', DefProc, Pointer(17), nil);
RegisterFunctionName('Round', DefProc, Pointer(18), nil);
RegisterFunctionName('Trunc', DefProc, Pointer(19), nil);
RegisterFunctionName('Int', DefProc, Pointer(20), nil);
RegisterFunctionName('Pi', DefProc, Pointer(21), nil);
RegisterFunctionName('Abs', DefProc, Pointer(22), nil);
RegisterFunctionName('StrToFloat', DefProc, Pointer(23), nil);
RegisterFunctionName('FloatToStr', DefProc, Pointer(24), nil);
RegisterFunctionName('PadL', DefProc, Pointer(25), nil);
RegisterFunctionName('PadR', DefProc, Pointer(26), nil);
RegisterFunctionName('PadZ', DefProc, Pointer(27), nil);
RegisterFunctionName('Replicate', DefProc, Pointer(28), nil);
RegisterFunctionName('StringOfChar', DefProc, Pointer(28), nil);
RegisterFunctionName('!ASSIGNED', DefProc, Pointer(29), nil);
RegisterDelphiFunction(@Unassigned, 'UNASSIGNED', cdRegister);
RegisterDelphiFunction(@VarIsEmpty, 'VARISEMPTY', cdRegister);
RegisterDelphiFunction(@Unassigned, 'Unassigned', cdRegister);
RegisterDelphiFunction(@VarIsEmpty, 'VarIsEmpty', cdRegister);
{$IFDEF DELPHI7UP}
RegisterDelphiFunction(@VarIsClear, 'VARISCLEAR', cdRegister);
RegisterDelphiFunction(@VarIsClear, 'VarIsClear', cdRegister);
{$ENDIF}
RegisterDelphiFunction(@Null, 'NULL', cdRegister);
RegisterDelphiFunction(@VarIsNull, 'VARISNULL', cdRegister);
RegisterDelphiFunction(@VarType, 'VARTYPE', cdRegister);
RegisterDelphiFunction(@Null, 'Null', cdRegister);
RegisterDelphiFunction(@VarIsNull, 'VarIsNull', cdRegister);
RegisterDelphiFunction(@VarType, 'VarType', cdRegister);
{$IFNDEF PS_NOIDISPATCH}
RegisterDelphiFunction(@IDispatchInvoke, 'IDISPATCHINVOKE', cdregister);
RegisterDelphiFunction(@IDispatchInvoke, 'IdispatchInvoke', cdregister);
{$ENDIF}
RegisterFunctionName('GETARRAYLENGTH', GetArrayLength, nil, nil);
RegisterFunctionName('SETARRAYLENGTH', SetArrayLength, nil, nil);
RegisterFunctionName('GetArrayLength', GetArrayLength, nil, nil);
RegisterFunctionName('SetArrayLength', SetArrayLength, nil, nil);
RegisterFunctionName('RAISELASTEXCEPTION', DefPRoc, Pointer(30), nil);
RegisterFunctionName('RAISEEXCEPTION', DefPRoc, Pointer(31), nil);
RegisterFunctionName('EXCEPTIONTYPE', DefPRoc, Pointer(32), nil);
RegisterFunctionName('EXCEPTIONPARAM', DefPRoc, Pointer(33), nil);
RegisterFunctionName('EXCEPTIONPROC', DefPRoc, Pointer(34), nil);
RegisterFunctionName('EXCEPTIONPOS', DefPRoc, Pointer(35), nil);
RegisterFunctionName('EXCEPTIONTOSTRING', DefProc, Pointer(36), nil);
RegisterFunctionName('ANSIUPPERCASE', DefProc, Pointer(37), nil);
RegisterFunctionName('ANSILOWERCASE', DefProc, Pointer(38), nil);
RegisterFunctionName('RaiseLastException', DefPRoc, Pointer(30), nil);
RegisterFunctionName('RaiseException', DefPRoc, Pointer(31), nil);
RegisterFunctionName('ExceptionType', DefPRoc, Pointer(32), nil);
RegisterFunctionName('ExceptionParam', DefPRoc, Pointer(33), nil);
RegisterFunctionName('ExceptionProc', DefPRoc, Pointer(34), nil);
RegisterFunctionName('ExceptionPos', DefPRoc, Pointer(35), nil);
RegisterFunctionName('ExceptionToString', DefProc, Pointer(36), nil);
RegisterFunctionName('AnsiUpperCase', DefProc, Pointer(37), nil);
RegisterFunctionName('AnsiLowerCase', DefProc, Pointer(38), nil);
{$IFNDEF PS_NOINT64}
RegisterFunctionName('STRTOINT64', DefProc, Pointer(39), nil);
RegisterFunctionName('INT64TOSTR', DefProc, Pointer(40), nil);
RegisterFunctionName('STRTOINT64DEF', DefProc, Pointer(41), nil);
RegisterFunctionName('StrToInt64', DefProc, Pointer(39), nil);
RegisterFunctionName('Int64ToStr', DefProc, Pointer(40), nil);
RegisterFunctionName('StrToInt64Def', DefProc, Pointer(41), nil);
{$ENDIF}
RegisterFunctionName('SIZEOF', DefProc, Pointer(42), nil);
RegisterFunctionName('SizeOf', DefProc, Pointer(42), nil);
{$IFNDEF PS_NOWIDESTRING}
RegisterFunctionName('WSTRGET', DefProc, Pointer(43), nil);
RegisterFunctionName('WSTRSET', DefProc, Pointer(44), nil);
RegisterFunctionName('WStrGet', DefProc, Pointer(43), nil);
RegisterFunctionName('WStrSet', DefProc, Pointer(44), nil);
{$ENDIF}
{$IFNDEF DELPHI6UP}
RegisterDelphiFunction(@_VarArrayGet, 'VARARRAYGET', cdRegister);
RegisterDelphiFunction(@_VarArraySet, 'VARARRAYSET', cdRegister);
RegisterDelphiFunction(@_VarArrayGet, 'VarArrayGet', cdRegister);
RegisterDelphiFunction(@_VarArraySet, 'VarArraySet', cdRegister);
{$ENDIF}
RegisterInterfaceLibraryRuntime(Self);
end;