SizeGrip, Version 1.2a (alt)
Hinweis: dies ist nicht die neueste Version!
Datei: Sample/main.pas
{ 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 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. |