?? unit2_.pas
字號:
unit Unit2_;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TSettingsForm = class(TForm)
GroupBox1: TGroupBox;
BPP32: TRadioButton;
bpp24: TRadioButton;
bpp16: TRadioButton;
BPP8: TRadioButton;
procedure FormShow(Sender: TObject);
procedure BPP32Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
SettingsForm: TSettingsForm;
implementation
uses unit1;
{$R *.DFM}
procedure TSettingsForm.FormShow(Sender: TObject);
begin
case mainform.dxdraw1.display.BitCount of
8 : bpp8.Checked:=true;
16 : bpp16.Checked:=true;
24 : bpp24.Checked:=true;
32 : bpp32.Checked:=true;
end;
end;
procedure TSettingsForm.BPP32Click(Sender: TObject);
begin
mainform.dxdraw1.Display.BitCount:=strtoint(tradiobutton(sender).caption);
mainform.DXDraw1.Initialize;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -