moparisthebest
/
Simba
mirror of https://github.com/moparisthebest/Simba
1
0
Fork 0
Code Issues Releases Wiki Activity

PascalScript: Added TWinControl.DoubleBuffered.

This commit is contained in:
John P (Dgby714) 2011-08-07 09:42:58 -04:00
parent 058f6bef69
commit e370286e70
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('HELPCONTEXT', 'LONGINT', iptrw);
{$ENDIF}
RegisterProperty('DoubleBuffered', 'Boolean', iptrw);
end;
end;
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 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
begin
with Cl.Add(TWinControl) do
@ -148,6 +151,7 @@ begin
RegisterMethod(@TWINCONTROL.UPDATECONTROLSTATE, 'UPDATECONTROLSTATE');
RegisterPropertyHelper(@TWINCONTROLBRUSH_R, nil, 'BRUSH');
{$ENDIF}
RegisterPropertyHelper(@TWinControl_DoubleBuffered_R, @TWinControl_DoubleBuffered_W, 'DoubleBuffered');
end;
end;