mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-29 20:32:18 -05:00
39e4249670
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@435 3f818213-9676-44b0-a9b4-5e4c4e03d09d
151 lines
3.4 KiB
ObjectPascal
151 lines
3.4 KiB
ObjectPascal
|
|
unit uPSR_extctrls;
|
|
|
|
{$I PascalScript.inc}
|
|
interface
|
|
uses
|
|
uPSRuntime, uPSUtils;
|
|
|
|
|
|
procedure RIRegister_ExtCtrls(cl: TPSRuntimeClassImporter);
|
|
|
|
procedure RIRegisterTSHAPE(Cl: TPSRuntimeClassImporter);
|
|
procedure RIRegisterTIMAGE(Cl: TPSRuntimeClassImporter);
|
|
procedure RIRegisterTPAINTBOX(Cl: TPSRuntimeClassImporter);
|
|
procedure RIRegisterTBEVEL(Cl: TPSRuntimeClassImporter);
|
|
procedure RIRegisterTTIMER(Cl: TPSRuntimeClassImporter);
|
|
procedure RIRegisterTCUSTOMPANEL(Cl: TPSRuntimeClassImporter);
|
|
procedure RIRegisterTPANEL(Cl: TPSRuntimeClassImporter);
|
|
{$IFNDEF CLX}
|
|
procedure RIRegisterTPAGE(Cl: TPSRuntimeClassImporter);
|
|
procedure RIRegisterTNOTEBOOK(Cl: TPSRuntimeClassImporter);
|
|
{$IFNDEF FPC}procedure RIRegisterTHEADER(Cl: TPSRuntimeClassImporter);{$ENDIF}
|
|
{$ENDIF}
|
|
procedure RIRegisterTCUSTOMRADIOGROUP(Cl: TPSRuntimeClassImporter);
|
|
procedure RIRegisterTRADIOGROUP(Cl: TPSRuntimeClassImporter);
|
|
|
|
implementation
|
|
|
|
uses
|
|
{$IFDEF CLX}
|
|
QExtCtrls, QGraphics;
|
|
{$ELSE}
|
|
ExtCtrls, Graphics;
|
|
{$ENDIF}
|
|
|
|
procedure RIRegisterTSHAPE(Cl: TPSRuntimeClassImporter);
|
|
begin
|
|
with Cl.Add(TSHAPE) do
|
|
begin
|
|
{$IFNDEF PS_MINIVCL}
|
|
RegisterMethod(@TSHAPE.STYLECHANGED, 'STYLECHANGED');
|
|
{$ENDIF}
|
|
end;
|
|
end;
|
|
|
|
procedure TIMAGECANVAS_R(Self: TIMAGE; var T: TCANVAS); begin T := Self.CANVAS; end;
|
|
|
|
procedure RIRegisterTIMAGE(Cl: TPSRuntimeClassImporter);
|
|
begin
|
|
with Cl.Add(TIMAGE) do
|
|
begin
|
|
RegisterPropertyHelper(@TIMAGECANVAS_R, nil, 'CANVAS');
|
|
end;
|
|
end;
|
|
|
|
procedure TPAINTBOXCANVAS_R(Self: TPAINTBOX; var T: TCanvas); begin T := Self.CANVAS; end;
|
|
|
|
procedure RIRegisterTPAINTBOX(Cl: TPSRuntimeClassImporter);
|
|
begin
|
|
with Cl.Add(TPAINTBOX) do
|
|
begin
|
|
RegisterPropertyHelper(@TPAINTBOXCANVAS_R, nil, 'CANVAS');
|
|
end;
|
|
end;
|
|
|
|
procedure RIRegisterTBEVEL(Cl: TPSRuntimeClassImporter);
|
|
begin
|
|
Cl.Add(TBEVEL);
|
|
end;
|
|
|
|
procedure RIRegisterTTIMER(Cl: TPSRuntimeClassImporter);
|
|
begin
|
|
Cl.Add(TTIMER);
|
|
end;
|
|
|
|
procedure RIRegisterTCUSTOMPANEL(Cl: TPSRuntimeClassImporter);
|
|
begin
|
|
Cl.Add(TCUSTOMPANEL);
|
|
end;
|
|
|
|
procedure RIRegisterTPANEL(Cl: TPSRuntimeClassImporter);
|
|
begin
|
|
Cl.Add(TPANEL);
|
|
end;
|
|
{$IFNDEF CLX}
|
|
procedure RIRegisterTPAGE(Cl: TPSRuntimeClassImporter);
|
|
begin
|
|
Cl.Add(TPAGE);
|
|
end;
|
|
|
|
procedure RIRegisterTNOTEBOOK(Cl: TPSRuntimeClassImporter);
|
|
begin
|
|
Cl.Add(TNOTEBOOK);
|
|
end;
|
|
|
|
{$IFNDEF FPC}
|
|
procedure THEADERSECTIONWIDTH_R(Self: THEADER; var T: INTEGER; t1: INTEGER); begin T := Self.SECTIONWIDTH[t1]; end;
|
|
procedure THEADERSECTIONWIDTH_W(Self: THEADER; T: INTEGER; t1: INTEGER); begin Self.SECTIONWIDTH[t1] := T; end;
|
|
|
|
procedure RIRegisterTHEADER(Cl: TPSRuntimeClassImporter);
|
|
begin
|
|
with Cl.Add(THEADER) do
|
|
begin
|
|
RegisterPropertyHelper(@THEADERSECTIONWIDTH_R, @THEADERSECTIONWIDTH_W, 'SECTIONWIDTH');
|
|
end;
|
|
end;
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
procedure RIRegisterTCUSTOMRADIOGROUP(Cl: TPSRuntimeClassImporter);
|
|
begin
|
|
Cl.Add(TCUSTOMRADIOGROUP);
|
|
end;
|
|
|
|
procedure RIRegisterTRADIOGROUP(Cl: TPSRuntimeClassImporter);
|
|
begin
|
|
Cl.Add(TRADIOGROUP);
|
|
end;
|
|
|
|
procedure RIRegister_ExtCtrls(cl: TPSRuntimeClassImporter);
|
|
begin
|
|
{$IFNDEF PS_MINIVCL}
|
|
RIRegisterTSHAPE(Cl);
|
|
RIRegisterTIMAGE(Cl);
|
|
RIRegisterTPAINTBOX(Cl);
|
|
{$ENDIF}
|
|
RIRegisterTBEVEL(Cl);
|
|
{$IFNDEF PS_MINIVCL}
|
|
RIRegisterTTIMER(Cl);
|
|
{$ENDIF}
|
|
RIRegisterTCUSTOMPANEL(Cl);
|
|
{$IFNDEF CLX}
|
|
RIRegisterTPANEL(Cl);
|
|
{$ENDIF}
|
|
{$IFNDEF PS_MINIVCL}
|
|
{$IFNDEF CLX}
|
|
RIRegisterTPAGE(Cl);
|
|
RIRegisterTNOTEBOOK(Cl);
|
|
{$IFNDEF FPC}
|
|
RIRegisterTHEADER(Cl);
|
|
{$ENDIF}{FPC}
|
|
{$ENDIF}
|
|
RIRegisterTCUSTOMRADIOGROUP(Cl);
|
|
RIRegisterTRADIOGROUP(Cl);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
end.
|
|
|
|
|