suidlg.pas

suipack ver5控件 suipack ver5控件 suipack ver5控件 suipack ver5控件 suipack ver5控件

////////////////////////////////////////////////////////////////////////////////
//
//
//  FileName    :   SUIDlg.pas
//  Creator     :   Shen Min
//  Date        :   2003-03-31 V1-V3
//                  2003-07-14 V4
//  Comment     :
//
//  Copyright (c) 2002-2003 Sunisoft
//  http://www.sunisoft.com
//  Email: [e-mail]
//
////////////////////////////////////////////////////////////////////////////////

unit SUIDlg;

interface

{$I SUIPack.inc}

uses Controls, Classes, Math, Forms, Dialogs, Graphics, SysUtils,
     SUIThemes, SUIMgr;

type
    TsuiDialogButtonsCount = 1..3;
    TsuiIconType = (suiNone, suiWarning, suiStop, suiInformation, suiHelp);

type
    TsuiDialog = class(TComponent)
    private
        m_Position : TPosition;
        m_Caption : TCaption;
        m_ButtonCursor : TCursor;
        m_UIStyle : TsuiUIStyle;
        m_FileTheme : TsuiFileTheme;
        m_Font : TFont;
        m_CaptionFont : TFont;

        procedure SetFileTheme(const Value: TsuiFileTheme);
        procedure SetUIStyle(const Value: TsuiUIStyle);
        procedure SetFont(const Value: TFont);
        procedure SetCaptionFont(const Value: TFont);

    protected
        procedure Notification(AComponent: TComponent; Operation: TOperation); override;
        property ButtonCursor : TCursor read m_ButtonCursor write m_ButtonCursor;

    public
        constructor Create(AOwner : TComponent); override;
        destructor Destroy(); override;
        
        function ShowModal : TModalResult; virtual; abstract;

    published
        property FileTheme : TsuiFileTheme read m_FileTheme write SetFileTheme;
        property Position : TPosition read m_Position write m_Position;
        property Caption : TCaption read m_Caption write m_Caption;
        property UIStyle : TsuiUIStyle read m_UIStyle write SetUIStyle;
        property Font : TFont read m_Font write SetFont;
        property CaptionFont : TFont read m_CaptionFont write SetCaptionFont;

    end;

    TsuiMessageDialog = class(TsuiDialog)
    private
        m_ButtonCount : TsuiDialogButtonsCount;
        m_Button1Caption : TCaption;
        m_Button2Caption : TCaption;
        m_Button3Caption : TCaption;
        m_Button1ModalResult : TModalResult;
        m_Button2ModalResult : TModalResult;
        m_Button3ModalResult : TModalResult;
        m_IconType : TsuiIconType;
        m_Text : String;

    public
        constructor Create(AOwner : TComponent); override;
        function ShowModal : TModalResult; override;

    published
        property ButtonCursor;
        property ButtonCount : TsuiDialogButtonsCount read m_ButtonCount write m_ButtonCount;
        property Button1Caption : TCaption read m_Button1Caption write m_Button1Caption;
        property Button2Caption : TCaption read m_Button2Caption write m_Button2Caption;
        property Button3Caption : TCaption read m_Button3Caption write m_Button3Caption;
        property Button1ModalResult : TModalResult read m_Button1ModalResult write m_Button1ModalResult;
        property Button2ModalResult : TModalResult read m_Button2ModalResult write m_Button2ModalResult;
        property Button3ModalResult : TModalResult read m_Button3ModalResult write m_Button3ModalResult;
        property IconType : TsuiIconType read m_IconType write m_IconType;
        property Text : String read m_Text write m_Text;

    end;

    TsuiPasswordDialog = class(TsuiDialog)
    private
        m_ButtonCancelCaption: TCaption;
        m_ButtonOKCaption: TCaption;
        m_Item1Caption: TCaption;
        m_Item1PasswordChar: Char;
        m_Item2Caption: TCaption;
        m_Item2PasswordChar: Char;
        m_Item1Text : String;
        m_Item2Text : String;

    public
        constructor Create(AOwner : TComponent); override;
        function ShowModal : TModalResult; override;

    published
        property Item1Caption : TCaption read m_Item1Caption write m_Item1Caption;
        property Item2Caption : TCaption read m_Item2Caption write m_Item2Caption;
        property Item1PasswordChar : Char read m_Item1PasswordChar write m_Item1PasswordChar;
        property Item2PasswordChar : Char read m_Item2PasswordChar write m_Item2PasswordChar;
        property Item1Text : String read m_Item1Text write m_Item1Text;
        property Item2Text : String read m_Item2Text write m_Item2Text;
        property ButtonOKCaption : TCaption read m_ButtonOKCaption write m_ButtonOKCaption;
        property ButtonCancelCaption : TCaption read m_ButtonCancelCaption write m_ButtonCancelCaption;
        property ButtonCursor;
    end;

    TsuiInputDialog = class(TsuiDialog)
    private
        m_ButtonCancelCaption: TCaption;
        m_ButtonOKCaption: TCaption;
        m_PromptText : String;
        m_ValueText : String;
        m_PasswordChar : Char;

    public
        constructor Create(AOwner : TComponent); override;
        function ShowModal : TModalResult; override;

    published
        property PasswordChar : Char read m_PasswordChar write m_PasswordChar;
        property PromptText : String read m_PromptText write m_PromptText;
        property ValueText : String read m_ValueText write m_ValueText;
        property ButtonOKCaption : TCaption read m_ButtonOKCaption write m_ButtonOKCaption;
        property ButtonCancelCaption : TCaption read m_ButtonCancelCaption write m_ButtonCancelCaption;
        property ButtonCursor;
    end;

    function SUIMsgDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; UIStyle : TsuiUIStyle = SUI_THEME_DEFAULT): TModalResult; overload;
    function SUIMsgDlg(const Msg, Caption : String; DlgType : TMsgDlgType; Buttons: TMsgDlgButtons; UIStyle : TsuiUIStyle = SUI_THEME_DEFAULT) : TModalResult; overload;

