formtype.pas

《Kylix程序设计》一书中附带的例程源代码

unit FormType;

interface

uses
  SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
  QStdCtrls, QExtCtrls, QComCtrls, QMenus, QTypes;

type
  TFrmMain = class(TForm)
    RadGrpBorderStyle: TRadioGroup;
    BtnCreate: TButton;
    GrpBoxBorderIcon: TGroupBox;
    ChkBoxSystemMenu: TCheckBox;
    ChkBoxMinimize: TCheckBox;
    ChkBoxMaximize: TCheckBox;
    ChkBoxHelp: TCheckBox;
    LblScaleBy: TLabel;
    EdtScaleBy: TEdit;
    BtnScale: TButton;
    RadGrpPosition: TRadioGroup;
    StatusBar: TStatusBar;
    MainMenu: TMainMenu;
    MnuFile: TMenuItem;
    BtnShow: TButton;
    procedure BtnCreateClick(Sender: TObject);
    procedure BtnScaleClick(Sender: TObject);
    procedure BtnShowClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses NewForm;

{$R *.xfm}

procedure TFrmMain.BtnCreateClick(Sender: TObject);
var
  FrmNew: TFrmNew;
  BorderStyle: TFormBorderStyle;
  BorderIcons: TBorderIcons;
begin
  FrmNew := TFrmNew.Create( Self );
//  FrmNew := TFrmNew.Create( Application );

  BorderStyle := TFormBorderStyle( RadGrpBorderStyle.ItemIndex );
  BorderIcons := [];
  if ChkBoxSystemMenu.Checked then
    System.Include( BorderIcons, biSystemMenu );
  if ChkBoxMinimize.Checked then
    System.Include( BorderIcons, biMinimize );
  if ChkBoxMaximize.Checked then
    System.Include( BorderIcons, biMaximize );
  if ChkBoxHelp.Checked then
    System.Include( BorderIcons, biHelp );

  FrmNew.BorderStyle := BorderStyle;
  FrmNew.BorderIcons := BorderIcons;
  FrmNew.Position := TPosition( RadGrpPosition.ItemIndex );
  FrmNew.Caption := RadGrpBorderStyle.Items[ RadGrpBorderStyle.ItemIndex ];
  FrmNew.Show();
end;

procedure TFrmMain.BtnScaleClick(Sender: TObject);
begin
  ScaleBy( StrToInt( EdtScaleBy.Text ), 100 );
end;

procedure TFrmMain.BtnShowClick(Sender: TObject);
var
  PointA, PointB: TPoint;
  ABoundsRect: TRect;
begin
  PointA := Classes.Point( Width, Height );
  PointB := Classes.Point( ClientWidth, ClientHeight );
//  ABoundsRect :=
{
  StatusBar.Panels[0].Text := StatusBar.Panels[0].Text + IntToStr( BoundsRect.TopLeft.X );
  StatusBar.Panels[1].Text := StatusBar.Panels[1].Text + IntToStr( BoundsRect.TopLeft.Y );
  StatusBar.Panels[2].Text := StatusBar.Panels[2].Text + IntToStr( ClientWidth );
  StatusBar.Panels[3].Text := StatusBar.Panels[3].Text + IntToStr( ClientHeight );
}
  StatusBar.Panels[0].Text := StatusBar.Panels[0].Text + IntToStr( Width );
  StatusBar.Panels[1].Text := StatusBar.Panels[1].Text + IntToStr( Height );
  StatusBar.Panels[2].Text := StatusBar.Panels[2].Text + IntToStr( ClientWidth );
  StatusBar.Panels[3].Text := StatusBar.Panels[3].Text + IntToStr( ClientHeight );

  StatusBar.Panels[4].Text := StatusBar.Panels[4].Text + '( '
    + IntToStr( ClientRect.Left ) + ', ' + IntToStr( ClientRect.Top ) + '; '
    + IntToStr( ClientRect.Right ) + ', ' + IntToStr( ClientRect.Bottom ) + ' )';
  Canvas.Brush.Color := $00F0F0F0;
  Canvas.FillRect( ClientRect );
  Canvas.MoveTo( 0, 0 );
//  Canvas.LineTo( Width, Height );
  Canvas.LineTo( ClientWidth, ClientHeight - 19 );
end;

end.