comexform.pas

类似QQ的源码程序

unit COMExForm;
{
    Copyright 2006, Peter Millard

    This file is part of Exodus.

    Exodus is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    Exodus is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with Exodus; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
}


{-----------------------------------------------------------------------------}
{-----------------------------------------------------------------------------}
{ This is autogenerated code using the COMGuiGenerator. DO NOT MODIFY BY HAND }
{-----------------------------------------------------------------------------}
{-----------------------------------------------------------------------------}


{$WARN SYMBOL_PLATFORM OFF}

interface
uses
    ActiveX,Classes,COMExFont,COMExMainMenu,COMExMenuItem,COMExPopupMenu,ComObj,Controls,Exodus_TLB,Forms,Graphics,StdCtrls,StdVcl,TntMenus;

type
    TExControlForm = class(TAutoObject, IExodusControl, IExodusControlForm)
    public
        constructor Create(control: TForm);

    private
        _control: TForm;

    protected
        function Get_ControlType: ExodusControlTypes; safecall;
        function Get_Name: Widestring; safecall;
        procedure Set_Name(const Value: Widestring); safecall;
        function Get_Tag: Integer; safecall;
        procedure Set_Tag(Value: Integer); safecall;
        function Get_Left: Integer; safecall;
        procedure Set_Left(Value: Integer); safecall;
        function Get_Top: Integer; safecall;
        procedure Set_Top(Value: Integer); safecall;
        function Get_Width: Integer; safecall;
        procedure Set_Width(Value: Integer); safecall;
        function Get_Height: Integer; safecall;
        procedure Set_Height(Value: Integer); safecall;
        function Get_Cursor: Integer; safecall;
        procedure Set_Cursor(Value: Integer); safecall;
        function Get_Hint: Widestring; safecall;
        procedure Set_Hint(const Value: Widestring); safecall;
        function Get_HelpType: Integer; safecall;
        procedure Set_HelpType(Value: Integer); safecall;
        function Get_HelpKeyword: Widestring; safecall;
        procedure Set_HelpKeyword(const Value: Widestring); safecall;
        function Get_HelpContext: Integer; safecall;
        procedure Set_HelpContext(Value: Integer); safecall;
        function Get_Align: Integer; safecall;
        procedure Set_Align(Value: Integer); safecall;
        function Get_AlphaBlend: Integer; safecall;
        procedure Set_AlphaBlend(Value: Integer); safecall;
        function Get_AlphaBlendValue: Integer; safecall;
        procedure Set_AlphaBlendValue(Value: Integer); safecall;
        function Get_AutoScroll: Integer; safecall;
        procedure Set_AutoScroll(Value: Integer); safecall;
        function Get_AutoSize: Integer; safecall;
        procedure Set_AutoSize(Value: Integer); safecall;
        function Get_BiDiMode: Integer; safecall;
        procedure Set_BiDiMode(Value: Integer); safecall;
        function Get_BorderStyle: Integer; safecall;
        procedure Set_BorderStyle(Value: Integer); safecall;
        function Get_BorderWidth: Integer; safecall;
        procedure Set_BorderWidth(Value: Integer); safecall;
        function Get_Caption: Widestring; safecall;
        procedure Set_Caption(const Value: Widestring); safecall;
        function Get_ClientHeight: Integer; safecall;
        procedure Set_ClientHeight(Value: Integer); safecall;
        function Get_ClientWidth: Integer; safecall;
        procedure Set_ClientWidth(Value: Integer); safecall;
        function Get_Color: Integer; safecall;
        procedure Set_Color(Value: Integer); safecall;
        function Get_TransparentColor: Integer; safecall;
        procedure Set_TransparentColor(Value: Integer); safecall;
        function Get_TransparentColorValue: Integer; safecall;
        procedure Set_TransparentColorValue(Value: Integer); safecall;
        function Get_Ctl3D: Integer; safecall;
        procedure Set_Ctl3D(Value: Integer); safecall;
        function Get_UseDockManager: Integer; safecall;
        procedure Set_UseDockManager(Value: Integer); safecall;
        function Get_DefaultMonitor: Integer; safecall;
        procedure Set_DefaultMonitor(Value: Integer); safecall;
        function Get_DockSite: Integer; safecall;
        procedure Set_DockSite(Value: Integer); safecall;
        function Get_DragKind: Integer; safecall;
        procedure Set_DragKind(Value: Integer); safecall;
        function Get_DragMode: Integer; safecall;
        procedure Set_DragMode(Value: Integer); safecall;
        function Get_Enabled: Integer; safecall;
        procedure Set_Enabled(Value: Integer); safecall;
        function Get_ParentFont: Integer; safecall;
        procedure Set_ParentFont(Value: Integer); safecall;
        function Get_Font: IExodusControlFont; safecall;
        function Get_FormStyle: Integer; safecall;
        procedure Set_FormStyle(Value: Integer); safecall;
        function Get_HelpFile: Widestring; safecall;
        procedure Set_HelpFile(const Value: Widestring); safecall;
        function Get_KeyPreview: Integer; safecall;
        procedure Set_KeyPreview(Value: Integer); safecall;
        function Get_Menu: IExodusControlMainMenu; safecall;
        function Get_OldCreateOrder: Integer; safecall;
        procedure Set_OldCreateOrder(Value: Integer); safecall;
        function Get_ObjectMenuItemCount: integer; safecall;
        function Get_ObjectMenuItem(Index: integer): IExodusControlMenuItem; safecall;
        function Get_ParentBiDiMode: Integer; safecall;
        procedure Set_ParentBiDiMode(Value: Integer); safecall;
        function Get_PixelsPerInch: Integer; safecall;
        procedure Set_PixelsPerInch(Value: Integer); safecall;
        function Get_PopupMenu: IExodusControlPopupMenu; safecall;
        function Get_Position: Integer; safecall;
        procedure Set_Position(Value: Integer); safecall;
        function Get_PrintScale: Integer; safecall;
        procedure Set_PrintScale(Value: Integer); safecall;
        function Get_Scaled: Integer; safecall;
        procedure Set_Scaled(Value: Integer); safecall;
        function Get_ScreenSnap: Integer; safecall;
        procedure Set_ScreenSnap(Value: Integer); safecall;
        function Get_ShowHint: Integer; safecall;
        procedure Set_ShowHint(Value: Integer); safecall;
        function Get_SnapBuffer: Integer; safecall;
        procedure Set_SnapBuffer(Value: Integer); safecall;
        function Get_Visible: Integer; safecall;
        procedure Set_Visible(Value: Integer); safecall;
        function Get_WindowState: Integer; safecall;
        procedure Set_WindowState(Value: Integer); safecall;
        function Get_WindowMenuCount: integer; safecall;
        function Get_WindowMenu(Index: integer): IExodusControlMenuItem; safecall;
    end;


