home *** CD-ROM | disk | FTP | other *** search
- unit RGrpImpl;
-
- interface
-
- uses
- Windows, ActiveX, Classes, Controls, Graphics, Menus, Forms, StdCtrls,
- ComServ, StdVCL, AXCtrls, DelC_TLB, ExtCtrls;
-
- type
- TRadioGroupX = class(TActiveXControl, IRadioGroupX)
- private
- { Private declarations }
- FDelphiControl: TRadioGroup;
- FEvents: IRadioGroupXEvents;
- procedure ClickEvent(Sender: TObject);
- protected
- { Protected declarations }
- procedure InitializeControl; override;
- procedure EventSinkChanged(const EventSink: IUnknown); override;
- procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override;
- function Get_Caption: WideString; safecall;
- function Get_Color: TColor; safecall;
- function Get_Columns: Integer; safecall;
- function Get_Ctl3D: WordBool; safecall;
- function Get_Cursor: Smallint; safecall;
- function Get_DragCursor: Smallint; safecall;
- function Get_DragMode: TxDragMode; safecall;
- function Get_Enabled: WordBool; safecall;
- function Get_Font: Font; safecall;
- function Get_ItemIndex: Integer; safecall;
- function Get_Items: IStrings; safecall;
- function Get_ParentColor: WordBool; safecall;
- function Get_ParentCtl3D: WordBool; safecall;
- function Get_Visible: WordBool; safecall;
- procedure AboutBox; safecall;
- procedure Set_Caption(const Value: WideString); safecall;
- procedure Set_Color(Value: TColor); safecall;
- procedure Set_Columns(Value: Integer); safecall;
- procedure Set_Ctl3D(Value: WordBool); safecall;
- procedure Set_Cursor(Value: Smallint); safecall;
- procedure Set_DragCursor(Value: Smallint); safecall;
- procedure Set_DragMode(Value: TxDragMode); safecall;
- procedure Set_Enabled(Value: WordBool); safecall;
- procedure Set_Font(const Value: Font); safecall;
- procedure Set_ItemIndex(Value: Integer); safecall;
- procedure Set_Items(const Value: IStrings); safecall;
- procedure Set_ParentColor(Value: WordBool); safecall;
- procedure Set_ParentCtl3D(Value: WordBool); safecall;
- procedure Set_Visible(Value: WordBool); safecall;
- end;
-
- implementation
-
- uses About22;
-
- { TRadioGroupX }
-
- procedure TRadioGroupX.InitializeControl;
- begin
- FDelphiControl := Control as TRadioGroup;
- FDelphiControl.OnClick := ClickEvent;
- end;
-
- procedure TRadioGroupX.EventSinkChanged(const EventSink: IUnknown);
- begin
- FEvents := EventSink as IRadioGroupXEvents;
- end;
-
- procedure TRadioGroupX.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
- begin
- { Define property pages here. Property pages are defined by calling
- DefinePropertyPage with the class id of the page. For example,
- DefinePropertyPage(Class_RadioGroupXPage); }
- end;
-
- function TRadioGroupX.Get_Caption: WideString;
- begin
- Result := WideString(FDelphiControl.Caption);
- end;
-
- function TRadioGroupX.Get_Color: TColor;
- begin
- Result := FDelphiControl.Color;
- end;
-
- function TRadioGroupX.Get_Columns: Integer;
- begin
- Result := FDelphiControl.Columns;
- end;
-
- function TRadioGroupX.Get_Ctl3D: WordBool;
- begin
- Result := FDelphiControl.Ctl3D;
- end;
-
- function TRadioGroupX.Get_Cursor: Smallint;
- begin
- Result := Smallint(FDelphiControl.Cursor);
- end;
-
- function TRadioGroupX.Get_DragCursor: Smallint;
- begin
- Result := Smallint(FDelphiControl.DragCursor);
- end;
-
- function TRadioGroupX.Get_DragMode: TxDragMode;
- begin
- Result := Ord(FDelphiControl.DragMode);
- end;
-
- function TRadioGroupX.Get_Enabled: WordBool;
- begin
- Result := FDelphiControl.Enabled;
- end;
-
- function TRadioGroupX.Get_Font: Font;
- begin
- GetOleFont(FDelphiControl.Font, Result);
- end;
-
- function TRadioGroupX.Get_ItemIndex: Integer;
- begin
- Result := FDelphiControl.ItemIndex;
- end;
-
- function TRadioGroupX.Get_Items: IStrings;
- begin
- GetOleStrings(FDelphiControl.Items, Result);
- end;
-
- function TRadioGroupX.Get_ParentColor: WordBool;
- begin
- Result := FDelphiControl.ParentColor;
- end;
-
- function TRadioGroupX.Get_ParentCtl3D: WordBool;
- begin
- Result := FDelphiControl.ParentCtl3D;
- end;
-
- function TRadioGroupX.Get_Visible: WordBool;
- begin
- Result := FDelphiControl.Visible;
- end;
-
- procedure TRadioGroupX.AboutBox;
- begin
- ShowRadioGroupXAbout;
- end;
-
- procedure TRadioGroupX.Set_Caption(const Value: WideString);
- begin
- FDelphiControl.Caption := TCaption(Value);
- end;
-
- procedure TRadioGroupX.Set_Color(Value: TColor);
- begin
- FDelphiControl.Color := Value;
- end;
-
- procedure TRadioGroupX.Set_Columns(Value: Integer);
- begin
- FDelphiControl.Columns := Value;
- end;
-
- procedure TRadioGroupX.Set_Ctl3D(Value: WordBool);
- begin
- FDelphiControl.Ctl3D := Value;
- end;
-
- procedure TRadioGroupX.Set_Cursor(Value: Smallint);
- begin
- FDelphiControl.Cursor := TCursor(Value);
- end;
-
- procedure TRadioGroupX.Set_DragCursor(Value: Smallint);
- begin
- FDelphiControl.DragCursor := TCursor(Value);
- end;
-
- procedure TRadioGroupX.Set_DragMode(Value: TxDragMode);
- begin
- FDelphiControl.DragMode := TDragMode(Value);
- end;
-
- procedure TRadioGroupX.Set_Enabled(Value: WordBool);
- begin
- FDelphiControl.Enabled := Value;
- end;
-
- procedure TRadioGroupX.Set_Font(const Value: Font);
- begin
- SetOleFont(FDelphiControl.Font, Value);
- end;
-
- procedure TRadioGroupX.Set_ItemIndex(Value: Integer);
- begin
- FDelphiControl.ItemIndex := Value;
- end;
-
- procedure TRadioGroupX.Set_Items(const Value: IStrings);
- begin
- SetOleStrings(FDelphiControl.Items, Value);
- end;
-
- procedure TRadioGroupX.Set_ParentColor(Value: WordBool);
- begin
- FDelphiControl.ParentColor := Value;
- end;
-
- procedure TRadioGroupX.Set_ParentCtl3D(Value: WordBool);
- begin
- FDelphiControl.ParentCtl3D := Value;
- end;
-
- procedure TRadioGroupX.Set_Visible(Value: WordBool);
- begin
- FDelphiControl.Visible := Value;
- end;
-
- procedure TRadioGroupX.ClickEvent(Sender: TObject);
- begin
- if FEvents <> nil then FEvents.OnClick;
- end;
-
- initialization
- TActiveXControlFactory.Create(
- ComServer,
- TRadioGroupX,
- TRadioGroup,
- Class_RadioGroupX,
- 22,
- '{FA7B852D-9ED7-11D0-AA40-444553540000}',
- 0);
- end.
-