📄 spdialogs.pas
字号:
{*******************************************************************}
{ }
{ Almediadev Visual Component Library }
{ DynamicSkinForm }
{ Version 9.15 }
{ }
{ Copyright (c) 2000-2008 Almediadev }
{ ALL RIGHTS RESERVED }
{ }
{ Home: http://www.almdev.com }
{ Support: support@almdev.com }
{ }
{*******************************************************************}
unit spDialogs;
interface
uses Windows, SysUtils, Messages, Classes, Graphics, Controls, Forms,
DynamicSkinForm, SkinData, SkinCtrls, SkinBoxCtrls, Dialogs, StdCtrls, ExtCtrls,
spSkinShellCtrls, spcolorctrls;
type
TspPDShowType = (stStayOnTop, stModal);
TspSkinProgressDialog = class(TComponent)
protected
FProgressAnimation: Boolean;
FProgressAnimationPause: Integer;
FShowType: TspPDShowType;
FOnCancel: TNotifyEvent;
FOnShow: TNotifyEvent;
FExecute: Boolean;
Gauge: TspSkinGauge;
Form: TForm;
FSD: TspSkinData;
FCtrlFSD: TspSkinData;
FButtonSkinDataName: String;
FGaugeSkinDataName: String;
FLabelSkinDataName: String;
FDefaultLabelFont: TFont;
FDefaultGaugeFont: TFont;
FDefaultButtonFont: TFont;
FAlphaBlend: Boolean;
FAlphaBlendValue: Byte;
FAlphaBlendAnimation: Boolean;
FUseSkinFont: Boolean;
FMinValue, FMaxValue, FValue: Integer;
FCaption: String;
FLabelCaption: String;
FShowPercent: Boolean;
FShowCancelButton, FShowCloseButton: Boolean;
procedure SetValue(AValue: Integer);
procedure SetDefaultLabelFont(Value: TFont);
procedure SetDefaultButtonFont(Value: TFont);
procedure SetDefaultGaugeFont(Value: TFont);
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure CancelBtnClick(Sender: TObject);
procedure OnFormClose(Sender: TObject; var Action: TCloseAction);
procedure OnFormShow(Sender: TObject);
public
function Execute: Boolean;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property ProgressAnimation: Boolean
read FProgressAnimation write FProgressAnimation;
property ProgressAnimationPause: Integer
read FProgressAnimationPause write FProgressAnimationPause;
property ShowCancelButton: Boolean
read FShowCancelButton write FShowCancelButton;
property ShowCloseButton: Boolean
read FShowCloseButton write FShowCloseButton;
property ShowType: TspPDShowType read FShowType write FShowType;
property Caption: String read FCaption write FCaption;
property LabelCaption: String read FLabelCaption write FLabelCaption;
property ShowPercent: Boolean read FShowPercent write FShowPercent;
property MinValue: Integer read FMinValue write FMinValue;
property MaxValue: Integer read FMaxValue write FMaxValue;
property Value: Integer read FValue write SetValue;
property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
property AlphaBlendAnimation: Boolean
read FAlphaBlendAnimation write FAlphaBlendAnimation;
property SkinData: TspSkinData read FSD write FSD;
property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
property ButtonSkinDataName: String
read FButtonSkinDataName write FButtonSkinDataName;
property LabelSkinDataName: String
read FLabelSkinDataName write FLabelSkinDataName;
property GaugeSkinDataName: String
read FGaugeSkinDataName write FGaugeSkinDataName;
property DefaultLabelFont: TFont read FDefaultLabelFont write SetDefaultLabelFont;
property DefaultButtonFont: TFont read FDefaultButtonFont write SetDefaultButtonFont;
property DefaultGaugeFont: TFont read FDefaultGaugeFont write SetDefaultGaugeFont;
property UseSkinFont: Boolean read FUseSkinFont write FUseSkinFont;
property OnShow: TNotifyEvent read FOnShow write FOnShow;
property OnCancel: TNotifyEvent read FOnCancel write FOnCancel;
end;
TspSkinInputDialog = class(TComponent)
protected
Form: TForm;
FSD: TspSkinData;
FCtrlFSD: TspSkinData;
FButtonSkinDataName: String;
FEditSkinDataName: String;
FLabelSkinDataName: String;
FDefaultLabelFont: TFont;
FDefaultEditFont: TFont;
FDefaultButtonFont: TFont;
FUseSkinFont: Boolean;
FAlphaBlend: Boolean;
FAlphaBlendValue: Byte;
FAlphaBlendAnimation: Boolean;
procedure SetDefaultLabelFont(Value: TFont);
procedure SetDefaultButtonFont(Value: TFont);
procedure SetDefaultEditFont(Value: TFont);
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
function InputBox(const ACaption, APrompt, ADefault: string): string;
function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
property AlphaBlendAnimation: Boolean
read FAlphaBlendAnimation write FAlphaBlendAnimation;
property SkinData: TspSkinData read FSD write FSD;
property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
property ButtonSkinDataName: String
read FButtonSkinDataName write FButtonSkinDataName;
property LabelSkinDataName: String
read FLabelSkinDataName write FLabelSkinDataName;
property EditSkinDataName: String
read FEditSkinDataName write FEditSkinDataName;
property DefaultLabelFont: TFont read FDefaultLabelFont write SetDefaultLabelFont;
property DefaultButtonFont: TFont read FDefaultButtonFont write SetDefaultButtonFont;
property DefaultEditFont: TFont read FDefaultEditFont write SetDefaultEditFont;
property UseSkinFont: Boolean read FUseSkinFont write FUseSkinFont;
end;
TspFontDlgForm = class(TForm)
public
DSF: TspDynamicSkinForm;
ScriptComboBox: TspSkinComboBox;
FontNameBox: TspSkinFontComboBox;
FontColorBox: TspSkinTextColorButton;
FontSizeEdit: TspSkinFontSizeComboBox;
FontHeightEdit: TspSkinSpinEdit;
FontExamplePanel: TspSkinPanel;
FontExampleLabel: TLabel;
OkButton, CancelButton: TspSkinButton;
ScriptLabel, FontNameLabel, FontColorLabel, FontSizeLabel,
FontHeightLabel, FontStyleLabel, FontExLabel: TspSkinStdLabel;
BoldButton, ItalicButton,
UnderLineButton, StrikeOutButton: TspSkinSpeedButton;
constructor CreateEx(AOwner: TComponent; ACtrlSkinData: TspSkinData; AShowScript: Boolean);
procedure FontSizeChange(Sender: TObject);
procedure FontHeightChange(Sender: TObject);
procedure FontNameChange(Sender: TObject);
procedure FontScriptChange(Sender: TObject);
procedure FontColorChange(Sender: TObject);
procedure BoldButtonClick(Sender: TObject);
procedure ItalicButtonClick(Sender: TObject);
procedure StrikeOutButtonClick(Sender: TObject);
procedure UnderLineButtonClick(Sender: TObject);
end;
TspSkinFontDialog = class(TComponent)
private
FSD: TspSkinData;
FCtrlFSD: TspSkinData;
FDefaultFont: TFont;
FTitle: String;
FDlgFrm: TspFontDlgForm;
FOnChange: TNotifyEvent;
FFont: TFont;
FShowSizeEdit, FShowHeightEdit: Boolean;
FAlphaBlend: Boolean;
FAlphaBlendAnimation: Boolean;
FAlphaBlendValue: Byte;
FShowScript: Boolean;
procedure SetShowSizeEdit(Value: Boolean);
procedure SetShowHeightEdit(Value: Boolean);
function GetTitle: string;
procedure SetTitle(const Value: string);
procedure SetFont(Value: TFont);
procedure SetDefaultFont(Value: TFont);
protected
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure Change;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function Execute: Boolean;
published
property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
property AlphaBlendAnimation: Boolean
read FAlphaBlendAnimation write FAlphaBlendAnimation;
property SkinData: TspSkinData read FSD write FSD;
property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
property DefaultFont: TFont read FDefaultFont write SetDefaultFont;
property Font: TFont read FFont write SetFont;
property Title: string read GetTitle write SetTitle;
property ShowSizeEdit: Boolean read FShowSizeEdit write SetShowSizeEdit;
property ShowHeightEdit: Boolean read FShowHeightEdit write SetShowHeightEdit;
property ShowScript: Boolean read FShowScript write FShowScript;
property OnChange: TnotifyEvent read FOnChange write FOnChange;
end;
TspSkinTextDialog = class(TComponent)
protected
FToolButtonsTransparent: Boolean;
Memo: TspSkinMemo2;
FShowToolBar: Boolean;
FCaption: String;
FSD: TspSkinData;
FCtrlFSD: TspSkinData;
FButtonSkinDataName: String;
FMemoSkinDataName: String;
FDefaultMemoFont: TFont;
FDefaultButtonFont: TFont;
FUseSkinFont: Boolean;
FClientWidth: Integer;
FClientHeight: Integer;
FLines: TStrings;
FSkinOpenDialog: TspSkinOpenDialog;
FSkinSaveDialog: TspSkinSaveDialog;
FAlphaBlend: Boolean;
FAlphaBlendAnimation: Boolean;
FAlphaBlendValue: Byte;
procedure SetLines(Value: TStrings);
procedure SetClientWidth(Value: Integer);
procedure SetClientHeight(Value: Integer);
procedure SetDefaultButtonFont(Value: TFont);
procedure SetDefaultMemoFont(Value: TFont);
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
//
procedure NewButtonClick(Sender: TObject);
procedure OpenButtonClick(Sender: TObject);
procedure SaveButtonClick(Sender: TObject);
procedure CopyButtonClick(Sender: TObject);
procedure CutButtonClick(Sender: TObject);
procedure PasteButtonClick(Sender: TObject);
procedure DeleteButtonClick(Sender: TObject);
//
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function Execute: Boolean;
published
property ToolButtonsTransparent: Boolean
read FToolButtonsTransparent write FToolButtonsTransparent;
property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
property AlphaBlendAnimation: Boolean
read FAlphaBlendAnimation write FAlphaBlendAnimation;
property SkinOpenDialog: TspSkinOpenDialog
read FSkinOpenDialog write FSkinOpenDialog;
property SkinSaveDialog: TspSkinSaveDialog
read FSkinSaveDialog write FSkinSaveDialog;
property ShowToolBar: Boolean read FShowToolBar write FShowToolBar;
property Lines: TStrings read FLines write SetLines;
property ClientWidth: Integer read FClientWidth write SetClientWidth;
property ClientHeight: Integer read FClientHeight write SetClientHeight;
property Caption: String read FCaption write FCaption;
property SkinData: TspSkinData read FSD write FSD;
property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
property ButtonSkinDataName: String
read FButtonSkinDataName write FButtonSkinDataName;
property MemoSkinDataName: String
read FMemoSkinDataName write FMemoSkinDataName;
property DefaultButtonFont: TFont read FDefaultButtonFont write SetDefaultButtonFont;
property DefaultMemoFont: TFont read FDefaultMemoFont write SetDefaultMemoFont;
property UseSkinFont: Boolean read FUseSkinFont write FUseSkinFont;
end;
TspSkinPasswordDialog = class(TComponent)
protected
FLoginMode: Boolean;
FCaption: String;
FLogin: String;
FLoginCaption: String;
FPasswordCaption: String;
FPassword: String;
FPasswordKind: TspPasswordKind;
FSD: TspSkinData;
FCtrlFSD: TspSkinData;
FButtonSkinDataName: String;
FEditSkinDataName: String;
FLabelSkinDataName: String;
FDefaultLabelFont: TFont;
FDefaultEditFont: TFont;
FDefaultButtonFont: TFont;
FAlphaBlend: Boolean;
FAlphaBlendAnimation: Boolean;
FAlphaBlendValue: Byte;
FUseSkinFont: Boolean;
procedure SetDefaultLabelFont(Value: TFont);
procedure SetDefaultButtonFont(Value: TFont);
procedure SetDefaultEditFont(Value: TFont);
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function Execute: Boolean;
published
property LoginMode: Boolean read FLoginMode write FLoginMode;
property Login: String read FLogin write FLogin;
property LoginCaption: String read FLoginCaption write FLoginCaption;
property Password: String read FPassword write FPassword;
property PasswordKind: TspPasswordKind read FPasswordKind write FPasswordKind;
property Caption: String read FCaption write FCaption;
property PasswordCaption: String read FPasswordCaption write FPasswordCaption;
property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
property AlphaBlendAnimation: Boolean
read FAlphaBlendAnimation write FAlphaBlendAnimation;
property SkinData: TspSkinData read FSD write FSD;
property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
property ButtonSkinDataName: String
read FButtonSkinDataName write FButtonSkinDataName;
property LabelSkinDataName: String
read FLabelSkinDataName write FLabelSkinDataName;
property EditSkinDataName: String
read FEditSkinDataName write FEditSkinDataName;
property DefaultLabelFont: TFont read FDefaultLabelFont write SetDefaultLabelFont;
property DefaultButtonFont: TFont read FDefaultButtonFont write SetDefaultButtonFont;
property DefaultEditFont: TFont read FDefaultEditFont write SetDefaultEditFont;
property UseSkinFont: Boolean read FUseSkinFont write FUseSkinFont;
end;
TspSkinConfirmDialog = class(TComponent)
protected
FCaption: String;
FPassword1: String;
FPassword1Caption: String;
FPassword2: String;
FPassword2Caption: String;
FPasswordKind: TspPasswordKind;
FSD: TspSkinData;
FCtrlFSD: TspSkinData;
FButtonSkinDataName: String;
FEditSkinDataName: String;
FLabelSkinDataName: String;
FDefaultLabelFont: TFont;
FDefaultEditFont: TFont;
FDefaultButtonFont: TFont;
FAlphaBlend: Boolean;
FAlphaBlendAnimation: Boolean;
FAlphaBlendValue: Byte;
FUseSkinFont: Boolean;
procedure SetDefaultLabelFont(Value: TFont);
procedure SetDefaultButtonFont(Value: TFont);
procedure SetDefaultEditFont(Value: TFont);
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function Execute: Boolean;
published
property Password1: String read FPassword1 write FPassword1;
property Password1Caption: String read FPassword1Caption write FPassword1Caption;
property Password2: String read FPassword2 write FPassword2;
property Password2Caption: String read FPassword2Caption write FPassword2Caption;
property PasswordKind: TspPasswordKind read FPasswordKind write FPasswordKind;
property Caption: String read FCaption write FCaption;
property AlphaBlend: Boolean read FAlphaBlend write FAlphaBlend;
property AlphaBlendValue: Byte read FAlphaBlendValue write FAlphaBlendValue;
property AlphaBlendAnimation: Boolean
read FAlphaBlendAnimation write FAlphaBlendAnimation;
property SkinData: TspSkinData read FSD write FSD;
property CtrlSkinData: TspSkinData read FCtrlFSD write FCtrlFSD;
property ButtonSkinDataName: String
read FButtonSkinDataName write FButtonSkinDataName;
property LabelSkinDataName: String
read FLabelSkinDataName write FLabelSkinDataName;
property EditSkinDataName: String
read FEditSkinDataName write FEditSkinDataName;
property DefaultLabelFont: TFont read FDefaultLabelFont write SetDefaultLabelFont;
property DefaultButtonFont: TFont read FDefaultButtonFont write SetDefaultButtonFont;
property DefaultEditFont: TFont read FDefaultEditFont write SetDefaultEditFont;
property UseSkinFont: Boolean read FUseSkinFont write FUseSkinFont;
end;
TspSelectSkinDlgForm = class(TForm)
public
FCSkinList: TspCompressedSkinList;
FCSkinIndex: Integer;
DSF: TspDynamicSkinForm;
OpenButton, CancelButton: TspSkinButton;
PreviewForm: TForm;
PreviewDSF: TspDynamicSkinForm;
PreviewSkinData: TspSkinData;
PreviewButton: TspSkinButton;
SkinsListBox: TspSkinListBox;
SkinList: TList;
constructor CreateEx2(AOwner: TComponent; ASkinList: TspCompressedSkinList;
ASkinIndex: Integer;
ACtrlSkinData: TspSkinData);
constructor CreateEx(AOwner: TComponent; AForm: TForm; ADefaultSkin: TspCompressedStoredSkin;
ACtrlSkinData: TspSkinData);
destructor Destroy; override;
function GetSelectedSkin: TspCompressedStoredSkin;
property SelectedSkin: TspCompressedStoredSkin read GetSelectedSkin;
procedure SLBOnChange(Sender: TObject);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -