?? unit1.dfm
字號:
object Form1: TForm1
Left = 218
Top = 125
Width = 479
Height = 359
BiDiMode = bdLeftToRight
Caption = 'VclSkin'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
ParentBiDiMode = False
ShowHint = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 24
Top = 8
Width = 417
Height = 217
ActivePage = TabSheet1
MultiLine = True
TabIndex = 0
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'Control'
object Label1: TLabel
Left = 16
Top = 8
Width = 153
Height = 13
Caption = 'Press "Up/Down" Change Skin '
end
object SpeedButton1: TSpeedButton
Left = 301
Top = 51
Width = 73
Height = 25
Caption = 'SpeedBtn'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
0077777777777774EC0777777777774ECC077000000004ECC077833333334ECC
33078FB780087CC3B3078F787E70833B73078F8FE7E703B7B3078F8EFE7E037B
73078F8FEFE708B7B3078F78FEF08B7B73078FB78808B7B7B3078FFFFFFFFFFF
F30787B7B7B788888877787B7B78777777777788888777777777}
Spacing = 0
OnClick = SpeedButton1Click
end
object CheckBox1: TCheckBox
Left = 16
Top = 59
Width = 81
Height = 17
Hint = 'checkbox1'
BiDiMode = bdLeftToRight
Caption = 'CheckBox1'
Checked = True
ParentBiDiMode = False
State = cbChecked
TabOrder = 0
end
object CheckBox2: TCheckBox
Left = 16
Top = 83
Width = 81
Height = 17
Hint = 'checkbox2'
Alignment = taLeftJustify
Caption = 'CheckBox2'
TabOrder = 1
end
object RadioButton1: TRadioButton
Left = 104
Top = 59
Width = 89
Height = 17
Hint = 'radiobutton1'
Caption = 'RadioButton1'
Checked = True
TabOrder = 2
TabStop = True
end
object RadioButton2: TRadioButton
Left = 104
Top = 83
Width = 89
Height = 17
Hint = 'radiobutton2'
Alignment = taLeftJustify
Caption = 'RadioButton2'
TabOrder = 3
end
object ComboBox1: TComboBox
Left = 16
Top = 24
Width = 177
Height = 21
BiDiMode = bdLeftToRight
ItemHeight = 13
ParentBiDiMode = False
TabOrder = 4
Text = 'Change Skins'
OnClick = ComboBox1Click
end
object LoadBtn: TButton
Left = 216
Top = 52
Width = 73
Height = 25
Caption = 'Load Skin'
TabOrder = 5
OnClick = LoadBtnClick
end
object Button4: TButton
Left = 216
Top = 20
Width = 73
Height = 25
Caption = 'UnSkin'
Default = True
TabOrder = 6
OnClick = Button2Click
end
object BitBtn1: TBitBtn
Left = 300
Top = 20
Width = 73
Height = 25
TabOrder = 7
Kind = bkClose
Spacing = 2
end
object Edit1: TEdit
Left = 16
Top = 104
Width = 177
Height = 21
TabOrder = 8
Text = 'Edit1'
end
object ExceptionBtn: TButton
Left = 216
Top = 84
Width = 73
Height = 25
Caption = 'Exception'
TabOrder = 9
OnClick = ExceptionBtnClick
end
object MessageBtn: TButton
Left = 216
Top = 116
Width = 73
Height = 25
Caption = 'MessageBox'
TabOrder = 10
OnClick = MessageBtnClick
end
object Button1: TButton
Left = 302
Top = 84
Width = 73
Height = 25
Caption = 'Multi Skins'
TabOrder = 11
OnClick = Button1Click
end
end
object TabSheet2: TTabSheet
Caption = 'TMemo'
ImageIndex = 1
object RichEdit1: TRichEdit
Left = 16
Top = 8
Width = 361
Height = 161
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'unit Unit1;'
''
'interface'
''
'uses'
' Windows, Messages, SysUtils, Classes, Graphics, '
'Controls, Forms,'
' Dialogs, ComCtrls, StdCtrls, Menus, WinSkinForm, '
'WinSkinData,'
' Buttons, Grids, ToolWin, ExtCtrls;'
''
'type'
' TForm1 = class(TForm)'
' PageControl1: TPageControl;'
' TabSheet1: TTabSheet;'
' TabSheet2: TTabSheet;'
' CheckBox1: TCheckBox;'
' CheckBox2: TCheckBox;'
' RadioButton1: TRadioButton;'
' RadioButton2: TRadioButton;'
' StatusBar1: TStatusBar;'
' MainMenu1: TMainMenu;'
' File1: TMenuItem;'
' DialogM: TMenuItem;'
' Help1: TMenuItem;'
' Open1: TMenuItem;'
' Save1: TMenuItem;'
' Close1: TMenuItem;'
' N1: TMenuItem;'
' Exit1: TMenuItem;'
' Skin11: TMenuItem;'
' Skin21: TMenuItem;'
' Skin31: TMenuItem;'
' Content1: TMenuItem;'
' Homepage1: TMenuItem;'
' About1: TMenuItem;'
' sd1: TSkinData;'
' ComboBox1: TComboBox;'
' Label1: TLabel;'
' LoadBtn: TButton;'
' Button4: TButton;'
' TabSheet3: TTabSheet;'
' ListBox1: TListBox;'
' BitBtn1: TBitBtn;'
' TabSheet4: TTabSheet;'
' StringGrid1: TStringGrid;'
' SpeedButton1: TSpeedButton;'
' Edit1: TEdit;'
' ExceptionBtn: TButton;'
' MessageBtn: TButton;'
' Dialog1: TOpenDialog;'
' Panel1: TPanel;'
' ProgressBar1: TProgressBar;'
' Dialog2: TFontDialog;'
' Dialog3: TColorDialog;'
' Dialog4: TPrintDialog;'
' PrintDialog2: TMenuItem;'
' BuildinSkins1: TMenuItem;'
' Skin12: TMenuItem;'
' Skin22: TMenuItem;'
' Skin32: TMenuItem;'
' Skin41: TMenuItem;'
' Skin51: TMenuItem;'
' Skin61: TMenuItem;'
' Skin71: TMenuItem;'
' RichEdit1: TRichEdit;'
' procedure Exit1Click(Sender: TObject);'
' procedure Button2Click(Sender: TObject);'
' procedure FormCreate(Sender: TObject);'
' procedure ComboBox1Click(Sender: TObject);'
' procedure sf1CaptionBtnClick(Sender: TObject; '
'action: Integer);'
' procedure SpeedButton1Click(Sender: TObject);'
' procedure LoadBtnClick(Sender: TObject);'
' procedure ExceptionBtnClick(Sender: TObject);'
' procedure MessageBtnClick(Sender: TObject);'
' procedure Skin21Click(Sender: TObject);'
' procedure Skin31Click(Sender: TObject);'
' procedure PrintDialog2Click(Sender: TObject);'
' procedure Skin12Click(Sender: TObject);'
' procedure Skin22Click(Sender: TObject);'
' procedure Skin32Click(Sender: TObject);'
' procedure Skin41Click(Sender: TObject);'
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -