开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
spDialogs.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：59k
源码类别：

Delphi控件源码

开发平台：

Delphi

spDialogs.pas：源码内容
  1. {*******************************************************************}
  2. {                                                                   }
  3. {       Almediadev Visual Component Library                         }
  4. {       DynamicSkinForm                                             }
  5. {       Version 5.60                                                }
  6. {                                                                   }
  7. {       Copyright (c) 2000-2003 Almediadev                          }
  8. {       ALL RIGHTS RESERVED                                         }
  9. {                                                                   }
  10. {       Home:  http://www.almdev.com                                }
  11. {       Support: support@almdev.com                                 }
  12. {                                                                   }
  13. {*******************************************************************}
  15. unit spDialogs;
  17. interface
  19. uses Windows, SysUtils, Messages, Classes, Graphics, Controls, Forms,
  20.      DynamicSkinForm, SkinData, SkinCtrls, SkinBoxCtrls, Dialogs, StdCtrls, ExtCtrls,
  21.      spSkinShellCtrls;
  23. type
  24.   TspPDShowType = (stStayOnTop, stModal);
  26.   TspSkinProgressDialog = class(TComponent)
  27.   protected
  28.     FShowType: TspPDShowType;
  29.     FOnCancel: TNotifyEvent;
  30.     FOnShow: TNotifyEvent;
  31.     FExecute: Boolean;
  32.     Gauge: TspSkinGauge;
  33.     Form: TForm;
  34.     FSD: TspSkinData;
  35.     FCtrlFSD: TspSkinData;
  36.     FButtonSkinDataName: String;
  37.     FGaugeSkinDataName: String;
  38.     FLabelSkinDataName: String;
  39.     FDefaultLabelFont: TFont;
  40.     FDefaultGaugeFont: TFont;
  41.     FDefaultButtonFont: TFont;
  42.     FAlphaBlend: Boolean;
  43.     FAlphaBlendValue: Byte;
  44.     FAlphaBlendAnimation: Boolean;
  45.     FUseSkinFont: Boolean;
  46.     FMinValue, FMaxValue, FValue: Integer;
  47.     FCaption: String;
  48.     FLabelCaption: String;
  49.     FShowPercent: Boolean;
  51.     procedure SetValue(AValue: Integer);
  52.     procedure SetDefaultLabelFont(Value: TFont);
  53.     procedure SetDefaultButtonFont(Value: TFont);
  54.     procedure SetDefaultGaugeFont(Value: TFont);
  55.     procedure Notification(AComponent: TComponent;  Operation: TOperation); override;
  56.     procedure CancelBtnClick(Sender: TObject);
  57.     procedure OnFormClose(Sender: TObject; var Action: TCloseAction);
  58.     procedure OnFormShow(Sender: TObject);
  59.   public
  60.     function Execute: Boolean;
  61.     constructor Create(AOwner: TComponent); override;
  62.     destructor Destroy; override;
  63.   published
  64.     property ShowType: TspPDShowType read FShowType write FShowType;
  65.     property Caption: String read FCaption write FCaption;
  66.     property LabelCaption: String read FLabelCaption write FLabelCaption;
  67.     property ShowPercent: Boolean read FShowPercent write FShowPercent;
  68.     property MinValue: Integer read FMinValue write FMinValue;
  69.     property MaxValue: Integer read FMaxValue write FMaxValue;
  70.     property Value: Integer read FValue write SetValue;
  71.     property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
  72.     property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
  73.     property AlphaBlendAnimation: Boolean
  74.       read FAlphaBlendAnimation write FAlphaBlendAnimation;
  75.     property SkinData: TspSkinData read FSD write FSD;
  76.     property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
  77.     property ButtonSkinDataName: String
  78.       read FButtonSkinDataName write FButtonSkinDataName;
  79.     property LabelSkinDataName: String
  80.       read FLabelSkinDataName write FLabelSkinDataName;
  81.     property GaugeSkinDataName: String
  82.      read FGaugeSkinDataName write FGaugeSkinDataName;
  83.     property DefaultLabelFont: TFont read FDefaultLabelFont write SetDefaultLabelFont;
  84.     property DefaultButtonFont: TFont read FDefaultButtonFont write SetDefaultButtonFont;
  85.     property DefaultGaugeFont: TFont read FDefaultGaugeFont write SetDefaultGaugeFont;
  86.     property UseSkinFont: Boolean read FUseSkinFont write FUseSkinFont;
  87.     property OnShow: TNotifyEvent read FOnShow write FOnShow;
  88.     property OnCancel: TNotifyEvent read FOnCancel write FOnCancel;
  89.   end;
  91.   TspSkinInputDialog = class(TComponent)
  92.   protected
  93.     Form: TForm;
  94.     FSD: TspSkinData;
  95.     FCtrlFSD: TspSkinData;
  96.     FButtonSkinDataName: String;
  97.     FEditSkinDataName: String;
  98.     FLabelSkinDataName: String;
  99.     FDefaultLabelFont: TFont;
  100.     FDefaultEditFont: TFont;
  101.     FDefaultButtonFont: TFont;
  102.     FUseSkinFont: Boolean;
  103.     FAlphaBlend: Boolean;
  104.     FAlphaBlendValue: Byte;
  105.     FAlphaBlendAnimation: Boolean;
  106.     procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  107.     procedure SetDefaultLabelFont(Value: TFont);
  108.     procedure SetDefaultButtonFont(Value: TFont);
  109.     procedure SetDefaultEditFont(Value: TFont);
  110.     procedure Notification(AComponent: TComponent;  Operation: TOperation); override;
  111.   public
  112.     function InputBox(const ACaption, APrompt, ADefault: string): string;
  113.     function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;
  114.     constructor Create(AOwner: TComponent); override;
  115.     destructor Destroy; override;
  116.   published
  117.     property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
  118.     property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
  119.     property AlphaBlendAnimation: Boolean
  120.       read FAlphaBlendAnimation write FAlphaBlendAnimation;
  121.     property SkinData: TspSkinData read FSD write FSD;
  122.     property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
  123.     property ButtonSkinDataName: String
  124.       read FButtonSkinDataName write FButtonSkinDataName;
  125.     property LabelSkinDataName: String
  126.       read FLabelSkinDataName write FLabelSkinDataName;
  127.     property EditSkinDataName: String
  128.      read FEditSkinDataName write FEditSkinDataName;
  129.     property DefaultLabelFont: TFont read FDefaultLabelFont write SetDefaultLabelFont;
  130.     property DefaultButtonFont: TFont read FDefaultButtonFont write SetDefaultButtonFont;
  131.     property DefaultEditFont: TFont read FDefaultEditFont write SetDefaultEditFont;
  132.     property UseSkinFont: Boolean read FUseSkinFont write FUseSkinFont;
  133.   end;
  135.   TspFontDlgForm = class(TForm)
  136.   public
  137.     DSF: TspDynamicSkinForm;
  139.     FontNameBox: TspSkinFontComboBox;
  140.     FontColorBox: TspSkinColorComboBox;
  141.     FontSizeEdit: TspSkinSpinEdit;
  142.     FontHeightEdit: TspSkinSpinEdit;
  143.     FontExamplePanel: TspSkinPanel;
  144.     FontExampleLabel: TLabel;
  145.     OkButton, CancelButton: TspSkinButton;
  146.     FontNameLabel, FontColorLabel, FontSizeLabel,
  147.     FontHeightLabel, FontStyleLabel, FontExLabel: TspSkinStdLabel;
  148.     BoldButton, ItalicButton,
  149.     UnderLineButton, StrikeOutButton: TspSkinSpeedButton;
  151.     constructor Create(AOwner: TComponent); override;
  153.     procedure FontSizeChange(Sender: TObject);
  154.     procedure FontHeightChange(Sender: TObject);
  155.     procedure FontNameChange(Sender: TObject);
  156.     procedure FontColorChange(Sender: TObject);
  157.     procedure BoldButtonClick(Sender: TObject);
  158.     procedure ItalicButtonClick(Sender: TObject);
  159.     procedure StrikeOutButtonClick(Sender: TObject);
  160.     procedure UnderLineButtonClick(Sender: TObject);
  161.   end;
  163.   TspSkinFontDialog = class(TComponent)
  164.   private
  165.     FSD: TspSkinData;
  166.     FCtrlFSD: TspSkinData;
  167.     FDefaultFont: TFont;
  168.     FTitle: String;
  169.     FDlgFrm: TspFontDlgForm;
  170.     FOnChange: TNotifyEvent;
  171.     FFont: TFont;
  172.     FShowSizeEdit, FShowHeightEdit: Boolean;
  173.     FAlphaBlend: Boolean;
  174.     FAlphaBlendAnimation: Boolean;
  175.     FAlphaBlendValue: Byte;
  176.     function GetTitle: string;
  177.     procedure SetTitle(const Value: string);
  178.     procedure SetFont(Value: TFont);
  179.     procedure SetDefaultFont(Value: TFont);
  180.   protected
  181.     procedure Notification(AComponent: TComponent;  Operation: TOperation); override;
  182.     procedure Change;
  183.   public
  184.     constructor Create(AOwner: TComponent); override;
  185.     destructor Destroy; override;
  186.     function Execute: Boolean;
  187.   published
  188.      property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
  189.     property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
  190.     property AlphaBlendAnimation: Boolean
  191.       read FAlphaBlendAnimation write FAlphaBlendAnimation;
  192.     property SkinData: TspSkinData read FSD write FSD;
  193.     property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
  194.     property DefaultFont: TFont read FDefaultFont write SetDefaultFont;
  195.     property Font: TFont read FFont write SetFont;
  196.     property Title: string read GetTitle write SetTitle;
  197.     property ShowSizeEdit: Boolean read FShowSizeEdit write FShowSizeEdit;
  198.     property ShowHeightEdit: Boolean read FShowHeightEdit write FShowHeightEdit;
  199.     property OnChange: TnotifyEvent read FOnChange write FOnChange;
  200.   end;
  202.   TspSkinTextDialog = class(TComponent)
  203.   protected
  204.     Memo: TspSkinMemo2;
  205.     FShowToolBar: Boolean;
  206.     FCaption: String;
  207.     FSD: TspSkinData;
  208.     FCtrlFSD: TspSkinData;
  209.     FButtonSkinDataName: String;
  210.     FMemoSkinDataName: String;
  211.     FDefaultMemoFont: TFont;
  212.     FDefaultButtonFont: TFont;
  213.     FUseSkinFont: Boolean;
  214.     FClientWidth: Integer;
  215.     FClientHeight: Integer;
  216.     FLines: TStrings;
  217.     FSkinOpenDialog: TspSkinOpenDialog;
  218.     FSkinSaveDialog: TspSkinSaveDialog;
  219.     FAlphaBlend: Boolean;
  220.     FAlphaBlendAnimation: Boolean;
  221.     FAlphaBlendValue: Byte;
  222.     procedure SetLines(Value: TStrings);
  223.     procedure SetClientWidth(Value: Integer);
  224.     procedure SetClientHeight(Value: Integer);
  225.     procedure SetDefaultButtonFont(Value: TFont);
  226.     procedure SetDefaultMemoFont(Value: TFont);
  227.     procedure Notification(AComponent: TComponent;  Operation: TOperation); override;
  228.     //
  229.     procedure NewButtonClick(Sender: TObject);
  230.     procedure OpenButtonClick(Sender: TObject);
  231.     procedure SaveButtonClick(Sender: TObject);
  232.     procedure CopyButtonClick(Sender: TObject);
  233.     procedure CutButtonClick(Sender: TObject);
  234.     procedure PasteButtonClick(Sender: TObject);
  235.     procedure DeleteButtonClick(Sender: TObject);
  236.     //
  237.   public
  238.     constructor Create(AOwner: TComponent); override;
  239.     destructor Destroy; override;
  240.     function Execute: Boolean;
  241.   published
  242.     property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
  243.     property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
  244.     property AlphaBlendAnimation: Boolean
  245.       read FAlphaBlendAnimation write FAlphaBlendAnimation;
  246.     property SkinOpenDialog: TspSkinOpenDialog
  247.       read FSkinOpenDialog write FSkinOpenDialog;
  248.     property SkinSaveDialog: TspSkinSaveDialog
  249.       read FSkinSaveDialog write FSkinSaveDialog;
  250.     property ShowToolBar: Boolean read FShowToolBar write FShowToolBar;
  251.     property Lines: TStrings read FLines write SetLines;
  252.     property ClientWidth: Integer read FClientWidth write SetClientWidth;
  253.     property ClientHeight: Integer read FClientHeight write SetClientHeight;
  254.     property Caption: String read FCaption write FCaption;
  255.     property SkinData: TspSkinData read FSD write FSD;
  256.     property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
  257.     property ButtonSkinDataName: String
  258.       read FButtonSkinDataName write FButtonSkinDataName;
  259.     property MemoSkinDataName: String
  260.      read FMemoSkinDataName write FMemoSkinDataName;
  261.     property DefaultButtonFont: TFont read FDefaultButtonFont write SetDefaultButtonFont;
  262.     property DefaultMemoFont: TFont read FDefaultMemoFont write SetDefaultMemoFont;
  263.     property UseSkinFont: Boolean read FUseSkinFont write FUseSkinFont;
  264.   end;
  266.   TspSkinPasswordDialog = class(TComponent)
  267.   protected
  268.     FLoginMode: Boolean;
  269.     FCaption: String;
  270.     FLogin: String;
  271.     FLoginCaption: String;
  272.     FPasswordCaption: String;
  273.     FPassword: String;
  274.     FPasswordKind: TspPasswordKind;
  275.     FSD: TspSkinData;
  276.     FCtrlFSD: TspSkinData;
  277.     FButtonSkinDataName: String;
  278.     FEditSkinDataName: String;
  279.     FLabelSkinDataName: String;
  280.     FDefaultLabelFont: TFont;
  281.     FDefaultEditFont: TFont;
  282.     FDefaultButtonFont: TFont;
  283.     FAlphaBlend: Boolean;
  284.     FAlphaBlendAnimation: Boolean;
  285.     FAlphaBlendValue: Byte;
  286.     FUseSkinFont: Boolean;
  287.     procedure SetDefaultLabelFont(Value: TFont);
  288.     procedure SetDefaultButtonFont(Value: TFont);
  289.     procedure SetDefaultEditFont(Value: TFont);
  290.     procedure Notification(AComponent: TComponent;  Operation: TOperation); override;
  291.   public
  292.     constructor Create(AOwner: TComponent); override;
  293.     destructor Destroy; override;
  294.     function Execute: Boolean;
  295.   published
  296.     property LoginMode: Boolean read FLoginMode write FLoginMode;
  297.     property Login: String read FLogin write FLogin;
  298.     property LoginCaption: String read FLoginCaption write FLoginCaption;
  299.     property Password: String read FPassword write FPassword;
  300.     property PasswordKind: TspPasswordKind read FPasswordKind write FPasswordKind;
  301.     property Caption: String read FCaption write FCaption;
  302.     property PasswordCaption: String read FPasswordCaption write FPasswordCaption;
  303.     property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
  304.     property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
  305.     property AlphaBlendAnimation: Boolean
  306.       read FAlphaBlendAnimation write FAlphaBlendAnimation;
  307.     property SkinData: TspSkinData read FSD write FSD;
  308.     property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
  309.     property ButtonSkinDataName: String
  310.       read FButtonSkinDataName write FButtonSkinDataName;
  311.     property LabelSkinDataName: String
  312.       read FLabelSkinDataName write FLabelSkinDataName;
  313.     property EditSkinDataName: String
  314.      read FEditSkinDataName write FEditSkinDataName;
  315.     property DefaultLabelFont: TFont read FDefaultLabelFont write SetDefaultLabelFont;
  316.     property DefaultButtonFont: TFont read FDefaultButtonFont write SetDefaultButtonFont;
  317.     property DefaultEditFont: TFont read FDefaultEditFont write SetDefaultEditFont;
  318.     property UseSkinFont: Boolean read FUseSkinFont write FUseSkinFont;
  319.   end;
  321.   TspSkinConfirmDialog = class(TComponent)
  322.   protected
  323.     FCaption: String;
  324.     FPassword1: String;
  325.     FPassword1Caption: String;
  326.     FPassword2: String;
  327.     FPassword2Caption: String;
  328.     FPasswordKind: TspPasswordKind;
  329.     FSD: TspSkinData;
  330.     FCtrlFSD: TspSkinData;
  331.     FButtonSkinDataName: String;
  332.     FEditSkinDataName: String;
  333.     FLabelSkinDataName: String;
  334.     FDefaultLabelFont: TFont;
  335.     FDefaultEditFont: TFont;
  336.     FDefaultButtonFont: TFont;
  337.     FAlphaBlend: Boolean;
  338.     FAlphaBlendAnimation: Boolean;
  339.     FAlphaBlendValue: Byte;
  340.     FUseSkinFont: Boolean;
  341.     procedure SetDefaultLabelFont(Value: TFont);
  342.     procedure SetDefaultButtonFont(Value: TFont);
  343.     procedure SetDefaultEditFont(Value: TFont);
  344.     procedure Notification(AComponent: TComponent;  Operation: TOperation); override;
  345.   public
  346.     constructor Create(AOwner: TComponent); override;
  347.     destructor Destroy; override;
  348.     function Execute: Boolean;
  349.   published
  350.     property Password1: String read FPassword1 write FPassword1;
  351.     property Password1Caption: String read FPassword1Caption write FPassword1Caption;
  352.     property Password2: String read FPassword2 write FPassword2;
  353.     property Password2Caption: String read FPassword2Caption write FPassword2Caption;
  354.     property PasswordKind: TspPasswordKind read FPasswordKind write FPasswordKind;
  355.     property Caption: String read FCaption write FCaption;
  356.     property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
  357.     property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
  358.     property AlphaBlendAnimation: Boolean
  359.       read FAlphaBlendAnimation write FAlphaBlendAnimation;
  360.     property SkinData: TspSkinData read FSD write FSD;
  361.     property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
  362.     property ButtonSkinDataName: String
  363.       read FButtonSkinDataName write FButtonSkinDataName;
  364.     property LabelSkinDataName: String
  365.       read FLabelSkinDataName write FLabelSkinDataName;
  366.     property EditSkinDataName: String
  367.      read FEditSkinDataName write FEditSkinDataName;
  368.     property DefaultLabelFont: TFont read FDefaultLabelFont write SetDefaultLabelFont;
  369.     property DefaultButtonFont: TFont read FDefaultButtonFont write SetDefaultButtonFont;
  370.     property DefaultEditFont: TFont read FDefaultEditFont write SetDefaultEditFont;
  371.     property UseSkinFont: Boolean read FUseSkinFont write FUseSkinFont;
  372.   end;
  374. implementation
  375.   Uses spConst;
  376. {$R *.res}
  378. constructor TspSkinInputDialog.Create;
  379. begin
  380.   inherited Create(AOwner);
  381.   FAlphaBlend := False;
  382.   FAlphaBlendAnimation := False;
  383.   FAlphaBlendValue := 200;
  385.   FButtonSkinDataName := 'button';
  386.   FLabelSkinDataName := 'stdlabel';
  387.   FEditSkinDataName := 'edit';
  389.   FDefaultLabelFont := TFont.Create;
  390.   FDefaultButtonFont := TFont.Create;
  391.   FDefaultEditFont := TFont.Create;
  393.   FUseSkinFont := True;
  395.   with FDefaultLabelFont do
  396.   begin
  397.     Name := 'Arial';
  398.     Style := [];
  399.     Height := 14;
  400.   end;
  402.   with FDefaultButtonFont do
  403.   begin
  404.     Name := 'Arial';
  405.     Style := [];
  406.     Height := 14;
  407.   end;
  409.   with FDefaultEditFont do
  410.   begin
  411.     Name := 'Arial';
  412.     Style := [];
  413.     Height := 14;
  414.   end;
  415. end;
  417. destructor TspSkinInputDialog.Destroy;
  418. begin
  419.   FDefaultLabelFont.Free;
  420.   FDefaultButtonFont.Free;
  421.   FDefaultEditFont.Free;
  422.   inherited;
  423. end;
  425. procedure TspSkinInputDialog.EditKeyDown;
  426. begin
  427.   if Key = 27
  428.   then
  429.     Form.ModalResult := mrCancel
  430.   else
  431.   if Key = 13
  432.   then
  433.     Form.ModalResult := mrOk;
  434. end;
  435. procedure TspSkinInputDialog.SetDefaultLabelFont;
  436. begin
  437.   FDefaultLabelFont.Assign(Value);
  438. end;
  440. procedure TspSkinInputDialog.SetDefaultEditFont;
  441. begin
  442.   FDefaultEditFont.Assign(Value);
  443. end;
  445. procedure TspSkinInputDialog.SetDefaultButtonFont;
  446. begin
  447.   FDefaultButtonFont.Assign(Value);
  448. end;
  450. procedure TspSkinInputDialog.Notification;
  451. begin
  452.   inherited Notification(AComponent, Operation);
  453.   if (Operation = opRemove) and (AComponent = FSD) then FSD := nil;
  454.   if (Operation = opRemove) and (AComponent = FCtrlFSD) then FCtrlFSD := nil;
  455. end;
  458. function GetAveCharSize(Canvas: TCanvas): TPoint;
  459. var
  460.   I: Integer;
  461.   Buffer: array[0..51] of Char;
  462. begin
  463.   for I := 0 to 25 do Buffer[I] := Chr(I + Ord('A'));
  464.   for I := 0 to 25 do Buffer[I + 26] := Chr(I + Ord('a'));
  465.   GetTextExtentPoint(Canvas.Handle, Buffer, 52, TSize(Result));
  466.   Result.X := Result.X div 52;
  467. end;
  469. function TspSkinInputDialog.InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;
  470. const
  471.   WS_EX_LAYERED = $80000;
  472.   
  473. var
  474.   DSF: TspDynamicSkinForm;
  475.   Prompt: TspSkinStdLabel;
  476.   Edit: TspSkinEdit;
  477.   DialogUnits: TPoint;
  478.   ButtonTop, ButtonWidth, ButtonHeight: Integer;
  479. begin
  480.   Form := TForm.Create(Application);
  481.   Form.BorderStyle := bsDialog;
  482.   Form.Caption := ACaption;
  483.   Form.Position := poScreenCenter;
  484.   DSF := TspDynamicSkinForm.Create(Form);
  485.   DSF.BorderIcons := [];
  486.   DSF.SkinData := SkinData;
  487.   DSF.MenusSkinData := CtrlSkinData;
  488.   DSF.SizeAble := False;
  489.   DSF.AlphaBlend := AlphaBlend;
  490.   DSF.AlphaBlendAnimation := AlphaBlendAnimation;
  491.   DSF.AlphaBlendValue := AlphaBlendValue;
  492.   //
  494.   try
  496.   with Form do
  497.   begin
  498.     Canvas.Font := Font;
  499.     DialogUnits := GetAveCharSize(Canvas);
  500.     ClientWidth := MulDiv(180, DialogUnits.X, 4);
  501.   end;
  503.   Prompt := TspSkinStdLabel.Create(Form);
  504.   with Prompt do
  505.   begin
  506.     Parent := Form;
  507.     Caption := APrompt;
  508.     Left := MulDiv(8, DialogUnits.X, 4);
  509.     Top := MulDiv(8, DialogUnits.Y, 8);
  510.     Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4);
  511.     WordWrap := True;
  512.     DefaultFont := DefaultLabelFont;
  513.     UseSkinFont := Self.UseSkinFont; 
  514.     SkinDataName := FLabelSkinDataName;
  515.     SkinData := CtrlSkinData;
  516.   end;
  518.   Edit := TspSkinEdit.Create(Form);
  519.   with Edit do
  520.   begin
  521.     Parent := Form;
  522.     OnKeyDown := EditKeydown;
  523.     DefaultFont := DefaultEditFont;
  524.     UseSkinFont := Self.UseSkinFont;
  525.     Left := Prompt.Left;
  526.     Top := Prompt.Top + Prompt.Height + 5;
  527.     DefaultWidth := MulDiv(164, DialogUnits.X, 4);
  528.     MaxLength := 255;
  529.     Text := Value;
  530.     SelectAll;
  531.     SkinDataName := FEditSkinDataName;
  532.     SkinData := CtrlSkinData;
  533.   end;
  535.   ButtonTop := Edit.Top + Edit.Height + 15;
  536.   ButtonWidth := MulDiv(50, DialogUnits.X, 4);
  537.   ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
  539.   with TspSkinButton.Create(Form) do
  540.   begin
  541.     Parent := Form;
  542.     DefaultFont := DefaultButtonFont;
  543.     UseSkinFont := Self.UseSkinFont;
  544.     Caption := SP_MSG_BTN_OK;
  545.     ModalResult := mrOk;
  546.     Default := True;
  547.     SetBounds(MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth,
  548.               ButtonHeight);
  549.     DefaultHeight := ButtonHeight;
  550.     SkinDataName := FButtonSkinDataName;
  551.     SkinData := CtrlSkinData;
  552.   end;
  554.   with TspSkinButton.Create(Form) do
  555.   begin
  556.     Parent := Form;
  557.     DefaultFont := DefaultButtonFont;
  558.     UseSkinFont := Self.UseSkinFont;
  559.     Caption := SP_MSG_BTN_CANCEL;
  560.     ModalResult := mrCancel;
  561.     Cancel := True;
  562.     SetBounds(MulDiv(92, DialogUnits.X, 4), Edit.Top + Edit.Height + 15,
  563.               ButtonWidth, ButtonHeight);
  564.     DefaultHeight := ButtonHeight;
  565.     SkinDataName := FButtonSkinDataName;
  566.     SkinData := CtrlSkinData;
  567.     Form.ClientHeight := Top + Height + 13;
  568.   end;
  570.   if Form.ShowModal = mrOk
  571.   then
  572.     begin
  573.       Value := Edit.Text;
  574.       Result := True;
  575.     end
  576.   else
  577.     Result := False;
  579.   finally
  580.     Form.Free;
  581.   end;
  582. end;
  584. function TspSkinInputDialog.InputBox(const ACaption, APrompt, ADefault: string): string;
  585. begin
  586.   Result := ADefault;
  587.   InputQuery(ACaption, APrompt, Result);
  588. end;
  590. constructor TspSkinProgressDialog.Create;
  591. begin
  592.   inherited Create(AOwner);
  594.   FShowType := stStayOnTop;
  596.   FAlphaBlend := False;
  597.   FAlphaBlendAnimation := False;
  598.   FAlphaBlendValue := 200;
  600.   Form := nil;
  601.   Gauge := nil;
  602.   FExecute := False;
  604.   FMinValue := 0;
  605.   FMaxValue := 100;
  606.   FValue := 0;
  608.   FCaption := 'Process';
  609.   FLabelCaption := 'Name of process:';
  610.   FShowPercent := True;
  612.   FButtonSkinDataName := 'button';
  613.   FLabelSkinDataName := 'stdlabel';
  614.   FGaugeSkinDataName := 'gauge';
  616.   FDefaultLabelFont := TFont.Create;
  617.   FDefaultButtonFont := TFont.Create;
  618.   FDefaultGaugeFont := TFont.Create;
  620.   FUseSkinFont := True;
  622.   with FDefaultLabelFont do
  623.   begin
  624.     Name := 'Arial';
  625.     Style := [];
  626.     Height := 14;
  627.   end;
  629.   with FDefaultButtonFont do
  630.   begin
  631.     Name := 'Arial';
  632.     Style := [];
  633.     Height := 14;
  634.   end;
  636.   with FDefaultGaugeFont do
  637.   begin
  638.     Name := 'Arial';
  639.     Style := [];
  640.     Height := 14;
  641.   end;
  642. end;
  644. destructor TspSkinProgressDialog.Destroy;
  645. begin
  646.   FDefaultLabelFont.Free;
  647.   FDefaultButtonFont.Free;
  648.   FDefaultGaugeFont.Free;
  649.   inherited;
  650. end;
  652. procedure TspSkinProgressDialog.SetValue(AValue: Integer);
  653. begin
  654.   FValue := AValue;
  655.   if FExecute
  656.   then
  657.     begin
  658.       Gauge.Value := FValue;
  659.       if Gauge.Value = Gauge.MaxValue
  660.       then
  661.         if FShowType = stModal
  662.         then
  663.           Form.ModalResult := mrOk
  664.         else
  665.           Form.Close;  
  666.     end;  
  667. end;
  669. procedure TspSkinProgressDialog.SetDefaultLabelFont;
  670. begin
  671.   FDefaultLabelFont.Assign(Value);
  672. end;
  674. procedure TspSkinProgressDialog.SetDefaultGaugeFont;
  675. begin
  676.   FDefaultGaugeFont.Assign(Value);
  677. end;
  679. procedure TspSkinProgressDialog.SetDefaultButtonFont;
  680. begin
  681.   FDefaultButtonFont.Assign(Value);
  682. end;
  684. procedure TspSkinProgressDialog.Notification;
  685. begin
  686.   inherited Notification(AComponent, Operation);
  687.   if (Operation = opRemove) and (AComponent = FSD) then FSD := nil;
  688.   if (Operation = opRemove) and (AComponent = FCtrlFSD) then FCtrlFSD := nil;
  689. end;
  691. procedure TspSkinProgressDialog.OnFormShow(Sender: TObject);
  692. begin
  693.   if Assigned(FOnShow) then FOnShow(Self);
  694. end;
  696. procedure TspSkinProgressDialog.CancelBtnClick(Sender: TObject);
  697. begin
  698.   Form.Close;
  699.   if Assigned(FOnCancel) then FOnCancel(Self);
  700. end;
  702. procedure TspSkinProgressDialog.OnFormClose;
  703. begin
  704.   FExecute := False;
  705.   Gauge := nil;
  706.   Form := nil;
  707.   if Value <> MaxValue
  708.   then
  709.     if Assigned(FOnCancel) then FOnCancel(Self);
  710.   Action := caFree;
  711. end;
  713. function TspSkinProgressDialog.Execute;
  714. var
  715.   DSF: TspDynamicSkinForm;
  716.   Prompt: TspSkinStdLabel;
  717.   DialogUnits: TPoint;
  718.   ButtonWidth, ButtonHeight: Integer;
  719. begin
  720.   if FExecute
  721.   then
  722.     begin
  723.       Result := False;
  724.       Exit;
  725.     end;
  726.   Form := TForm.Create(Application);
  727.   Form.BorderStyle := bsDialog;
  728.   if FShowType = stStayOnTop
  729.   then
  730.      begin
  731.        Form.FormStyle := fsStayOnTop;
  732.        Form.OnClose := OnFormClose;
  733.      end;
  734.   Form.Caption := FCaption;
  735.   Form.Position := poScreenCenter;
  736.   Form.OnShow := OnFormShow;
  737.   DSF := TspDynamicSkinForm.Create(Form);
  738.   DSF.BorderIcons := [];
  739.   DSF.SkinData := SkinData;
  740.   DSF.MenusSkinData := CtrlSkinData;
  741.   DSF.AlphaBlend := AlphaBlend;
  742.   DSF.AlphaBlendAnimation := AlphaBlendAnimation;
  743.   DSF.AlphaBlendValue := AlphaBlendValue;
  745.   try
  747.   with Form do
  748.   begin
  749.     Canvas.Font := Font;
  750.     DialogUnits := GetAveCharSize(Canvas);
  751.     ClientWidth := MulDiv(180, DialogUnits.X, 4);
  752.   end;
  754.   Prompt := TspSkinStdLabel.Create(Form);
  755.   with Prompt do
  756.   begin
  757.     Parent := Form;
  758.     Left := MulDiv(8, DialogUnits.X, 4);
  759.     Top := MulDiv(8, DialogUnits.Y, 8);
  760.     Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4);
  761.     WordWrap := False;
  762.     DefaultFont := DefaultLabelFont;
  763.     UseSkinFont := Self.UseSkinFont;
  764.     SkinDataName := FLabelSkinDataName;
  765.     SkinData := CtrlSkinData;
  766.     Caption := FLabelCaption;
  767.   end;
  769.   Gauge := TspSkinGauge.Create(Form);
  770.   with Gauge do
  771.   begin
  772.     Parent := Form;
  773.     MinValue := FMinValue;
  774.     MaxValue := FMaxValue;
  775.     ShowPercent := FShowPercent;
  776.     Value := FValue;
  777.     DefaultFont := DefaultGaugeFont;
  778.     UseSkinFont := Self.UseSkinFont;
  779.     Left := Prompt.Left;
  780.     Top := Prompt.Top + Prompt.Height + 5;
  781.     DefaultWidth := MulDiv(164, DialogUnits.X, 4);
  782.     SkinDataName := FGaugeSkinDataName;
  783.     SkinData := CtrlSkinData;
  784.   end;
  786.   ButtonWidth := MulDiv(50, DialogUnits.X, 4);
  787.   ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
  789.   with TspSkinButton.Create(Form) do
  790.   begin
  791.     Parent := Form;
  792.     DefaultFont := DefaultButtonFont;
  793.     UseSkinFont := Self.UseSkinFont;
  794.     Caption := SP_MSG_BTN_CANCEL;
  795.     if FShowType = stStayOnTop then OnClick := CancelBtnClick;
  796.     ModalResult := mrCancel;
  797.     Cancel := True;
  798.     SetBounds(Gauge.Left + Gauge.Width - ButtonWidth, Gauge.Top + Gauge.Height + 15,
  799.               ButtonWidth, ButtonHeight);
  800.     DefaultHeight := ButtonHeight;
  801.     SkinDataName := FButtonSkinDataName;
  802.     SkinData := CtrlSkinData;
  803.     Form.ClientHeight := Top + Height + 13;
  804.   end;
  806.   FExecute := True;
  808.   if FShowType = stModal
  809.   then
  810.     begin
  811.       if Form.ShowModal = mrOk then Result := True else Result := False;
  812.       FExecute := False;
  813.     end
  814.   else
  815.     begin
  816.       Result := True;
  817.       Form.Show;
  818.     end;
  820.   finally
  821.     if FShowType = stModal
  822.     then
  823.       begin
  824.         Form.Free;
  825.         Gauge := nil;
  826.         Form := nil;
  827.       end;  
  828.   end;
  829. end;
  831. constructor TspFontDlgForm.Create(AOwner: TComponent);
  832. begin
  833.   inherited CreateNew(AOwner);
  834.   KeyPreview := True;
  835.   BorderStyle := bsDialog;
  836.   Position := poScreenCenter;
  837.   DSF := TspDynamicSkinForm.Create(Self);
  839.   FontColorLabel := TspSkinStdLabel.Create(Self);
  840.   with FontColorLabel do
  841.   begin
  842.     Left := 5;
  843.     Top := 50;
  844.     Caption := SP_FONTDLG_COLOR;
  845.     AutoSize := True;
  846.     Parent := Self;
  847.   end;
  849.   FontColorBox := TspSkinColorComboBox.Create(Self);
  850.   with FontColorBox do
  851.   begin
  852.     Left := 5;
  853.     Top := 65;
  854.     Width := 200;
  855.     DefaultHeight := 21;
  856.     Parent := Self;
  857.     ExStyle := [spcbCustomColor, spcbPrettyNames, spcbStandardColors];
  858.     OnChange := FontColorChange;
  859.   end;
  861.   FontNameLabel := TspSkinStdLabel.Create(Self);
  862.   with FontNameLabel do
  863.   begin
  864.     Left := 5;
  865.     Top := 5;
  866.     Caption := SP_FONTDLG_NAME;
  867.     AutoSize := True;
  868.     Parent := Self;
  869.   end;
  871.   FontNameBox := TspSkinFontComboBox.Create(Self);
  872.   with FontNameBox do
  873.   begin
  874.     Left := 5;
  875.     Top := 20;
  876.     Width := 200;
  877.     DefaultHeight := 21;
  878.     Parent := Self;
  879.     PopulateList;
  880.     TabOrder := 0;
  881.     TabStop := True;
  882.     OnChange := FontNameChange;
  883.   end;
  885.   FontSizeLabel := TspSkinStdLabel.Create(Self);
  886.   with FontSizeLabel do
  887.   begin
  888.     Left := 5;
  889.     Top := 95;
  890.     Caption := SP_FONTDLG_SIZE;
  891.     AutoSize := True;
  892.     Parent := Self;
  893.   end;
  895.   FontSizeEdit := TspSkinSpinEdit.Create(Self);
  896.   with  FontSizeEdit do
  897.   begin
  898.     MinValue := -100;
  899.     MaxValue := 100;
  900.     Left := 5;
  901.     Top := 110;
  902.     Parent := Self;
  903.     Width := 95;
  904.     OnChange := FontSizeChange;
  905.   end;
  907.   FontHeightLabel := TspSkinStdLabel.Create(Self);
  908.   with FontHeightLabel do
  909.   begin
  910.     Left := 110;
  911.     Top := 95;
  912.     Caption := SP_FONTDLG_HEIGHT;
  913.     AutoSize := True;
  914.     Parent := Self;
  915.   end;
  917.   FontHeightEdit := TspSkinSpinEdit.Create(Self);
  918.   with FontHeightEdit do
  919.   begin
  920.     MinValue := -500;
  921.     MaxValue := 500;
  922.     Left := 110;
  923.     Top := 110;
  924.     Width := 95;
  925.     Parent := Self;
  926.     OnChange := FontHeightChange;
  927.   end;
  929.   FontExLabel := TspSkinStdLabel.Create(Self);
  930.   with FontExLabel do
  931.   begin
  932.     Left := 210;
  933.     Top := 50;
  934.     Caption := SP_FONTDLG_EXAMPLE;
  935.     AutoSize := True;
  936.     Parent := Self;
  937.   end;
  939.   FontExamplePanel := TspSkinPanel.Create(Self);
  940.   with FontExamplePanel do
  941.   begin
  942.     Parent := Self;
  943.     BorderStyle := bvFrame;
  944.     Left := 210;
  945.     Top := 65;
  946.     Width := 185;
  947.     Height := 67;
  948.   end;
  950.   FontExampleLabel := TLabel.Create(Self);
  951.   with FontExampleLabel do
  952.   begin
  953.     Parent := FontExamplePanel;
  954.     Transparent := True;
  955.     Align := alClient;
  956.     Caption := 'AaBbYyZz';
  957.   end;
  959.   OkButton := TspSkinButton.Create(Self);
  960.   with OkButton do
  961.   begin
  962.     Caption := SP_MSG_BTN_OK;
  963.     CanFocused := True;
  964.     Left := 230;
  965.     Top := 155;
  966.     Width := 75;
  967.     DefaultHeight := 25;
  968.     Parent := Self;
  969.     ModalResult := mrOk;
  970.   end;
  972.   CancelButton := TspSkinButton.Create(Self);
  973.   with CancelButton do
  974.   begin
  975.     Caption := SP_MSG_BTN_CANCEL;
  976.     CanFocused := True;
  977.     Left := 320;
  978.     Top := 155;
  979.     Width := 75;
  980.     DefaultHeight := 25;
  981.     Parent := Self;
  982.     ModalResult := mrCancel;
  983.     Cancel := True;
  984.   end;
  986.   FontStyleLabel := TspSkinStdLabel.Create(Self);
  987.   with FontStyleLabel do
  988.   begin
  989.     Left := 210;
  990.     Top := 5;
  991.     Caption := SP_FONTDLG_STYLE;
  992.     AutoSize := True;
  993.     Parent := Self;
  994.   end;
  996.   BoldButton := TspSkinSpeedButton.Create(Self);
  997.   with BoldButton do
  998.   begin
  999.     Parent := Self;
  1000.     AllowAllUp := True;
  1001.     DefaultWidth := 25;
  1002.     DefaultHeight := 25;
  1003.     SkinDataName := 'toolbutton';
  1004.     GroupIndex := 1;
  1005.     NumGlyphs := 1;
  1006.     Left := 210;
  1007.     Top := 20;
  1008.     Glyph.LoadFromResourceName(HInstance, 'SP_BOLD');
  1009.     OnClick := BoldButtonClick;
  1010.   end;
  1012.   ItalicButton := TspSkinSpeedButton.Create(Self);
  1013.   with ItalicButton do
  1014.   begin
  1015.     Parent := Self;
  1016.     AllowAllUp := True;
  1017.     DefaultWidth := 25;
  1018.     DefaultHeight := 25;
  1019.     SkinDataName := 'toolbutton';
  1020.     GroupIndex := 1;
  1021.     NumGlyphs := 1;
  1022.     Left := 240;
  1023.     Top := 20;
  1024.     Glyph.LoadFromResourceName(HInstance, 'SP_ITALIC');
  1025.     OnClick := ItalicButtonClick;
  1026.   end;
  1028.   UnderLineButton := TspSkinSpeedButton.Create(Self);
  1029.   with UnderLineButton do
  1030.   begin
  1031.     Parent := Self;
  1032.     AllowAllUp := True;
  1033.     DefaultWidth := 25;
  1034.     DefaultHeight := 25;
  1035.     SkinDataName := 'toolbutton';
  1036.     GroupIndex := 1;
  1037.     NumGlyphs := 1;
  1038.     Left := 270;
  1039.     Top := 20;
  1040.     Glyph.LoadFromResourceName(HInstance, 'SP_UNDERLINE');
  1041.     OnClick := UnderLineButtonClick;
  1042.   end;
  1044.   StrikeOutButton := TspSkinSpeedButton.Create(Self);
  1045.   with StrikeOutButton do
  1046.   begin
  1047.     Parent := Self;
  1048.     AllowAllUp := True;
  1049.     DefaultWidth := 25;
  1050.     DefaultHeight := 25;
  1051.     SkinDataName := 'toolbutton';
  1052.     GroupIndex := 1;
  1053.     NumGlyphs := 1;
  1054.     Left := 300;
  1055.     Top := 20;
  1056.     Glyph.LoadFromResourceName(HInstance, 'SP_STRIKEOUT');
  1057.     OnClick := StrikeOutButtonClick;
  1058.   end;
  1060. end;
  1062. procedure TspFontDlgForm.FontSizeChange(Sender: TObject);
  1063. begin
  1064.   FontExampleLabel.Font.Size := Trunc(FontSizeEdit.Value);
  1065.   FontHeightEdit.SimpleSetValue(FontExampleLabel.Font.Height);
  1066. end;
  1068. procedure TspFontDlgForm.FontHeightChange(Sender: TObject);
  1069. begin
  1070.   FontExampleLabel.Font.Height := Trunc(FontHeightEdit.Value);
  1071.   FontSizeEdit.SimpleSetValue(FontExampleLabel.Font.Size);
  1072. end;
  1074. procedure TspFontDlgForm.FontNameChange(Sender: TObject);
  1075. begin
  1076.   FontExampleLabel.Font.Name := FontNameBox.FontName;
  1077. end;
  1079. procedure TspFontDlgForm.FontColorChange(Sender: TObject);
  1080. begin
  1081.   FontExampleLabel.Font.Color := FontColorBox.Selected;
  1082. end;
  1084. procedure TspFontDlgForm.BoldButtonClick(Sender: TObject);
  1085. begin
  1086.   if BoldButton.Down
  1087.   then
  1088.     FontExampleLabel.Font.Style := FontExampleLabel.Font.Style + [fsBold]
  1089.   else
  1090.     FontExampleLabel.Font.Style := FontExampleLabel.Font.Style - [fsBold];
  1091. end;
  1093. procedure TspFontDlgForm.ItalicButtonClick(Sender: TObject);
  1094. begin
  1095.   if ItalicButton.Down
  1096.   then
  1097.     FontExampleLabel.Font.Style := FontExampleLabel.Font.Style + [fsItalic]
  1098.   else
  1099.     FontExampleLabel.Font.Style := FontExampleLabel.Font.Style - [fsItalic];
  1100. end;
  1102. procedure TspFontDlgForm.StrikeOutButtonClick(Sender: TObject);
  1103. begin
  1104.   if StrikeOutButton.Down
  1105.   then
  1106.     FontExampleLabel.Font.Style := FontExampleLabel.Font.Style + [fsStrikeOut]
  1107.   else
  1108.     FontExampleLabel.Font.Style := FontExampleLabel.Font.Style - [fsStrikeOut];
  1109. end;
  1111. procedure TspFontDlgForm.UnderLineButtonClick(Sender: TObject);
  1112. begin
  1113.   if UnderLineButton.Down
  1114.   then
  1115.     FontExampleLabel.Font.Style := FontExampleLabel.Font.Style + [fsUnderLine]
  1116.   else
  1117.     FontExampleLabel.Font.Style := FontExampleLabel.Font.Style - [fsUnderLine];
  1118. end;
  1120. constructor TspSkinFontDialog.Create(AOwner: TComponent);
  1121. begin
  1122.   inherited Create(AOwner);
  1123.   FAlphaBlend := False;
  1124.   FAlphaBlendAnimation := False;
  1125.   FAlphaBlendValue := 200;
  1126.   FTitle := 'Font';
  1127.   FDefaultFont := TFont.Create;
  1128.   FFont := TFont.Create;
  1129.   with FDefaultFont do
  1130.   begin
  1131.     Name := 'Arial';
  1132.     Style := [];
  1133.     Height := 14;
  1134.   end;
  1135.   FShowSizeEdit := True;
  1136.   FShowHeightEdit := True;
  1137. end;
  1139. destructor TspSkinFontDialog.Destroy;
  1140. begin
  1141.   FDefaultFont.Free;
  1142.   FFont.Free;
  1143.   inherited Destroy;
  1144. end;
  1146. procedure TspSkinFontDialog.SetDefaultFont;
  1147. begin
  1148.   FDefaultFont.Assign(Value);
  1149. end;
  1151. procedure TspSkinFontDialog.SetFont;
  1152. begin
  1153.   FFont.Assign(Value);
  1154. end;
  1156. procedure TspSkinFontDialog.Notification;
  1157. begin
  1158.   inherited Notification(AComponent, Operation);
  1159.   if (Operation = opRemove) and (AComponent = FSD) then FSD := nil;
  1160.   if (Operation = opRemove) and (AComponent = FCtrlFSD) then FCtrlFSD := nil;
  1161. end;
  1163. function TspSkinFontDialog.GetTitle: string;
  1164. begin
  1165.   Result := FTitle;
  1166. end;
  1168. procedure TspSkinFontDialog.SetTitle(const Value: string);
  1169. begin
  1170.   FTitle := Value;
  1171. end;
  1173. procedure TspSkinFontDialog.Change;
  1174. begin
  1175.   if Assigned(FOnChange) then FOnChange(Self);
  1176. end;
  1178. function TspSkinFontDialog.Execute: Boolean;
  1179. var
  1180.   FW, FH: Integer;
  1181. begin
  1182.   FDlgFrm := TspFontDlgForm.Create(Application);
  1183.   with FDlgFrm do
  1184.   try
  1185.     Caption := Self.Title;
  1186.     DSF.BorderIcons := [];
  1187.     DSF.SkinData := FSD;
  1188.     DSF.MenusSkinData := CtrlSkinData;
  1189.     DSF.AlphaBlend := AlphaBlend;
  1190.     DSF.AlphaBlendAnimation := AlphaBlendAnimation;
  1191.     DSF.AlphaBlendValue := AlphaBlendValue;
  1192.     DSF.Sizeable := False;
  1193.     //
  1194.     FontNameBox.SkinData := FCtrlFSD;
  1195.     FontColorBox.SkinData := FCtrlFSD;
  1196.     FontSizeEdit.SkinData := FCtrlFSD;
  1197.     FontHeightEdit.SkinData := FCtrlFSD;
  1198.     FontExamplePanel.SkinData := FCtrlFSD;
  1199.     OkButton.SkinData := FCtrlFSD;
  1200.     CancelButton.SkinData := FCtrlFSD;
  1201.     BoldButton.SkinData := FCtrlFSD;
  1202.     ItalicButton.SkinData := FCtrlFSD;
  1203.     UnderLineButton.SkinData := FCtrlFSD;
  1204.     StrikeOutButton.SkinData := FCtrlFSD;
  1205.     //
  1206.     FontHeightLabel.SkinData := FCtrlFSD;
  1207.     FontSizeLabel.SkinData := FCtrlFSD;
  1208.     FontStyleLabel.SkinData := FCtrlFSD;
  1209.     FontNameLabel.SkinData := FCtrlFSD;
  1210.     FontColorLabel.SkinData := FCtrlFSD;
  1211.     FontExLabel.SkinData := FCtrlFSD;
  1212.     //
  1213.     FontExampleLabel.Font.Assign(Self.Font);
  1214.     FontNameBox.FontName := FontExampleLabel.Font.Name;
  1215.     FontColorBox.Selected := FontExampleLabel.Font.Color;
  1216.     FontSizeEdit.SimpleSetValue(FontExampleLabel.Font.Size);
  1217.     FontHeightEdit.SimpleSetValue(FontExampleLabel.Font.Height);
  1218.     FontSizeEdit.Visible := FShowSizeEdit;
  1219.     FontHeightEdit.Visible := FShowHeightEdit;
  1220.     FontHeightLabel.Visible := FShowHeightEdit;
  1221.     FontSizeLabel.Visible := FShowSizeEdit;
  1222.     //
  1223.     if fsBold in FontExampleLabel.Font.Style
  1224.     then
  1225.       BoldButton.Down := True;
  1226.     if fsItalic in FontExampleLabel.Font.Style
  1227.     then
  1228.       ItalicButton.Down := True;
  1229.     if fsStrikeOut in FontExampleLabel.Font.Style
  1230.     then
  1231.       StrikeOutButton.Down := True;
  1232.     if fsUnderLine in FontExampleLabel.Font.Style
  1233.     then
  1234.       UnderLineButton.Down := True;
  1235.     //
  1236.     FW := 400;
  1237.     FH := 190;
  1238.     if (SkinData <> nil) and not SkinData.Empty
  1239.     then
  1240.       begin
  1241.         if FW < DSF.GetMinWidth then FW := DSF.GetMinWidth;
  1242.         if FH < DSF.GetMinHeight then FH := DSF.GetMinHeight;
  1243.       end;
  1244.     ClientWidth := FW;
  1245.     ClientHeight := FH;
  1246.     //
  1247.     Result := (ShowModal = mrOk);
  1248.     if Result
  1249.     then
  1250.       begin
  1251.         Self.Font.Assign(FontExampleLabel.Font);
  1252.         Change;
  1253.       end;
  1254.   finally
  1255.     Free;
  1256.     FDlgFrm := nil;
  1257.   end;
  1258. end;
  1261. constructor TspSkinTextDialog.Create;
  1262. begin
  1263.   inherited Create(AOwner);
  1264.   FAlphaBlend := False;
  1265.   FAlphaBlendAnimation := False;
  1266.   FAlphaBlendValue := 200;
  1268.   Memo := nil;
  1270.   FSkinOpenDialog := nil;
  1271.   FSkinSaveDialog := nil;
  1273.   FClientWidth := 350;
  1274.   FClientHeight := 200;
  1276.   FLines := TStringList.Create;
  1278.   FCaption := 'Input text';
  1280.   FButtonSkinDataName := 'button';
  1281.   FMemoSkinDataName := 'memo';
  1283.   FDefaultButtonFont := TFont.Create;
  1284.   FDefaultMemoFont := TFont.Create;
  1286.   FUseSkinFont := True;
  1288.   ShowToolBar := True;
  1290.   with FDefaultButtonFont do
  1291.   begin
  1292.     Name := 'Arial';
  1293.     Style := [];
  1294.     Height := 14;
  1295.   end;
  1297.   with FDefaultMemoFont do
  1298.   begin
  1299.     Name := 'Arial';
  1300.     Style := [];
  1301.     Height := 14;
  1302.   end;
  1303. end;
  1305. destructor TspSkinTextDialog.Destroy;
  1306. begin
  1307.   FDefaultMemoFont.Free;
  1308.   FDefaultButtonFont.Free;
  1309.   FLines.Free;
  1310.   inherited;
  1311. end;
  1313. procedure TspSkinTextDialog.NewButtonClick(Sender: TObject);
  1314. begin
  1315.   Memo.Clear;
  1316. end;
  1318. procedure TspSkinTextDialog.OpenButtonClick(Sender: TObject);
  1319. var
  1320.   OD: TOpenDialog;
  1321. begin
  1322.   if FSkinOpenDialog <> nil
  1323.   then
  1324.     begin
  1325.       if FSkinOpenDialog.Execute
  1326.       then Memo.Lines.LoadFromFile(FSkinOpenDialog.FileName);
  1327.     end
  1328.   else
  1329.     begin
  1330.       OD := TOpenDialog.Create(Self);
  1331.       OD.Filter := '*.txt|*.txt|*.*|*.*';
  1332.       if OD.Execute then Memo.Lines.LoadFromFile(OD.FileName);
  1333.       OD.Free;
  1334.     end;
  1335. end;
  1337. procedure TspSkinTextDialog.SaveButtonClick(Sender: TObject);
  1338. var
  1339.   SD: TSaveDialog;
  1340. begin
  1341.   if FSkinSaveDialog <> nil
  1342.   then
  1343.     begin
  1344.       if FSkinSaveDialog.Execute
  1345.       then Memo.Lines.LoadFromFile(FSkinSaveDialog.FileName);
  1346.     end
  1347.   else
  1348.     begin
  1349.       SD := TSaveDialog.Create(Self);
  1350.       SD.Filter := '*.txt|*.txt|*.*|*.*';
  1351.       if SD.Execute then Memo.Lines.SaveToFile(SD.FileName);
  1352.       SD.Free;
  1353.     end;  
  1354. end;
  1355. procedure TspSkinTextDialog.CopyButtonClick(Sender: TObject);
  1356. begin
  1357.   Memo.CopyToClipboard;
  1358. end;
  1360. procedure TspSkinTextDialog.CutButtonClick(Sender: TObject);
  1361. begin
  1362.   Memo.CutToClipboard;
  1363. end;
  1365. procedure TspSkinTextDialog.PasteButtonClick(Sender: TObject);
  1366. begin
  1367.   Memo.PasteFromClipboard;
  1368. end;
  1370. procedure TspSkinTextDialog.DeleteButtonClick(Sender: TObject);
  1371. begin
  1372.   Memo.ClearSelection;
  1373. end;
  1375. procedure TspSkinTextDialog.SetLines(Value: TStrings);
  1376. begin
  1377.   FLines.Assign(Value);
  1378. end;
  1380. procedure TspSkinTextDialog.SetClientWidth(Value: Integer);
  1381. begin
  1382.   if Value > 0 then FClientWidth := Value;
  1383. end;
  1385. procedure TspSkinTextDialog.SetClientHeight(Value: Integer);
  1386. begin
  1387.   if Value > 0 then FClientHeight := Value;
  1388. end;
  1390. procedure TspSkinTextDialog.SetDefaultMemoFont;
  1391. begin
  1392.   FDefaultMemoFont.Assign(Value);
  1393. end;
  1395. procedure TspSkinTextDialog.SetDefaultButtonFont;
  1396. begin
  1397.   FDefaultButtonFont.Assign(Value);
  1398. end;
  1400. procedure TspSkinTextDialog.Notification;
  1401. begin
  1402.   inherited Notification(AComponent, Operation);
  1403.   if (Operation = opRemove) and (AComponent = FSD) then FSD := nil;
  1404.   if (Operation = opRemove) and (AComponent = FCtrlFSD) then FCtrlFSD := nil;
  1405.   if (Operation = opRemove) and (AComponent = FSkinOpenDialog) then FSkinOpenDialog := nil;
  1406.   if (Operation = opRemove) and (AComponent = FSkinSaveDialog) then FSkinSaveDialog := nil;
  1407. end;
  1409. function TspSkinTextDialog.Execute: Boolean;
  1410. var
  1411.   Form: TForm;
  1412.   DSF: TspDynamicSkinForm;
  1413.   ButtonWidth, ButtonHeight: Integer;
  1414.   Panel: TspSkinPanel;
  1415.   HMemoScrollBar, VMemoScrollBar: TspSkinScrollBar;
  1416.   ToolPanel: TspSkinPanel;
  1417. begin
  1418.   Form := TForm.Create(Application);
  1419.   Form.BorderStyle := bsDialog;
  1420.   Form.Caption := FCaption;
  1421.   Form.Position := poScreenCenter;
  1422.   DSF := TspDynamicSkinForm.Create(Form);
  1423.   DSF.BorderIcons := [];
  1424.   DSF.SkinData := SkinData;
  1425.   DSF.MenusSkinData := CtrlSkinData;
  1426.   DSF.SizeAble := False;
  1427.   DSF.AlphaBlend := AlphaBlend;
  1428.   DSF.AlphaBlendAnimation := AlphaBlendAnimation;
  1429.   DSF.AlphaBlendValue := AlphaBlendValue;
  1431.   try
  1433.   with Form do
  1434.   begin
  1435.     ClientWidth := FClientWidth;
  1436.     ClientHeight := FClientHeight;
  1437.     ButtonWidth := 80;
  1438.     ButtonHeight := 25;
  1440.     with TspSkinButton.Create(Form) do
  1441.     begin
  1442.       Parent := Form;
  1443.       DefaultFont := DefaultButtonFont;
  1444.       UseSkinFont := Self.UseSkinFont;
  1445.       Caption := SP_MSG_BTN_OK;
  1446.       DefaultHeight := ButtonHeight;
  1447.       ModalResult := mrOk;
  1448.       Default := True;
  1449.       SkinDataName := FButtonSkinDataName;
  1450.       SkinData := CtrlSkinData;
  1451.       SetBounds(FClientWidth - ButtonWidth * 2 - 20, FClientHeight - Height - 10,
  1452.                 ButtonWidth, Height);
  1453.     end;
  1455.     with TspSkinButton.Create(Form) do
  1456.     begin
  1457.       Parent := Form;
  1458.       DefaultFont := DefaultButtonFont;
  1459.       UseSkinFont := Self.UseSkinFont;
  1460.       Caption := SP_MSG_BTN_CANCEL;
  1461.       DefaultHeight := ButtonHeight;
  1462.       ModalResult := mrCancel;
  1463.       Cancel := True;
  1464.       SkinDataName := FButtonSkinDataName;
  1465.       SkinData := CtrlSkinData;
  1466.       SetBounds(FClientWidth - ButtonWidth - 10, FClientHeight - Height - 10,
  1467.                 ButtonWidth, Height);
  1468.       ButtonHeight := Height;          
  1469.     end;
  1471.     Panel := TspSkinPanel.Create(Form);
  1472.     with Panel do
  1473.     begin
  1474.       Parent := Form;
  1475.       Align := alTop;
  1476.       SkinData := CtrlSkinData;
  1477.     end;
  1479.     if FShowToolBar
  1480.     then
  1481.       begin
  1482.         ToolPanel := TspSkinPanel.Create(Form);
  1483.         with ToolPanel do
  1484.         begin
  1485.           Parent := Form;
  1486.           Align := alTop;
  1487.           DefaultHeight := 25;
  1488.           SkinDataName := 'toolpanel';
  1489.           SkinData := CtrlSkinData;
  1490.         end;
  1492.         with TspSkinSpeedButton.Create(Form) do
  1493.         begin
  1494.           Parent := ToolPanel;
  1495.           DefaultWidth := 27;
  1496.           SkinDataName := 'toolbutton';
  1497.           Align := alLeft;
  1498.           OnClick := NewButtonClick;
  1499.           NumGlyphs := 1;
  1500.           Glyph.LoadFromResourceName(HInstance, 'SP_NEW');
  1501.           SkinData := CtrlSkinData;
  1502.         end;
  1504.         with TspSkinSpeedButton.Create(Form) do
  1505.         begin
  1506.           Parent := ToolPanel;
  1507.           DefaultWidth := 27;
  1508.           SkinDataName := 'toolbutton';
  1509.           Align := alLeft;
  1510.           OnClick := OpenButtonClick;
  1511.           NumGlyphs := 1;
  1512.           Glyph.LoadFromResourceName(HInstance, 'SP_OPEN');
  1513.           SkinData := CtrlSkinData;
  1514.         end;
  1516.         with TspSkinSpeedButton.Create(Form) do
  1517.         begin
  1518.           Parent := ToolPanel;
  1519.           DefaultWidth := 27;
  1520.           SkinDataName := 'toolbutton';
  1521.           Align := alLeft;
  1522.           OnClick := SaveButtonClick;
  1523.           NumGlyphs := 1;
  1524.           Glyph.LoadFromResourceName(HInstance, 'SP_SAVE');
  1525.           SkinData := CtrlSkinData;
  1526.         end;
  1528.         with TspSkinBevel.Create(Form) do
  1529.         begin
  1530.           Parent := ToolPanel;
  1531.           Width := 24;
  1532.           Align := alLeft;
  1533.           DividerMode := True;
  1534.           Shape := bsLeftLine;
  1535.           SkinData := CtrlSkinData;
  1536.         end;
  1538.         with TspSkinSpeedButton.Create(Form) do
  1539.         begin
  1540.           Parent := ToolPanel;
  1541.           DefaultWidth := 27;
  1542.           SkinDataName := 'toolbutton';
  1543.           Align := alLeft;
  1544.           OnClick := CopyButtonClick;
  1545.           NumGlyphs := 1;
  1546.           Glyph.LoadFromResourceName(HInstance, 'SP_COPY');
  1547.           SkinData := CtrlSkinData;
  1548.         end;
  1550.         with TspSkinSpeedButton.Create(Form) do
  1551.         begin
  1552.           Parent := ToolPanel;
  1553.           DefaultWidth := 27;
  1554.           SkinDataName := 'toolbutton';
  1555.           Align := alLeft;
  1556.           OnClick := CutButtonClick;
  1557.           NumGlyphs := 1;
  1558.           Glyph.LoadFromResourceName(HInstance, 'SP_CUT');
  1559.           SkinData := CtrlSkinData;
  1560.         end;
  1562.         with TspSkinSpeedButton.Create(Form) do
  1563.         begin
  1564.           Parent := ToolPanel;
  1565.           DefaultWidth := 27;
  1566.           SkinDataName := 'toolbutton';
  1567.           Align := alLeft;
  1568.           OnClick := PasteButtonClick;
  1569.           NumGlyphs := 1;
  1570.           Glyph.LoadFromResourceName(HInstance, 'SP_PASTE');
  1571.           SkinData := CtrlSkinData;
  1572.         end;
  1574.         with TspSkinSpeedButton.Create(Form) do
  1575.         begin
  1576.           Parent := ToolPanel;
  1577.           DefaultWidth := 27;
  1578.           SkinDataName := 'toolbutton';
  1579.           Align := alLeft;
  1580.           OnClick := DeleteButtonClick;
  1581.           NumGlyphs := 1;
  1582.           Glyph.LoadFromResourceName(HInstance, 'SP_DELETE');
  1583.           SkinData := CtrlSkinData;
  1584.         end;
  1586.       end;
  1588.     with Panel do
  1589.     begin
  1590.       if FShowToolBar
  1591.       then
  1592.         Height := FClientHeight -  ButtonHeight - 20 - ToolPanel.Height
  1593.       else
  1594.         Height := FClientHeight -  ButtonHeight - 20;
  1595.     end;
  1597.     VMemoScrollBar := TspSkinScrollBar.Create(Form);
  1598.     with VMemoScrollBar do
  1599.     begin
  1600.       Kind := sbVertical;
  1601.       Parent := Panel;
  1602.       Align := alRight;
  1603.       DefaultWidth := 19;
  1604.       Enabled := False;
  1605.       SkinDataName := 'vscrollbar';
  1606.       SkinData := CtrlSkinData;
  1607.     end;
  1609.     HMemoScrollBar := TspSkinScrollBar.Create(Form);
  1610.     with HMemoScrollBar do
  1611.     begin
  1612.       Parent := Panel;
  1613.       Align := alBottom;
  1614.       DefaultHeight := 19;
  1615.       Enabled := False;
  1616.       BothMarkerWidth := 19;
  1617.       Both := True;
  1618.       SkinDataName := 'bothhscrollbar';
  1619.       SkinData := CtrlSkinData;
  1620.     end;
  1622.     Memo := TspSkinMemo2.Create(Form);
  1623.     with Memo do
  1624.     begin
  1625.       Parent := Panel;
  1626.       Lines.Assign(Self.Lines);
  1627.       Align := alClient;
  1628.       HScrollBar := HMemoScrollBar;
  1629.       VScrollBar := VMemoScrollBar;
  1630.       SkinData := CtrlSkinData;
  1631.     end;
  1633.   end;  
  1634.   
  1635.   if Form.ShowModal = mrOk
  1636.   then
  1637.     begin
  1638.       Self.Lines.Assign(Memo.Lines);
  1639.       Result := True;
  1640.     end
  1641.   else
  1642.     Result := False;
  1644.   finally
  1645.     Form.Free;
  1646.   end;
  1647. end;
  1649. constructor TspSkinPasswordDialog.Create;
  1650. begin
  1651.   inherited Create(AOwner);
  1653.   FAlphaBlend := False;
  1654.   FAlphaBlendAnimation := False;
  1655.   FAlphaBlendValue := 200;
  1657.   LoginMode := False;
  1659.   FCaption := 'Password';
  1661.   FPasswordCaption := 'Password:';
  1662.   FPassword := '';
  1664.   FLoginCaption := 'Login name:';
  1665.   FLogin := '';
  1667.   FButtonSkinDataName := 'button';
  1668.   FLabelSkinDataName := 'stdlabel';
  1669.   FEditSkinDataName := 'edit';
  1671.   FDefaultLabelFont := TFont.Create;
  1672.   FDefaultButtonFont := TFont.Create;
  1673.   FDefaultEditFont := TFont.Create;
  1675.   FUseSkinFont := True;
  1677.   with FDefaultLabelFont do
  1678.   begin
  1679.     Name := 'Arial';
  1680.     Style := [];
  1681.     Height := 14;
  1682.   end;
  1684.   with FDefaultButtonFont do
  1685.   begin
  1686.     Name := 'Arial';
  1687.     Style := [];
  1688.     Height := 14;
  1689.   end;
  1691.   with FDefaultEditFont do
  1692.   begin
  1693.     Name := 'Arial';
  1694.     Style := [];
  1695.     Height := 14;
  1696.   end;
  1697. end;
  1699. destructor TspSkinPasswordDialog.Destroy;
  1700. begin
  1701.   FDefaultLabelFont.Free;
  1702.   FDefaultButtonFont.Free;
  1703.   FDefaultEditFont.Free;
  1704.   inherited;
  1705. end;
  1707. procedure TspSkinPasswordDialog.SetDefaultLabelFont;
  1708. begin
  1709.   FDefaultLabelFont.Assign(Value);
  1710. end;
  1712. procedure TspSkinPasswordDialog.SetDefaultEditFont;
  1713. begin
  1714.   FDefaultEditFont.Assign(Value);
  1715. end;
  1717. procedure TspSkinPasswordDialog.SetDefaultButtonFont;
  1718. begin
  1719.   FDefaultButtonFont.Assign(Value);
  1720. end;
  1722. procedure TspSkinPasswordDialog.Notification;
  1723. begin
  1724.   inherited Notification(AComponent, Operation);
  1725.   if (Operation = opRemove) and (AComponent = FSD) then FSD := nil;
  1726.   if (Operation = opRemove) and (AComponent = FCtrlFSD) then FCtrlFSD := nil;
  1727. end;
  1729. function TspSkinPasswordDialog.Execute: Boolean;
  1730. var
  1731.   Form: TForm;
  1732.   DSF: TspDynamicSkinForm;
  1733.   Image: TImage;
  1734.   LoginLabel, PasswordLabel: TspSkinStdLabel;
  1735.   LoginEdit: TspSkinEdit;
  1736.   PasswordEdit: TspSkinPasswordEdit;
  1737.   DialogUnits: TPoint;
  1738.   ButtonTop, ButtonWidth, ButtonHeight: Integer;
  1739.   LeftOffset: Integer;
  1740. begin
  1741.   Form := TForm.Create(Application);
  1742.   Form.BorderStyle := bsDialog;
  1743.   Form.Caption := FCaption;
  1744.   Form.Position := poScreenCenter;
  1745.   DSF := TspDynamicSkinForm.Create(Form);
  1746.   DSF.BorderIcons := [];
  1747.   DSF.SkinData := SkinData;
  1748.   DSF.MenusSkinData := CtrlSkinData;
  1749.   DSF.AlphaBlend := AlphaBlend;
  1750.   DSF.AlphaBlendAnimation := AlphaBlendAnimation;
  1751.   DSF.AlphaBlendValue := AlphaBlendValue;
  1753.   try
  1755.   with Form do
  1756.   begin
  1757.     Canvas.Font := Font;
  1758.     DialogUnits := GetAveCharSize(Canvas);
  1760.     Image := TImage.Create(Form);
  1762.     with Image do
  1763.     begin
  1764.       Parent := Form;
  1765.       Top := MulDiv(8, DialogUnits.Y, 8);
  1766.       Left := MulDiv(8, DialogUnits.X, 4);
  1767.       AutoSize := True;
  1768.       Transparent := True;
  1769.       Picture.Bitmap.Handle := LoadBitMap(HInstance, 'SP_KEY');
  1770.     end;
  1772.     LeftOffset := Image.Width + Image.Left;
  1774.     ClientWidth := LeftOffset + MulDiv(180, DialogUnits.X, 4);
  1775.   end;
  1778.   if FLoginMode
  1779.   then
  1780.     begin
  1781.       LoginLabel := TspSkinStdLabel.Create(Form);
  1782.       with LoginLabel do
  1783.       begin
  1784.         Parent := Form;
  1785.         Left := LeftOffset + MulDiv(8, DialogUnits.X, 4);
  1786.         Top := MulDiv(8, DialogUnits.Y, 8);
  1787.         Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4);
  1788.         DefaultFont := DefaultLabelFont;
  1789.         UseSkinFont := Self.UseSkinFont;
  1790.         SkinDataName := FLabelSkinDataName;
  1791.         SkinData := CtrlSkinData;
  1792.         Caption := FLoginCaption;
  1793.       end;
  1795.       LoginEdit := TspSkinMaskEdit.Create(Form);
  1796.       with LoginEdit do
  1797.       begin
  1798.          Parent := Form;
  1799.          DefaultFont := DefaultEditFont;
  1800.          UseSkinFont := Self.UseSkinFont;
  1801.          Left := LoginLabel.Left;
  1802.          Top := LoginLabel.Top + LoginLabel.Height + 5;
  1803.          DefaultWidth := MulDiv(164, DialogUnits.X, 4);
  1804.          MaxLength := 255;
  1805.          Text := FLogin;
  1806.          SelectAll;
  1807.          SkinDataName := FEditSkinDataName;
  1808.          SkinData := CtrlSkinData;
  1809.        end;
  1810.     end;
  1812.   PasswordLabel := TspSkinStdLabel.Create(Form);
  1813.   with PasswordLabel do
  1814.   begin
  1815.     Parent := Form;
  1816.     Left := LeftOffset + MulDiv(8, DialogUnits.X, 4);
  1817.     if FLoginMode and (LoginEdit <> nil)
  1818.     then
  1819.       Top := LoginEdit.Top + LoginEdit.Height + 5
  1820.     else
  1821.       Top := MulDiv(8, DialogUnits.Y, 8);
  1822.     Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4);
  1823.     DefaultFont := DefaultLabelFont;
  1824.     UseSkinFont := Self.UseSkinFont;
  1825.     SkinDataName := FLabelSkinDataName;
  1826.     SkinData := CtrlSkinData;
  1827.     Caption := FPasswordCaption;
  1828.   end;
  1830.   PasswordEdit := TspSkinPasswordEdit.Create(Form);
  1831.   with PasswordEdit do
  1832.   begin
  1833.     Parent := Form;
  1834.     PasswordKind := Self.PasswordKind;
  1835.     DefaultFont := DefaultEditFont;
  1836.     UseSkinFont := Self.UseSkinFont;
  1837.     Left := PasswordLabel.Left;
  1838.     Top := PasswordLabel.Top + PasswordLabel.Height + 5;
  1839.     DefaultWidth := MulDiv(164, DialogUnits.X, 4);
  1840.     MaxLength := 255;
  1841.     Text := FPassword;
  1842.     SelectAll;
  1843.     SkinDataName := FEditSkinDataName;
  1844.     SkinData := CtrlSkinData;
  1845.   end;
  1847.   ButtonTop := PasswordEdit.Top + PasswordEdit.Height + 15;
  1848.   ButtonWidth := MulDiv(50, DialogUnits.X, 4);
  1849.   ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
  1851.   with TspSkinButton.Create(Form) do
  1852.   begin
  1853.     Parent := Form;
  1854.     DefaultFont := DefaultButtonFont;
  1855.     UseSkinFont := Self.UseSkinFont;
  1856.     Caption := SP_MSG_BTN_OK;
  1857.     ModalResult := mrOk;
  1858.     Default := True;
  1859.     SetBounds(LeftOffset + MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth,
  1860.               ButtonHeight);
  1861.     DefaultHeight := ButtonHeight;
  1862.     SkinDataName := FButtonSkinDataName;
  1863.     SkinData := CtrlSkinData;
  1864.   end;
  1866.   with TspSkinButton.Create(Form) do
  1867.   begin
  1868.     Parent := Form;
  1869.     DefaultFont := DefaultButtonFont;
  1870.     UseSkinFont := Self.UseSkinFont;
  1871.     Caption := SP_MSG_BTN_CANCEL;
  1872.     ModalResult := mrCancel;
  1873.     Cancel := True;
  1874.     SetBounds(LeftOffset + MulDiv(92, DialogUnits.X, 4), PasswordEdit.Top + PasswordEdit.Height + 15,
  1875.               ButtonWidth, ButtonHeight);
  1876.     DefaultHeight := ButtonHeight;
  1877.     SkinDataName := FButtonSkinDataName;
  1878.     SkinData := CtrlSkinData;
  1879.     Form.ClientHeight := Top + Height + 13;
  1880.     Image.Top := Form.ClientHeight div 2 - Image.Height div 2; 
  1881.   end;
  1883.   if Form.ShowModal = mrOk
  1884.   then
  1885.     begin
  1886.       if FLoginMode then FLogin := LoginEdit.Text;
  1887.       FPassword := PasswordEdit.Text;
  1888.       Result := True;
  1889.     end
  1890.   else
  1891.     Result := False;
  1893.   finally
  1894.     Form.Free;
  1895.   end;
  1896. end;
  1898. // ===================== TspSkinConfirmDialog ==================== //
  1900. constructor TspSkinConfirmDialog.Create;
  1901. begin
  1902.   inherited Create(AOwner);
  1904.   FAlphaBlend := False;
  1905.   FAlphaBlendAnimation := False;
  1906.   FAlphaBlendValue := 200;
  1908.   FCaption := 'Confirm password';
  1910.   FPassword1Caption := 'Enter password:';
  1911.   FPassword1 := '';
  1913.   FPassword2Caption := 'Confirm password: ';
  1914.   FPassword2:= '';
  1916.   FButtonSkinDataName := 'button';
  1917.   FLabelSkinDataName := 'stdlabel';
  1918.   FEditSkinDataName := 'edit';
  1920.   FDefaultLabelFont := TFont.Create;
  1921.   FDefaultButtonFont := TFont.Create;
  1922.   FDefaultEditFont := TFont.Create;
  1924.   FUseSkinFont := True;
  1926.   with FDefaultLabelFont do
  1927.   begin
  1928.     Name := 'Arial';
  1929.     Style := [];
  1930.     Height := 14;
  1931.   end;
  1933.   with FDefaultButtonFont do
  1934.   begin
  1935.     Name := 'Arial';
  1936.     Style := [];
  1937.     Height := 14;
  1938.   end;
  1940.   with FDefaultEditFont do
  1941.   begin
  1942.     Name := 'Arial';
  1943.     Style := [];
  1944.     Height := 14;
  1945.   end;
  1946. end;
  1948. destructor TspSkinConfirmDialog.Destroy;
  1949. begin
  1950.   FDefaultLabelFont.Free;
  1951.   FDefaultButtonFont.Free;
  1952.   FDefaultEditFont.Free;
  1953.   inherited;
  1954. end;
  1956. procedure TspSkinConfirmDialog.SetDefaultLabelFont;
  1957. begin
  1958.   FDefaultLabelFont.Assign(Value);
  1959. end;
  1961. procedure TspSkinConfirmDialog.SetDefaultEditFont;
  1962. begin
  1963.   FDefaultEditFont.Assign(Value);
  1964. end;
  1966. procedure TspSkinConfirmDialog.SetDefaultButtonFont;
  1967. begin
  1968.   FDefaultButtonFont.Assign(Value);
  1969. end;
  1971. procedure TspSkinConfirmDialog.Notification;
  1972. begin
  1973.   inherited Notification(AComponent, Operation);
  1974.   if (Operation = opRemove) and (AComponent = FSD) then FSD := nil;
  1975.   if (Operation = opRemove) and (AComponent = FCtrlFSD) then FCtrlFSD := nil;
  1976. end;
  1978. function TspSkinConfirmDialog.Execute: Boolean;
  1979. var
  1980.   Form: TForm;
  1981.   DSF: TspDynamicSkinForm;
  1982.   Image: TImage;
  1983.   Password1Label, Password2Label: TspSkinStdLabel;
  1984.   Password1Edit, Password2Edit: TspSkinPasswordEdit;
  1985.   DialogUnits: TPoint;
  1986.   ButtonTop, ButtonWidth, ButtonHeight: Integer;
  1987.   LeftOffset: Integer;
  1988. begin
  1989.   Form := TForm.Create(Application);
  1990.   Form.BorderStyle := bsDialog;
  1991.   Form.Caption := FCaption;
  1992.   Form.Position := poScreenCenter;
  1994.   DSF := TspDynamicSkinForm.Create(Form);
  1995.   DSF.BorderIcons := [];
  1996.   DSF.SkinData := SkinData;
  1997.   DSF.MenusSkinData := CtrlSkinData;
  1998.   DSF.AlphaBlend := AlphaBlend;
  1999.   DSF.AlphaBlendAnimation := AlphaBlendAnimation;
  2000.   DSF.AlphaBlendValue := AlphaBlendValue;
  2001.   DSF.SizeAble := False;
  2003.   try
  2005.   with Form do
  2006.   begin
  2007.     Canvas.Font := Font;
  2008.     DialogUnits := GetAveCharSize(Canvas);
  2010.     Image := TImage.Create(Form);
  2012.     with Image do
  2013.     begin
  2014.       Parent := Form;
  2015.       Top := MulDiv(8, DialogUnits.Y, 8);
  2016.       Left := MulDiv(8, DialogUnits.X, 4);
  2017.       AutoSize := True;
  2018.       Transparent := True;
  2019.       Picture.Bitmap.Handle := LoadBitMap(HInstance, 'BS_KEY');
  2020.     end;
  2022.     LeftOffset := Image.Width + Image.Left;
  2024.     ClientWidth := LeftOffset + MulDiv(180, DialogUnits.X, 4);
  2025.   end;
  2028.   Password1Label := TspSkinStdLabel.Create(Form);
  2029.   with Password1Label do
  2030.   begin
  2031.      Parent := Form;
  2032.      Left := LeftOffset + MulDiv(8, DialogUnits.X, 4);
  2033.      Top := MulDiv(8, DialogUnits.Y, 8);
  2034.      Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4);
  2035.      DefaultFont := DefaultLabelFont;
  2036.      UseSkinFont := Self.UseSkinFont;
  2037.      SkinDataName := FLabelSkinDataName;
  2038.      SkinData := CtrlSkinData;
  2039.      Caption := FPassword1Caption;
  2040.    end;
  2042.    Password1Edit := TspSkinPasswordEdit.Create(Form);
  2043.    with Password1Edit do
  2044.    begin
  2045.      Parent := Form;
  2046.      PasswordKind := Self.PasswordKind;
  2047.      DefaultFont := DefaultEditFont;
  2048.      UseSkinFont := Self.UseSkinFont;
  2049.      Left := Password1Label.Left;
  2050.      Top := Password1Label.Top + Password1Label.Height + 5;
  2051.      DefaultWidth := MulDiv(164, DialogUnits.X, 4);
  2052.      MaxLength := 255;
  2053.      Text := FPassword1;
  2054.      SelectAll;
  2055.      SkinDataName := FEditSkinDataName;
  2056.      SkinData := CtrlSkinData;
  2057.     end;
  2059.   Password2Label := TspSkinStdLabel.Create(Form);
  2060.   with Password2Label do
  2061.   begin
  2062.     Parent := Form;
  2063.     Left := LeftOffset + MulDiv(8, DialogUnits.X, 4);
  2064.     Top := Password1Edit.Top + Password1Edit.Height + 5;
  2065.     Constraints.MaxWidth := MulDiv(164, DialogUnits.X, 4);
  2066.     DefaultFont := DefaultLabelFont;
  2067.     UseSkinFont := Self.UseSkinFont;
  2068.     SkinDataName := FLabelSkinDataName;
  2069.     SkinData := CtrlSkinData;
  2070.     Caption := FPassword2Caption;
  2071.   end;
  2073.   Password2Edit := TspSkinPasswordEdit.Create(Form);
  2074.   with Password2Edit do
  2075.   begin
  2076.     Parent := Form;
  2077.     PasswordKind := Self.PasswordKind;
  2078.     DefaultFont := DefaultEditFont;
  2079.     UseSkinFont := Self.UseSkinFont;
  2080.     Left := Password2Label.Left;
  2081.     Top := Password2Label.Top + Password2Label.Height + 5;
  2082.     DefaultWidth := MulDiv(164, DialogUnits.X, 4);
  2083.     MaxLength := 255;
  2084.     Text := FPassword2;
  2085.     SelectAll;
  2086.     SkinDataName := FEditSkinDataName;
  2087.     SkinData := CtrlSkinData;
  2088.   end;
  2090.   ButtonTop := Password2Edit.Top + Password2Edit.Height + 15;
  2091.   ButtonWidth := MulDiv(50, DialogUnits.X, 4);
  2092.   ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
  2094.   with TspSkinButton.Create(Form) do
  2095.   begin
  2096.     Parent := Form;
  2097.     DefaultFont := DefaultButtonFont;
  2098.     UseSkinFont := Self.UseSkinFont;
  2099.     Caption := SP_MSG_BTN_OK;
  2100.     ModalResult := mrOk;
  2101.     Default := True;
  2102.     SetBounds(LeftOffset + MulDiv(38, DialogUnits.X, 4), ButtonTop, ButtonWidth,
  2103.               ButtonHeight);
  2104.     DefaultHeight := ButtonHeight;
  2105.     SkinDataName := FButtonSkinDataName;
  2106.     SkinData := CtrlSkinData;
  2107.   end;
  2109.   with TspSkinButton.Create(Form) do
  2110.   begin
  2111.     Parent := Form;
  2112.     DefaultFont := DefaultButtonFont;
  2113.     UseSkinFont := Self.UseSkinFont;
  2114.     Caption := SP_MSG_BTN_CANCEL;
  2115.     ModalResult := mrCancel;
  2116.     Cancel := True;
  2117.     SetBounds(LeftOffset + MulDiv(92, DialogUnits.X, 4), Password2Edit.Top + Password2Edit.Height + 15,
  2118.               ButtonWidth, ButtonHeight);
  2119.     DefaultHeight := ButtonHeight;
  2120.     SkinDataName := FButtonSkinDataName;
  2121.     SkinData := CtrlSkinData;
  2122.     Form.ClientHeight := Top + Height + 13;
  2123.     Image.Top := Form.ClientHeight div 2 - Image.Height div 2; 
  2124.   end;
  2126.   if Form.ShowModal = mrOk
  2127.   then
  2128.     begin
  2129.       FPassword1 := Password1Edit.Text;
  2130.       FPassword2 := Password2Edit.Text;
  2131.       Result := True;
  2132.     end
  2133.   else
  2134.     Result := False;
  2136.   finally
  2137.     Form.Free;
  2138.   end;
  2139. end;
  2142. end.