home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / ifpiir_controls.pas < prev    next >
Pascal/Delphi Source File  |  2002-07-12  |  7KB  |  163 lines
  1. unit ifpiir_controls;
  2.  
  3. {$I ifps3_def.inc}
  4. interface
  5. uses
  6.   ifps3, ifps3common, ifps3utl, ifpiclassruntime;
  7.  
  8. {
  9.   Will register files from:
  10.     System
  11.     Controls
  12.  
  13.   Register the STD, Classes and Graphics libraries first
  14. }
  15.  
  16.  
  17. procedure RIRegisterTControl(Cl: TIFPSRuntimeClassImporter);
  18. procedure RIRegisterTWinControl(Cl: TIFPSRuntimeClassImporter);
  19. procedure RIRegisterTGraphicControl(cl: TIFPSRuntimeClassImporter);
  20. procedure RIRegisterTCustomControl(cl: TIFPSRuntimeClassImporter);
  21.  
  22. procedure RIRegister_Controls(Cl: TIFPSRuntimeClassImporter);
  23.  
  24. implementation
  25. uses
  26.   Classes{$IFDEF CLX}, QControls, QGraphics{$ELSE}, Controls, Graphics{$ENDIF};
  27.  
  28. procedure TControlAlignR(Self: TControl; var T: Byte); begin T := Byte(Self.Align); end;
  29. procedure TControlAlignW(Self: TControl; T: Byte); begin Self.Align:= TAlign(T); end;
  30.  
  31. procedure TControlClientHeightR(Self: TControl; var T: Longint); begin T := Self.ClientHeight; end;
  32. procedure TControlClientHeightW(Self: TControl; T: Longint); begin Self.ClientHeight := T; end;
  33.  
  34. procedure TControlClientWidthR(Self: TControl; var T: Longint); begin T := Self.ClientWidth; end;
  35. procedure TControlClientWidthW(Self: TControl; T: Longint); begin Self.ClientWidth:= T; end;
  36.  
  37. procedure TControlShowHintR(Self: TControl; var T: Boolean); begin T := Self.ShowHint; end;
  38. procedure TControlShowHintW(Self: TControl; T: Boolean); begin Self.ShowHint:= T; end;
  39.  
  40. procedure TControlVisibleR(Self: TControl; var T: Boolean); begin T := Self.Visible; end;
  41. procedure TControlVisibleW(Self: TControl; T: Boolean); begin Self.Visible:= T; end;
  42.  
  43. procedure TControlParentR(Self: TControl; var T: TWinControl); begin T := Self.Parent; end;
  44. procedure TControlParentW(Self: TControl; T: TWinControl); begin Self.Parent:= T; end;
  45.  
  46.  
  47. procedure TCONTROLSHOWHINT_W(Self: TCONTROL; T: BOOLEAN); begin Self.SHOWHINT := T; end;
  48. procedure TCONTROLSHOWHINT_R(Self: TCONTROL; var T: BOOLEAN); begin T := Self.SHOWHINT; end;
  49. procedure TCONTROLENABLED_W(Self: TCONTROL; T: BOOLEAN); begin Self.ENABLED := T; end;
  50. procedure TCONTROLENABLED_R(Self: TCONTROL; var T: BOOLEAN); begin T := Self.ENABLED; end;
  51.  
  52. procedure RIRegisterTControl(Cl: TIFPSRuntimeClassImporter);
  53. begin
  54.   with Cl.Add(TControl) do
  55.   begin
  56.     RegisterVirtualConstructor(@TControl.Create, 'CREATE');
  57.     RegisterMethod(@TControl.BRingToFront, 'BRINGTOFRONT');
  58.     RegisterMethod(@TControl.Hide, 'HIDE');
  59.     RegisterVirtualMethod(@TControl.Invalidate, 'INVALIDATE');
  60.     RegisterMethod(@TControl.Refresh, 'REFRESH');
  61.     RegisterVirtualMethod(@TControl.Repaint, 'REPAINT');
  62.     RegisterMethod(@TControl.SendToBack, 'SENDTOBACK');
  63.     RegisterMethod(@TControl.Show, 'SHOW');
  64.     RegisterMethod(@TControl.Update, 'UPDATE');
  65.     RegisterVirtualMethod(@TControl.SetBounds, 'SETBOUNDS');
  66.     RegisterPropertyHelper(@TControlAlignR, @TControlAlignW, 'ALIGN');
  67.     RegisterPropertyHelper(@TControlClientHeightR, @TControlClientHeightW, 'CLIENTHEIGHT');
  68.     RegisterPropertyHelper(@TControlClientWidthR, @TControlClientWidthW, 'CLIENTWIDTH');
  69.     RegisterPropertyHelper(@TControlShowHintR, @TControlShowHintW, 'SHOWHINT');
  70.     RegisterPropertyHelper(@TControlVisibleR, @TControlVisibleW, 'VISIBLE');
  71.     RegisterPropertyHelper(@TCONTROLENABLED_R, @TCONTROLENABLED_W, 'ENABLED');
  72.  
  73.     RegisterPropertyHelper(@TControlParentR, @TControlParentW, 'PARENT');
  74.  
  75.     {$IFNDEF MINIVCL}
  76.     RegisterMethod(@TControl.Dragging, 'DRAGGING');
  77.     RegisterMethod(@TControl.HasParent, 'HASPARENT');
  78.     RegisterMethod(@TCONTROL.BEGINDRAG, 'BEGINDRAG');
  79.     RegisterMethod(@TCONTROL.CLIENTTOSCREEN, 'CLIENTTOSCREEN');
  80.     RegisterMethod(@TCONTROL.DRAGGING, 'DRAGGING');
  81.     RegisterMethod(@TCONTROL.ENDDRAG, 'ENDDRAG');
  82.     {$IFNDEF CLX}
  83.     RegisterMethod(@TCONTROL.GETTEXTBUF, 'GETTEXTBUF');
  84.     RegisterMethod(@TCONTROL.GETTEXTLEN, 'GETTEXTLEN');
  85.     RegisterMethod(@TCONTROL.PERFORM, 'PERFORM');
  86.     RegisterMethod(@TCONTROL.SETTEXTBUF, 'SETTEXTBUF');
  87.     {$ENDIF}
  88.     RegisterMethod(@TCONTROL.SCREENTOCLIENT, 'SCREENTOCLIENT');
  89.     {$ENDIF}
  90.   end;
  91. end;
  92. {$IFNDEF CLX}
  93. procedure TWinControlHandleR(Self: TWinControl; var T: Longint); begin T := Self.Handle; end;
  94. {$ENDIF}
  95. procedure TWinControlShowingR(Self: TWinControl; var T: Boolean); begin T := Self.Showing; end;
  96.  
  97.  
  98. procedure TWinControlTabOrderR(Self: TWinControl; var T: Longint); begin T := Self.TabOrder; end;
  99. procedure TWinControlTabOrderW(Self: TWinControl; T: Longint); begin Self.TabOrder:= T; end;
  100.  
  101. procedure TWinControlTabStopR(Self: TWinControl; var T: Boolean); begin T := Self.TabStop; end;
  102. procedure TWinControlTabStopW(Self: TWinControl; T: Boolean); begin Self.TabStop:= T; end;
  103. procedure TWINCONTROLBRUSH_R(Self: TWINCONTROL; var T: TBRUSH); begin T := Self.BRUSH; end;
  104. procedure TWINCONTROLCONTROLS_R(Self: TWINCONTROL; var T: TCONTROL; t1: INTEGER); begin t := Self.CONTROLS[t1]; end;
  105. procedure TWINCONTROLCONTROLCOUNT_R(Self: TWINCONTROL; var T: INTEGER); begin t := Self.CONTROLCOUNT; end;
  106.  
  107. procedure RIRegisterTWinControl(Cl: TIFPSRuntimeClassImporter); // requires TControl
  108. begin
  109.   with Cl.Add(TWinControl) do
  110.   begin
  111.     {$IFNDEF MINIVCL}
  112.     RegisterMethod(@TWinControl.HandleAllocated, 'HANDLEALLOCATED');
  113.     RegisterMethod(@TWinControl.HandleNeeded, 'HANDLENEEDED');
  114.     RegisterMethod(@TWinControl.EnableAlign, 'ENABLEALIGN');
  115.     RegisterMethod(@TWinControl.RemoveControl, 'REMOVECONTROL');
  116.     RegisterMethod(@TWinControl.InsertControl, 'INSERTCONTROL');
  117.     RegisterMethod(@TWinControl.Realign, 'REALIGN');
  118.     RegisterMethod(@TWinControl.ScaleBy, 'SCALEBY');
  119.     RegisterMethod(@TWinControl.ScrollBy, 'SCROLLBY');
  120.     RegisterVirtualMethod(@TWinControl.SetFocus, 'SETFOCUS');
  121.     {$IFNDEF CLX}
  122.     RegisterPropertyHelper(@TWinControlHandleR, nil, 'HANDLE');
  123.     {$ENDIF}
  124.     RegisterPropertyHelper(@TWinControlShowingR, nil, 'SHOWING');
  125.     RegisterPropertyHelper(@TWinControlTabOrderR, @TWinControlTabOrderW, 'TABORDER');
  126.     RegisterPropertyHelper(@TWinControlTabStopR, @TWinControlTabStopW, 'TABSTOP');
  127.     RegisterMethod(@TWINCONTROL.CANFOCUS, 'CANFOCUS');
  128.     RegisterMethod(@TWINCONTROL.CONTAINSCONTROL, 'CONTAINSCONTROL');
  129.     RegisterMethod(@TWINCONTROL.DISABLEALIGN, 'DISABLEALIGN');
  130.     RegisterMethod(@TWINCONTROL.FOCUSED, 'FOCUSED');
  131.     {$IFNDEF CLX}
  132.     RegisterMethod(@TWINCONTROL.PAINTTO, 'PAINTTO');
  133.     {$ENDIF}
  134.     RegisterMethod(@TWINCONTROL.UPDATECONTROLSTATE, 'UPDATECONTROLSTATE');
  135.     RegisterPropertyHelper(@TWINCONTROLBRUSH_R, nil, 'BRUSH');
  136.     RegisterPropertyHelper(@TWINCONTROLCONTROLS_R, nil, 'CONTROLS');
  137.     RegisterPropertyHelper(@TWINCONTROLCONTROLCOUNT_R, nil, 'CONTROLCOUNT');
  138.     {$ENDIF}
  139.   end;
  140. end;
  141.  
  142. procedure RIRegisterTGraphicControl(cl: TIFPSRuntimeClassImporter); // requires TControl
  143. begin
  144.   Cl.Add(TGraphicControl);
  145. end;
  146. procedure RIRegisterTCustomControl(cl: TIFPSRuntimeClassImporter); // requires TControl
  147. begin
  148.   Cl.Add(TCustomControl);
  149. end;
  150.  
  151. procedure RIRegister_Controls(Cl: TIFPSRuntimeClassImporter);
  152. begin
  153.   RIRegisterTControl(Cl);
  154.   RIRegisterTWinControl(Cl);
  155.   RIRegisterTGraphicControl(cl);
  156.   RIRegisterTCustomControl(cl);
  157. end;
  158.  
  159. // MiniVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
  160.  
  161.  
  162. end.
  163.