moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-30 21:02:16 -05:00
Code Issues Releases Wiki Activity

Merge branch 'simba-next' of github.com:MerlijnWajer/Simba into simba-next

Browse Source
This commit is contained in:
Merlijn Wajer 2011-09-21 11:59:05 +02:00
commit a364d3b23d
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Units/PascalScript/uPSC_controls.pas
View File

@ -114,6 +114,7 @@ begin
RegisterProperty('BRUSH', 'TBRUSH', iptr); RegisterProperty('BRUSH', 'TBRUSH', iptr);
RegisterProperty('HELPCONTEXT', 'LONGINT', iptrw); RegisterProperty('HELPCONTEXT', 'LONGINT', iptrw);
{$ENDIF} {$ENDIF}
RegisterProperty('DoubleBuffered', 'Boolean', iptrw);
end; end;
end; end;
procedure SIRegisterTGraphicControl(cl: TPSPascalCompiler); // requires TControl procedure SIRegisterTGraphicControl(cl: TPSPascalCompiler); // requires TControl

4
Units/PascalScript/uPSR_controls.pas
View File

@ -114,6 +114,9 @@ procedure TWINCONTROLBRUSH_R(Self: TWINCONTROL; var T: TBRUSH); begin T := Self.
procedure TWINCONTROLCONTROLS_R(Self: TWINCONTROL; var T: TCONTROL; t1: INTEGER); begin t := Self.CONTROLS[t1]; end; procedure TWINCONTROLCONTROLS_R(Self: TWINCONTROL; var T: TCONTROL; t1: INTEGER); begin t := Self.CONTROLS[t1]; end;
procedure TWINCONTROLCONTROLCOUNT_R(Self: TWINCONTROL; var T: INTEGER); begin t := Self.CONTROLCOUNT; end; procedure TWINCONTROLCONTROLCOUNT_R(Self: TWINCONTROL; var T: INTEGER); begin t := Self.CONTROLCOUNT; end;
procedure TWinControl_DoubleBuffered_R(Self: TWinControl; var T: Boolean); begin T := Self.DoubleBuffered; end;
procedure TWinControl_DoubleBuffered_W(Self: TWinControl; T: Boolean); begin Self.DoubleBuffered := T; end;
procedure RIRegisterTWinControl(Cl: TPSRuntimeClassImporter); // requires TControl procedure RIRegisterTWinControl(Cl: TPSRuntimeClassImporter); // requires TControl
begin begin
with Cl.Add(TWinControl) do with Cl.Add(TWinControl) do
@ -148,6 +151,7 @@ begin
RegisterMethod(@TWINCONTROL.UPDATECONTROLSTATE, 'UPDATECONTROLSTATE'); RegisterMethod(@TWINCONTROL.UPDATECONTROLSTATE, 'UPDATECONTROLSTATE');
RegisterPropertyHelper(@TWINCONTROLBRUSH_R, nil, 'BRUSH'); RegisterPropertyHelper(@TWINCONTROLBRUSH_R, nil, 'BRUSH');
{$ENDIF} {$ENDIF}
RegisterPropertyHelper(@TWinControl_DoubleBuffered_R, @TWinControl_DoubleBuffered_W, 'DoubleBuffered');
end; end;
end; end;