home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / DingX / DingButtonImpl1.pas < prev    next >
Pascal/Delphi Source File  |  1998-05-14  |  5KB  |  189 lines
  1. unit DingButtonImpl1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, ActiveX, Classes, Controls, Graphics, Menus, Forms, StdCtrls,
  7.   ComServ, StdVCL, AXCtrls, DingButtonXControl_TLB, DingButton;
  8.  
  9. type
  10.   TDingButtonX = class(TActiveXControl, IDingButtonX)
  11.   private
  12.     { Private declarations }
  13.     FDelphiControl: TDingButton;
  14.     FEvents: IDingButtonXEvents;
  15.   protected
  16.     { Protected declarations }
  17.     procedure InitializeControl; override;
  18.     procedure EventSinkChanged(const EventSink: IUnknown); override;
  19.     procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override;
  20.     function Get_Cancel: WordBool; safecall;
  21.     function Get_Caption: WideString; safecall;
  22.     function Get_Cursor: Smallint; safecall;
  23.     function Get_Default: WordBool; safecall;
  24.     function Get_DragCursor: Smallint; safecall;
  25.     function Get_DragMode: TxDragMode; safecall;
  26.     function Get_Enabled: WordBool; safecall;
  27.     function Get_Font: Font; safecall;
  28.     function Get_Visible: WordBool; safecall;
  29.     procedure AboutBox; safecall;
  30.     procedure Click; safecall;
  31.     procedure Set_Cancel(Value: WordBool); safecall;
  32.     procedure Set_Caption(const Value: WideString); safecall;
  33.     procedure Set_Cursor(Value: Smallint); safecall;
  34.     procedure Set_Default(Value: WordBool); safecall;
  35.     procedure Set_DragCursor(Value: Smallint); safecall;
  36.     procedure Set_DragMode(Value: TxDragMode); safecall;
  37.     procedure Set_Enabled(Value: WordBool); safecall;
  38.     procedure Set_Font(const Value: Font); safecall;
  39.     procedure Set_Visible(Value: WordBool); safecall;
  40.     function IDingButtonX.Get_Font = IDingButtonX_Get_Font;
  41.     procedure IDingButtonX.Set_Font = IDingButtonX_Set_Font;
  42.     function IDingButtonX_Get_Font: IFontDisp; safecall;
  43.     procedure IDingButtonX_Set_Font(const Value: IFontDisp); safecall;
  44.   end;
  45.  
  46. implementation
  47.  
  48. uses About1;
  49.  
  50. { TDingButtonX }
  51.  
  52. procedure TDingButtonX.InitializeControl;
  53. begin
  54.   FDelphiControl := Control as TDingButton;
  55. end;
  56.  
  57. procedure TDingButtonX.EventSinkChanged(const EventSink: IUnknown);
  58. begin
  59.   FEvents := EventSink as IDingButtonXEvents;
  60. end;
  61.  
  62. procedure TDingButtonX.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
  63. begin
  64.   { Define property pages here.  Property pages are defined by calling
  65.     DefinePropertyPage with the class id of the page.  For example,
  66.       DefinePropertyPage(Class_DingButtonXPage); }
  67. end;
  68.  
  69. function TDingButtonX.Get_Cancel: WordBool;
  70. begin
  71.   Result := FDelphiControl.Cancel;
  72. end;
  73.  
  74. function TDingButtonX.Get_Caption: WideString;
  75. begin
  76.   Result := WideString(FDelphiControl.Caption);
  77. end;
  78.  
  79. function TDingButtonX.Get_Cursor: Smallint;
  80. begin
  81.   Result := Smallint(FDelphiControl.Cursor);
  82. end;
  83.  
  84. function TDingButtonX.Get_Default: WordBool;
  85. begin
  86.   Result := FDelphiControl.Default;
  87. end;
  88.  
  89. function TDingButtonX.Get_DragCursor: Smallint;
  90. begin
  91.   Result := Smallint(FDelphiControl.DragCursor);
  92. end;
  93.  
  94. function TDingButtonX.Get_DragMode: TxDragMode;
  95. begin
  96.   Result := Ord(FDelphiControl.DragMode);
  97. end;
  98.  
  99. function TDingButtonX.Get_Enabled: WordBool;
  100. begin
  101.   Result := FDelphiControl.Enabled;
  102. end;
  103.  
  104. function TDingButtonX.Get_Font: Font;
  105. begin
  106.   GetOleFont(FDelphiControl.Font, Result);
  107. end;
  108.  
  109. function TDingButtonX.Get_Visible: WordBool;
  110. begin
  111.   Result := FDelphiControl.Visible;
  112. end;
  113.  
  114. procedure TDingButtonX.AboutBox;
  115. begin
  116.   ShowDingButtonXAbout;
  117. end;
  118.  
  119. procedure TDingButtonX.Click;
  120. begin
  121.   FDelphiControl.Click;
  122. end;
  123.  
  124. procedure TDingButtonX.Set_Cancel(Value: WordBool);
  125. begin
  126.   FDelphiControl.Cancel := Value;
  127. end;
  128.  
  129. procedure TDingButtonX.Set_Caption(const Value: WideString);
  130. begin
  131.   FDelphiControl.Caption := TCaption(Value);
  132. end;
  133.  
  134. procedure TDingButtonX.Set_Cursor(Value: Smallint);
  135. begin
  136.   FDelphiControl.Cursor := TCursor(Value);
  137. end;
  138.  
  139. procedure TDingButtonX.Set_Default(Value: WordBool);
  140. begin
  141.   FDelphiControl.Default := Value;
  142. end;
  143.  
  144. procedure TDingButtonX.Set_DragCursor(Value: Smallint);
  145. begin
  146.   FDelphiControl.DragCursor := TCursor(Value);
  147. end;
  148.  
  149. procedure TDingButtonX.Set_DragMode(Value: TxDragMode);
  150. begin
  151.   FDelphiControl.DragMode := TDragMode(Value);
  152. end;
  153.  
  154. procedure TDingButtonX.Set_Enabled(Value: WordBool);
  155. begin
  156.   FDelphiControl.Enabled := Value;
  157. end;
  158.  
  159. procedure TDingButtonX.Set_Font(const Value: Font);
  160. begin
  161.   SetOleFont(FDelphiControl.Font, Value);
  162. end;
  163.  
  164. procedure TDingButtonX.Set_Visible(Value: WordBool);
  165. begin
  166.   FDelphiControl.Visible := Value;
  167. end;
  168.  
  169. function TDingButtonX.IDingButtonX_Get_Font: IFontDisp;
  170. begin
  171.  
  172. end;
  173.  
  174. procedure TDingButtonX.IDingButtonX_Set_Font(const Value: IFontDisp);
  175. begin
  176.  
  177. end;
  178.  
  179. initialization
  180.   TActiveXControlFactory.Create(
  181.     ComServer,
  182.     TDingButtonX,
  183.     TDingButton,
  184.     Class_DingButtonX,
  185.     1,
  186.     '',
  187.     0);
  188. end.
  189.