{---------------------------------------}
{---------------------------------------}
{---------------------------------------}
implementation


constructor TExControlForm.Create(control: TForm);
begin
     _control := control; 
end;

function TExControlForm.Get_ControlType: ExodusControlTypes;
begin
    Result := ExodusControlForm;
end;

function TExControlForm.Get_Name: Widestring;
begin
      Result := _control.Name;
end;

procedure TExControlForm.Set_Name(const Value: Widestring);
begin
      _control.Name := Value;
end;

function TExControlForm.Get_Tag: Integer;
begin
      Result := _control.Tag;
end;

procedure TExControlForm.Set_Tag(Value: Integer);
begin
      _control.Tag := Value;
end;

function TExControlForm.Get_Left: Integer;
begin
      Result := _control.Left;
end;

procedure TExControlForm.Set_Left(Value: Integer);
begin
      _control.Left := Value;
end;

function TExControlForm.Get_Top: Integer;
begin
      Result := _control.Top;
end;

procedure TExControlForm.Set_Top(Value: Integer);
begin
      _control.Top := Value;
end;

function TExControlForm.Get_Width: Integer;
begin
      Result := _control.Width;
end;

procedure TExControlForm.Set_Width(Value: Integer);
begin
      _control.Width := Value;
end;

function TExControlForm.Get_Height: Integer;
begin
      Result := _control.Height;
end;

procedure TExControlForm.Set_Height(Value: Integer);
begin
      _control.Height := Value;
end;

function TExControlForm.Get_Cursor: Integer;
begin
      Result := _control.Cursor;
end;

procedure TExControlForm.Set_Cursor(Value: Integer);
begin
      _control.Cursor := Value;
end;

function TExControlForm.Get_Hint: Widestring;
begin
      Result := _control.Hint;
end;

procedure TExControlForm.Set_Hint(const Value: Widestring);
begin
      _control.Hint := Value;
end;

function TExControlForm.Get_HelpType: Integer;
begin
    if (_control.HelpType = htKeyword) then Result := 0;
    if (_control.HelpType = htContext) then Result := 1;
end;

procedure TExControlForm.Set_HelpType(Value: Integer);
begin
   if (Value = 0) then _control.HelpType := htKeyword;
   if (Value = 1) then _control.HelpType := htContext;
end;

function TExControlForm.Get_HelpKeyword: Widestring;
begin
      Result := _control.HelpKeyword;
end;

procedure TExControlForm.Set_HelpKeyword(const Value: Widestring);
begin
      _control.HelpKeyword := Value;
