SizeGrip, Version 1.2 (alt)

Hinweis: dies ist nicht die neueste Version!

Zurück zur Übersicht

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 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.
Flocke's Garage
Valid HTML 4.01 Transitional Valid CSS!
(C) 2005-2018 Volker Siebert.
Creative Commons-LizenzvertragDer gesamte Inhalt dieser Webseite steht unter einer Creative Commons-Lizenz (sofern nicht anders angegeben).