comexcombobox.pas

类似QQ的源码程序

unit COMExComboBox;
{
    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,COMExPopupMenu,ComObj,Controls,Exodus_TLB,Forms,Graphics,StdCtrls,StdVcl,TntMenus,TntStdCtrls;

type
    TExControlComboBox = class(TAutoObject, IExodusControl, IExodusControlComboBox)
    public
        constructor Create(control: TTntComboBox);

    private
        _control: TTntComboBox;

    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_AutoComplete: Integer; safecall;
        procedure Set_AutoComplete(Value: Integer); safecall;
        function Get_AutoDropDown: Integer; safecall;
        procedure Set_AutoDropDown(Value: Integer); safecall;
        function Get_AutoCloseUp: Integer; safecall;
        procedure Set_AutoCloseUp(Value: Integer); safecall;
        function Get_BevelInner: Integer; safecall;
        procedure Set_BevelInner(Value: Integer); safecall;
        function Get_BevelKind: Integer; safecall;
        procedure Set_BevelKind(Value: Integer); safecall;
        function Get_BevelOuter: Integer; safecall;
        procedure Set_BevelOuter(Value: Integer); safecall;
        function Get_Style: Integer; safecall;
        procedure Set_Style(Value: Integer); safecall;
        function Get_BiDiMode: Integer; safecall;
        procedure Set_BiDiMode(Value: Integer); safecall;
        function Get_CharCase: Integer; safecall;
        procedure Set_CharCase(Value: Integer); safecall;
        function Get_Color: Integer; safecall;
        procedure Set_Color(Value: Integer); safecall;
        function Get_Ctl3D: Integer; safecall;
        procedure Set_Ctl3D(Value: Integer); safecall;
        function Get_DragCursor: Integer; safecall;
        procedure Set_DragCursor(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_DropDownCount: Integer; safecall;
        procedure Set_DropDownCount(Value: Integer); safecall;
        function Get_Enabled: Integer; safecall;
        procedure Set_Enabled(Value: Integer); safecall;
        function Get_Font: IExodusControlFont; safecall;
        function Get_ImeMode: Integer; safecall;
        procedure Set_ImeMode(Value: Integer); safecall;
        function Get_ImeName: Widestring; safecall;
        procedure Set_ImeName(const Value: Widestring); safecall;
        function Get_ItemHeight: Integer; safecall;
        procedure Set_ItemHeight(Value: Integer); safecall;
        function Get_ItemIndex: Integer; safecall;
        procedure Set_ItemIndex(Value: Integer); safecall;
        function Get_MaxLength: Integer; safecall;
        procedure Set_MaxLength(Value: Integer); safecall;
        function Get_ParentBiDiMode: Integer; safecall;
        procedure Set_ParentBiDiMode(Value: Integer); safecall;
        function Get_ParentColor: Integer; safecall;
        procedure Set_ParentColor(Value: Integer); safecall;
        function Get_ParentCtl3D: Integer; safecall;
        procedure Set_ParentCtl3D(Value: Integer); safecall;
        function Get_ParentFont: Integer; safecall;
        procedure Set_ParentFont(Value: Integer); safecall;
        function Get_ParentShowHint: Integer; safecall;
        procedure Set_ParentShowHint(Value: Integer); safecall;
        function Get_PopupMenu: IExodusControlPopupMenu; safecall;
        function Get_ShowHint: Integer; safecall;
        procedure Set_ShowHint(Value: Integer); safecall;
        function Get_Sorted: Integer; safecall;
        procedure Set_Sorted(Value: Integer); safecall;
        function Get_TabOrder: Integer; safecall;
        procedure Set_TabOrder(Value: Integer); safecall;
        function Get_TabStop: Integer; safecall;
        procedure Set_TabStop(Value: Integer); safecall;
        function Get_Text: Widestring; safecall;
        procedure Set_Text(const Value: Widestring); safecall;
        function Get_Visible: Integer; safecall;
        procedure Set_Visible(Value: Integer); safecall;
        function Get_ItemsCount: integer; safecall;
        function Get_Items(Index: integer): Widestring; safecall;
        procedure Set_Items(Index: integer; const Value: Widestring); safecall;
    end;


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


constructor TExControlComboBox.Create(control: TTntComboBox);
begin
     _control := control; 
end;

function TExControlComboBox.Get_ControlType: ExodusControlTypes;
begin
    Result := ExodusControlComboBox;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

function TExControlComboBox.Get_AutoComplete: Integer;
begin
    if (_control.AutoComplete = False) then Result := 0;
    if (_control.AutoComplete = True) then Result := 1;
end;

procedure TExControlComboBox.Set_AutoComplete(Value: Integer);
begin
   if (Value = 0) then _control.AutoComplete := False;
   if (Value = 1) then _control.AutoComplete := True;
end;

function TExControlComboBox.Get_AutoDropDown: Integer;
begin
    if (_control.AutoDropDown = False) then Result := 0;
    if (_control.AutoDropDown = True) then Result := 1;
end;

procedure TExControlComboBox.Set_AutoDropDown(Value: Integer);
begin
   if (Value = 0) then _control.AutoDropDown := False;
   if (Value = 1) then _control.AutoDropDown := True;
end;

function TExControlComboBox.Get_AutoCloseUp: Integer;
begin
    if (_control.AutoCloseUp = False) then Result := 0;
    if (_control.AutoCloseUp = True) then Result := 1;
end;

procedure TExControlComboBox.Set_AutoCloseUp(Value: Integer);
begin
   if (Value = 0) then _control.AutoCloseUp := False;
   if (Value = 1) then _control.AutoCloseUp := True;
end;

function TExControlComboBox.Get_BevelInner: Integer;
begin
    if (_control.BevelInner = bvNone) then Result := 0;
    if (_control.BevelInner = bvLowered) then Result := 1;
    if (_control.BevelInner = bvRaised) then Result := 2;
    if (_control.BevelInner = bvSpace) then Result := 3;
end;

procedure TExControlComboBox.Set_BevelInner(Value: Integer);
begin
   if (Value = 0) then _control.BevelInner := bvNone;
   if (Value = 1) then _control.BevelInner := bvLowered;
   if (Value = 2) then _control.BevelInner := bvRaised;
   if (Value = 3) then _control.BevelInner := bvSpace;
end;

function TExControlComboBox.Get_BevelKind: Integer;
begin
    if (_control.BevelKind = bkNone) then Result := 0;
    if (_control.BevelKind = bkTile) then Result := 1;
    if (_control.BevelKind = bkSoft) then Result := 2;
    if (_control.BevelKind = bkFlat) then Result := 3;
end;

procedure TExControlComboBox.Set_BevelKind(Value: Integer);
begin
   if (Value = 0) then _control.BevelKind := bkNone;
   if (Value = 1) then _control.BevelKind := bkTile;
   if (Value = 2) then _control.BevelKind := bkSoft;
   if (Value = 3) then _control.BevelKind := bkFlat;
end;

function TExControlComboBox.Get_BevelOuter: Integer;
begin
    if (_control.BevelOuter = bvNone) then Result := 0;
    if (_control.BevelOuter = bvLowered) then Result := 1;
    if (_control.BevelOuter = bvRaised) then Result := 2;
    if (_control.BevelOuter = bvSpace) then Result := 3;
end;

procedure TExControlComboBox.Set_BevelOuter(Value: Integer);
begin
   if (Value = 0) then _control.BevelOuter := bvNone;
   if (Value = 1) then _control.BevelOuter := bvLowered;
   if (Value = 2) then _control.BevelOuter := bvRaised;
   if (Value = 3) then _control.BevelOuter := bvSpace;
end;

function TExControlComboBox.Get_Style: Integer;
begin
    if (_control.Style = csDropDown) then Result := 0;
    if (_control.Style = csSimple) then Result := 1;
    if (_control.Style = csDropDownList) then Result := 2;