end;

function TExControlForm.Get_HelpContext: Integer;
begin
      Result := _control.HelpContext;
end;

procedure TExControlForm.Set_HelpContext(Value: Integer);
begin
      _control.HelpContext := Value;
end;

function TExControlForm.Get_Align: Integer;
begin
    if (_control.Align = alNone) then Result := 0;
    if (_control.Align = alTop) then Result := 1;
    if (_control.Align = alBottom) then Result := 2;
    if (_control.Align = alLeft) then Result := 3;
    if (_control.Align = alRight) then Result := 4;
    if (_control.Align = alClient) then Result := 5;
    if (_control.Align = alCustom) then Result := 6;
end;

procedure TExControlForm.Set_Align(Value: Integer);
begin
   if (Value = 0) then _control.Align := alNone;
   if (Value = 1) then _control.Align := alTop;
   if (Value = 2) then _control.Align := alBottom;
   if (Value = 3) then _control.Align := alLeft;
   if (Value = 4) then _control.Align := alRight;
   if (Value = 5) then _control.Align := alClient;
   if (Value = 6) then _control.Align := alCustom;
end;

function TExControlForm.Get_AlphaBlend: Integer;
begin
    if (_control.AlphaBlend = False) then Result := 0;
    if (_control.AlphaBlend = True) then Result := 1;
end;

procedure TExControlForm.Set_AlphaBlend(Value: Integer);
begin
   if (Value = 0) then _control.AlphaBlend := False;
   if (Value = 1) then _control.AlphaBlend := True;
end;

function TExControlForm.Get_AlphaBlendValue: Integer;
begin
      Result := _control.AlphaBlendValue;
end;

procedure TExControlForm.Set_AlphaBlendValue(Value: Integer);
begin
      _control.AlphaBlendValue := Value;
end;

function TExControlForm.Get_AutoScroll: Integer;
begin
    if (_control.AutoScroll = False) then Result := 0;
    if (_control.AutoScroll = True) then Result := 1;
end;

procedure TExControlForm.Set_AutoScroll(Value: Integer);
begin
   if (Value = 0) then _control.AutoScroll := False;
   if (Value = 1) then _control.AutoScroll := True;
end;

function TExControlForm.Get_AutoSize: Integer;
begin
    if (_control.AutoSize = False) then Result := 0;
    if (_control.AutoSize = True) then Result := 1;
end;

procedure TExControlForm.Set_AutoSize(Value: Integer);
begin
   if (Value = 0) then _control.AutoSize := False;
   if (Value = 1) then _control.AutoSize := True;
end;

function TExControlForm.Get_BiDiMode: Integer;
begin
    if (_control.BiDiMode = bdLeftToRight) then Result := 0;
    if (_control.BiDiMode = bdRightToLeft) then Result := 1;
    if (_control.BiDiMode = bdRightToLeftNoAlign) then Result := 2;
    if (_control.BiDiMode = bdRightToLeftReadingOnly) then Result := 3;
end;

procedure TExControlForm.Set_BiDiMode(Value: Integer);
begin
   if (Value = 0) then _control.BiDiMode := bdLeftToRight;
   if (Value = 1) then _control.BiDiMode := bdRightToLeft;
   if (Value = 2) then _control.BiDiMode := bdRightToLeftNoAlign;
   if (Value = 3) then _control.BiDiMode := bdRightToLeftReadingOnly;
end;

function TExControlForm.Get_BorderStyle: Integer;
begin
    if (_control.BorderStyle = bsNone) then Result := 0;
    if (_control.BorderStyle = bsSingle) then Result := 1;
    if (_control.BorderStyle = bsSizeable) then Result := 2;
    if (_control.BorderStyle = bsDialog) then Result := 3;
    if (_control.BorderStyle = bsToolWindow) then Result := 4;
    if (_control.BorderStyle = bsSizeToolWin) then Result := 5;
end;

procedure TExControlForm.Set_BorderStyle(Value: Integer);
begin
   if (Value = 0) then _control.BorderStyle := bsNone;
   if (Value = 1) then _control.BorderStyle := bsSingle;
   if (Value = 2) then _control.BorderStyle := bsSizeable;
   if (Value = 3) then _control.BorderStyle := bsDialog;
   if (Value = 4) then _control.BorderStyle := bsToolWindow;
   if (Value = 5) then _control.BorderStyle := bsSizeToolWin;
end;

function TExControlForm.Get_BorderWidth: Integer;
begin
      Result := _control.BorderWidth;
end;

procedure TExControlForm.Set_BorderWidth(Value: Integer);
begin
      _control.BorderWidth := Value;
end;