开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Xt_ghjms.pas
资源名称：挡案管理系统.rar　[点击查看]
上传用户：szruida
上传日期：2007-06-01
资源大小：6518k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

Xt_ghjms.pas：源码内容
  1. unit Xt_ghjms;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, TFlatButtonUnit, TFlatSpeedButtonUnit, StdCtrls, DBCtrls,
  8.   ExtCtrls, TFlatPanelUnit, ExtDlgs;
  10. type
  11.   TXt_ghjm = class(TForm)
  12.     FlatPanel1: TFlatPanel;
  13.     FlatPanel2: TFlatPanel;
  14.     Label1: TLabel;
  15.     Edit1: TEdit;
  16.     FlatSpeedButton1: TFlatSpeedButton;
  17.     FlatButton1: TFlatButton;
  18.     FlatSpeedButton2: TFlatSpeedButton;
  19.     FlatSpeedButton3: TFlatSpeedButton;
  20.     OpenPictureDialog1: TOpenPictureDialog;
  21.     Panel1: TPanel;
  22.     Image1: TImage;
  23.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  24.     procedure FlatSpeedButton2Click(Sender: TObject);
  25.     procedure FlatSpeedButton1Click(Sender: TObject);
  26.     procedure Edit1Change(Sender: TObject);
  27.     procedure FlatSpeedButton3Click(Sender: TObject);
  28.     procedure FlatButton1Click(Sender: TObject);
  29.     procedure Image1DblClick(Sender: TObject);
  30.   private
  31.     { Private declarations }
  32.   public
  33.     { Public declarations }
  34.   end;
  36. var
  37.   Xt_ghjm: TXt_ghjm;
  39. implementation
  41. uses mainfrms;
  43. {$R *.dfm}
  45. procedure TXt_ghjm.FormClose(Sender: TObject; var Action: TCloseAction);
  46. begin
  47.   action:=cafree;
  48.   Xt_ghjm:=nil;
  49. end;
  51. procedure TXt_ghjm.FlatSpeedButton2Click(Sender: TObject);
  52. begin
  53.   mainfrm.Image1.Align:=alclient;
  54.   mainfrm.Image1.Picture:=image1.Picture;
  55.   close;
  56. //  mainfrm.Image1.Picture.LoadFromFile(edit1.Text);
  57. end;
  59. procedure TXt_ghjm.FlatSpeedButton1Click(Sender: TObject);
  60. begin
  61.   if OpenPictureDialog1.execute then
  62.    begin
  63.      image1.picture.LoadFromFile(OpenPictureDialog1.filename);
  64.    end;
  65. end;
  67. procedure TXt_ghjm.Edit1Change(Sender: TObject);
  68. begin
  69.      if OpenPictureDialog1.execute then
  70.      begin
  71.   // dbimage1.picture.LoadFromFile(OpenPictureDialog1.filename);
  72.   // edit1.Text:=OpenPictureDialog1.FileName;
  73.    end;
  74. end;
  76. procedure TXt_ghjm.FlatSpeedButton3Click(Sender: TObject);
  77. begin
  78.   close;
  79. end;
  81. procedure TXt_ghjm.FlatButton1Click(Sender: TObject);
  82. begin
  83.   mainfrm.Image1.Align:=alclient;
  84.   mainfrm.Image1.Visible:=false;
  85. end;
  87. procedure TXt_ghjm.Image1DblClick(Sender: TObject);
  88. begin
  89.   if OpenPictureDialog1.execute then
  90.    begin
  91.      image1.picture.LoadFromFile(OpenPictureDialog1.filename);
  92.    end;
  93. end;
  95. end.