suireg.pas

新颖按钮控件

////////////////////////////////////////////////////////////////////////////////
//
//
//  FileName    :   SUIReg.pas
//  Creator     :   Shen Min
//  Date        :   2002-07-27
//  Comment     :
//
//  Copyright (c) 2002-2003 Sunisoft
//  http://www.sunisoft.com
//  Email: [e-mail]
//
////////////////////////////////////////////////////////////////////////////////

unit SUIReg;

interface

{$I SUIPack.inc}

uses Classes,
{$IFDEF SUIPACK_D5}
    menus, DsgnIntf;
{$ENDIF}
{$IFDEF SUIPACK_D6UP}
    DesignIntf, DesignEditors, DesignMenus;
{$ENDIF}

type
    TsuiPageControlEditor = class(TComponentEditor)
    public
        procedure Edit; override;
        procedure ExecuteVerb(Index:Integer);override;
        function GetVerb(Index:Integer):String;override;
        function GetVerbCount:Integer;override;
{$IFDEF SUIPACK_D5}
        procedure PrepareItem(Index: Integer; const AItem: TMenuItem); override;
{$ENDIF}
{$IFDEF SUIPACK_D6UP}
        procedure PrepareItem(Index: Integer; const AItem: IMenuItem); override;
{$ENDIF}
    end;

    TsuiTabSheetEditor = class(TComponentEditor)
    public
        procedure Edit; override;
        procedure ExecuteVerb(Index:Integer);override;
        function GetVerb(Index:Integer):String;override;
        function GetVerbCount:Integer;override;
{$IFDEF SUIPACK_D5}
        procedure PrepareItem(Index: Integer; const AItem: TMenuItem); override;
{$ENDIF}
{$IFDEF SUIPACK_D6UP}
        procedure PrepareItem(Index: Integer; const AItem: IMenuItem); override;
{$ENDIF}
    end;

    procedure Register;

implementation

uses SUIButton, SUIForm, SUIImagePanel, SUIMainMenu, SUIGroupBox, SUISkinControl,
     SUIProgressBar, SUISideChannel, SUITitleBar, SUIURLLabel, SUIListBox,
     SUISkinForm, SUIEdit, SUIMemo, SUIPopupMenu, SUICheckListBox, SUIRadioGroup,
     SUIComboBox, SUITreeView, SUIListView, SUITabControl, SUIColorBox, SUIPageControl,
     SUITrackBar, SUIToolBar, SUIDBCtrls;

procedure Register;
begin
    RegisterClass(TsuiTabSheet);
    RegisterComponentEditor(TsuiPageControl, TsuiPageControlEditor);
    RegisterComponentEditor(TsuiTabSheet, TsuiTabSheetEditor);

    RegisterComponents(
        'Sunisoft UI',
        [
            TsuiSkinForm,
            TsuiSkinControl,
            TsuiForm,
            TsuiMainMenu,
            TsuiPopupMenu,
            TsuiSideChannel,
            TsuiTitleBar,
            TsuiImagePanel,
            TsuiButton,
            TsuiImageButton,
            TsuiCheckBox,
            TsuiRadioButton,
            TsuiProgressBar,
            TsuiURLLabel,
            TsuiEdit,
            TsuiMemo,
            TsuiListBox,
            TsuiComboBox,
            TsuiColorBox,
            TsuiCheckListBox,
            TsuiGroupBox,
            TsuiRadioGroup,
            TsuiCheckGroup,
            TsuiListView,
            TsuiTreeView,
            TsuiToolBar,
            TsuiTabControl,
            TsuiPageControl,
            TsuiTrackBar
        ]
    );

    RegisterComponents(
        'SUIPack DB',
        [
            TsuiDBEdit,
            TsuiDBMemo,
            TsuiDBImage,
            TsuiDBListBox,
            TsuiDBComboBox,
            TsuiDBCheckBox,
            TsuiDBRadioGroup,
            TsuiDBLookupListBox,
            TsuiDBLookupComboBox
        ]
    );
end;

{ TsuiPageControlEditor }

procedure TsuiPageControlEditor.Edit;
begin

end;

procedure TsuiPageControlEditor.ExecuteVerb(Index: Integer);
begin
    case Index of
    0 : PageControl_InsertPage(Component);
    1 : PageControl_RemovePage(Component);
    end;

    Designer.Modified();
end;

function TsuiPageControlEditor.GetVerb(Index: Integer): String;
begin
    case Index of
    0 : Result := 'New Page';
    1 : Result := 'Delete Page';
    end;
end;

function TsuiPageControlEditor.GetVerbCount: Integer;
begin
    Result := 2;
end;

procedure TsuiPageControlEditor.PrepareItem(Index: Integer;
{$IFDEF SUIPACK_D5}
    const AItem: TMenuItem);
{$ENDIF}
{$IFDEF SUIPACK_D6UP}
    const AItem: IMenuItem);
{$ENDIF}
begin
    inherited;
    if Index = 1 then
        AItem.Enabled := PageControl_CanRemove(Component);
end;

{ TsuiTabSheetEditor }

procedure TsuiTabSheetEditor.Edit;
begin

end;

procedure TsuiTabSheetEditor.ExecuteVerb(Index: Integer);
begin
    case Index of
    0 : TabSheet_InsertPage(Component);
    1 : TabSheet_RemovePage(Component);
    end;

    Designer.Modified();
end;

function TsuiTabSheetEditor.GetVerb(Index: Integer): String;
begin
    case Index of
    0 : Result := 'New Page';
    1 : Result := 'Delete Page';
    end;
end;

function TsuiTabSheetEditor.GetVerbCount: Integer;
begin
    Result := 2;
end;

procedure TsuiTabSheetEditor.PrepareItem(Index: Integer;
{$IFDEF SUIPACK_D5}
    const AItem: TMenuItem);
{$ENDIF}
{$IFDEF SUIPACK_D6UP}
    const AItem: IMenuItem);
{$ENDIF}
begin
    inherited;
    if Index = 1 then
        AItem.Enabled := TabSheet_CanRemove(Component);
end;

end.