jcamdialogform.pas

销售软件

(*===========================================================*)
(*                                                           *)
(*              Jerk Computer Assembly Manager               *)
(*                                                           *)
(*                    程序作者：杨芹勍                       *)
(*          武汉科技大学 理学院 信息与计算科学031班          *)
(*                  武汉科技大学 莘特工作室                  *)
(*                                                           *)
(*              IDE：Borland Delphi 2006 Update 2            *)
(*                 第三方控件：Raize 4.03                    *)
(*             数据库：Microsoft SQL Server 2000             *)
(*            数据库访问引擎：原生ADO（ADODB_TLB）           *)
(*           数据库管理引擎：JERK DBMANAGER ALPHA            *)
(*                                                           *)
(*           此软件及源代码归 JERK SYSTEM 版权所有           *)
(*            (C)Copyright 2002-2006 Jerk System.            *)
(*                                                           *)
(*===========================================================*)

unit JCAMDialogForm;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  ExtCtrls,
  StdCtrls,
  JCAMConsts,
  RzButton;

type
  TfrmJCAMDialogForm = class( TForm )
    Shape1: TShape;
    Bevel1: TBevel;
    lblFunctionTitle: TLabel;
    lblFunctionDesc: TLabel;
    imgFunctionIcon: TImage;
    Panel1: TPanel;
    btnOK: TRzBitBtn;
    btnCancel: TRzBitBtn;
    procedure FormResize( Sender: TObject );
    procedure FormShow( Sender: TObject );
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmJCAMDialogForm: TfrmJCAMDialogForm;

implementation

{$R *.dfm}

procedure TfrmJCAMDialogForm.FormResize( Sender: TObject );
var
  nCancelWidth: Integer;
begin
  (* 窗体改变大小 *)

  imgFunctionIcon.Left := ClientWidth - imgFunctionIcon.Width -
    imgFunctionIcon.Top;
  lblFunctionDesc.Width := ClientWidth - lblFunctionDesc.Left -
    imgFunctionIcon.Width - imgFunctionIcon.Top * 2;
  btnCancel.Left := ClientWidth - btnCancel.Width - 8;
  nCancelWidth := 0;
  if btnCancel.Visible then
    nCancelWidth := btnCancel.Width + 8;
  btnOK.Left := ClientWidth - btnOK.Width - nCancelWidth - 8;
end;

procedure TfrmJCAMDialogForm.FormShow( Sender: TObject );
begin
  Caption := lblFunctionTitle.Caption + ' - ' + STR_APPTITLE;
  FormResize( Self );
end;

end.