moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-02 13:52:18 -05:00
Code Issues Releases Wiki Activity

Merge pull request #33 from Dgby714/DoubleBuffered

Browse Source 
PascalScript: TWinControl Update.
This commit is contained in:
Merlijn Wajer 2011-08-14 11:11:12 -07:00
commit 7df665d11f
4 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Install/windows/Setup.iss
View File

@ -44,7 +44,7 @@ Source: "C:\Simba\Extensions\paster.sex"; DestDir: "{app}\Extensions"; Flags: ig
Source: "C:\Simba\Extensions\CRov.sex"; DestDir: "{app}\Extensions"; Flags: ignoreversion Source: "C:\Simba\Extensions\CRov.sex"; DestDir: "{app}\Extensions"; Flags: ignoreversion
Source: "C:\Simba\Extensions\Updater.sei"; DestDir: "{app}\Extensions"; Flags: ignoreversion Source: "C:\Simba\Extensions\Updater.sei"; DestDir: "{app}\Extensions"; Flags: ignoreversion
Source: "C:\Simba\Includes\mml.simba"; DestDir: "{app}\Includes"; Flags: ignoreversion Source: "C:\Simba\Includes\mml.simba"; DestDir: "{app}\Includes"; Flags: ignoreversion
Source: "C:\Simba\settings.xml"; DestDir: "{app}\"; Flags: ignoreversion ; Source: "C:\Simba\settings.xml"; DestDir: "{app}\"; Flags: ignoreversion
; XXX Make sure to use a MINIMAL settings.xml XXX ; XXX Make sure to use a MINIMAL settings.xml XXX
; Source: "C:\Simba\Fonts\*"; DestDir: "{app}\Fonts"; Flags: ignoreversion recursesubdirs createallsubdirs ; Source: "C:\Simba\Fonts\*"; DestDir: "{app}\Fonts"; Flags: ignoreversion recursesubdirs createallsubdirs

2
Projects/Simba/simbaunit.pas
View File

@ -62,7 +62,7 @@ uses
settings, updater; settings, updater;
const const
SimbaVersion = 971; SimbaVersion = 972;
interp_PS = 0; //PascalScript interp_PS = 0; //PascalScript
interp_RT = 1; //RUTIS interp_RT = 1; //RUTIS

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;