mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-14 10:02:10 +08:00
110 lines
2.3 KiB
ObjectPascal
110 lines
2.3 KiB
ObjectPascal
{
|
|
main.pas
|
|
|
|
This file is part of the SizeGrip.pas sample application.
|
|
Info at http://flocke.vssd.de/prog/code/pascal/sizegrip/
|
|
|
|
Copyright (C) 2005, 2006 Volker Siebert <flocke@vssd.de>
|
|
All rights reserved.
|
|
}
|
|
|
|
unit main;
|
|
|
|
interface
|
|
|
|
// If you define the following symbol (remove the slashes) you will
|
|
// test the nonVCL version, otherwise the VCL based version.
|
|
//{$DEFINE USE_NONVCL}
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls,
|
|
{$IFDEF USE_NONVCL}
|
|
SizeGripHWND;
|
|
{$ELSE}
|
|
SizeGrip, SizeGripThemed;
|
|
{$ENDIF}
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
Label1: TLabel;
|
|
CheckBox1: TCheckBox;
|
|
RadioButton1: TRadioButton;
|
|
RadioButton2: TRadioButton;
|
|
CheckBox2: TCheckBox;
|
|
CheckBox3: TCheckBox;
|
|
procedure CheckBox3Click(Sender: TObject);
|
|
procedure CheckBox2Click(Sender: TObject);
|
|
procedure RadioButton1Click(Sender: TObject);
|
|
procedure CheckBox1Click(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private-Deklarationen }
|
|
{$IFNDEF USE_NONVCL}
|
|
FGripper: TSizeGripThemed;
|
|
{$ENDIF}
|
|
public
|
|
{ Public-Deklarationen }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
{$IFNDEF USE_NONVCL}
|
|
const
|
|
CNewStyle: array [boolean] of TSizeGripStyle = ( sgsClassic, sgsWinXP );
|
|
{$ENDIF}
|
|
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
Constraints.MinHeight := Height;
|
|
Constraints.MinWidth := Width;
|
|
|
|
CheckBox1.Checked := DoubleBuffered;
|
|
|
|
{$IFNDEF USE_NONVCL}
|
|
FGripper := TSizeGripThemed.Create(Self);
|
|
FGripper.Themed := RadioButton2.Checked;
|
|
FGripper.Enabled := CheckBox2.Checked;
|
|
FGripper.Style := CNewStyle[CheckBox3.Checked];
|
|
{$ELSE}
|
|
SetWindowSizeGrip(Handle, true);
|
|
RadioButton2.Enabled := false;
|
|
CheckBox3.Enabled := false;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
procedure TForm1.CheckBox1Click(Sender: TObject);
|
|
begin
|
|
DoubleBuffered := CheckBox1.Checked;
|
|
Invalidate;
|
|
end;
|
|
|
|
procedure TForm1.RadioButton1Click(Sender: TObject);
|
|
begin
|
|
{$IFNDEF USE_NONVCL}
|
|
FGripper.Themed := RadioButton2.Checked;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
procedure TForm1.CheckBox2Click(Sender: TObject);
|
|
begin
|
|
{$IFNDEF USE_NONVCL}
|
|
FGripper.Enabled := CheckBox2.Checked;
|
|
{$ELSE}
|
|
SetWindowSizeGrip(Handle, CheckBox2.Checked);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
procedure TForm1.CheckBox3Click(Sender: TObject);
|
|
begin
|
|
{$IFNDEF USE_NONVCL}
|
|
FGripper.Style := CNewStyle[CheckBox3.Checked];
|
|
{$ENDIF}
|
|
end;
|
|
|
|
end.
|