implementation

uses frmPassword, frmMessage, frmInput, SUIButton, SUIResDef, SUIPublic;

//function SUIMsgDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; UIStyle : TsuiUIStyle = SUI_THEME_DEFAULT): TModalResult;
//var
//    MsgDlg : TsuiMessageDialog;
//begin
//    MsgDlg := TsuiMessageDialog.Create(nil);
//    MsgDlg.UIStyle := UIStyle;
//    MsgDlg.Text := Msg;
//
//    case DlgType of
//    mtWarning : MsgDlg.IconType := suiWarning;
//    mtError : MsgDlg.IconType := suiStop;
//    mtInformation : MsgDlg.IconType := suiInformation;
//    mtConfirmation : MsgDlg.IconType := suiHelp;
//    mtCustom : MsgDlg.IconType := suiNone;
//    end; // case
//
//    //mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp
//
//    Result := MsgDlg.ShowModal();
//    MsgDlg.Free();
//end;

function SUIMsgDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; UIStyle : TsuiUIStyle = SUI_THEME_DEFAULT): TModalResult;
begin
    if Assigned(Application) then
        Result := SUIMsgDlg(Msg, Application.Title, DlgType, Buttons, UIStyle)
    else
        Result := SUIMsgDlg(Msg, 'Default', DlgType, Buttons, UIStyle)
end;

function SUIMsgDlg(const Msg, Caption : String; DlgType : TMsgDlgType; Buttons: TMsgDlgButtons; UIStyle : TsuiUIStyle = SUI_THEME_DEFAULT) : TModalResult;
var
    MsgDlg : TsuiMessageDialog;
    B: TMsgDlgBtn;
    bc: String;
    bmr: TModalResult;
    btnCnt: Integer;
begin
    MsgDlg := TsuiMessageDialog.Create(nil);
    MsgDlg.Text := Msg;

    btnCnt := 0;
    bmr := mrOK;

    for B := Low(TMsgDlgBtn) to High(TMsgDlgBtn) do
    begin
      if B in Buttons then
      begin
        inc(btnCnt);

        case B of
          //ESTABLISH BUTTON CAPTION
          mbOk:    begin bc := 'Ok'; bmr := mrOK end;
          mbYes:   begin bc := 'Yes'; bmr := mrYes end;
          mbNo:    begin bc := 'No'; bmr := mrNo end;
          mbYesToAll:  begin bc := 'Yes to All'; bmr := mrYesToAll end;
          mbNoToAll:   begin bc := 'No to All'; bmr := mrNoToAll end;
          mbAbort:  begin bc := 'Abort'; bmr := mrAbort end;
          mbCancel: begin bc := 'Cancel'; bmr := mrCancel end;
          mbRetry:  begin bc := 'Retry'; bmr := mrRetry end;
          mbIgnore: begin bc := 'Ignore'; bmr := mrIgnore end;
          mbAll:    begin bc := 'All'; bmr := mrAll; end;
          //mbHelp:   begin bc := 'Help'; bmr := mrHelp end;

        end;

        Case btnCnt of
          //ESTABLISH BUTTON RESULT
          1:  begin MsgDlg.Button1Caption := bc; MsgDlg.Button1ModalResult := bmr; end;
          2:  begin MsgDlg.Button2Caption := bc; MsgDlg.Button2ModalResult := bmr; end;
          3:  begin MsgDlg.Button3Caption := bc; MsgDlg.Button3ModalResult := bmr; end;
        end;

      end;
    end;

    MsgDlg.ButtonCount := btnCnt;

    case DlgType of
    mtWarning : MsgDlg.IconType := suiWarning;
    mtError : MsgDlg.IconType := suiStop;
    mtInformation : MsgDlg.IconType := suiInformation;
    mtConfirmation : MsgDlg.IconType := suiHelp;
    mtCustom : MsgDlg.IconType := suiNone;
    end; // case

    //mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp

    MsgDlg.UIStyle := UIStyle;
    MsgDlg.Caption := Caption;
    Result := MsgDlg.ShowModal();
    MsgDlg.Free();
end;

{ TsuiDialog }

constructor TsuiDialog.Create(AOwner: TComponent);
begin
    inherited;

    m_Caption := 'suiDialog';
    m_Position := poScreenCenter;
    m_ButtonCursor := crHandPoint;
    m_UIStyle := SUI_THEME_DEFAULT;

    m_Font := TFont.Create();
    m_CaptionFont := TFont.Create();
    m_CaptionFont.Color := clWhite;
    m_CaptionFont.Name := 'Tahoma';
    m_CaptionFont.Style := [fsBold];

    UIStyle := GetSUIFormStyle(AOwner);
end;

destructor TsuiDialog.Destroy;
begin
    m_CaptionFont.Free();
    m_CaptionFont := nil;

    m_Font.Free();
    m_Font := nil;

    inherited;
end;

procedure TsuiDialog.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
    inherited;

    if (
        (Operation = opRemove) and