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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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. end;
  50. procedure TXt_ghjm.FlatSpeedButton2Click(Sender: TObject);
  51. begin
  52.   mainfrm.Image1.Align:=alclient;
  53.   mainfrm.Image1.Picture:=image1.Picture;
  54.   close;
  55. //  mainfrm.Image1.Picture.LoadFromFile(edit1.Text);
  56. end;
  58. procedure TXt_ghjm.FlatSpeedButton1Click(Sender: TObject);
  59. begin
  60.   if OpenPictureDialog1.execute then
  61.    begin
  62.      image1.picture.LoadFromFile(OpenPictureDialog1.filename);
  63.    end;
  64. end;
  66. procedure TXt_ghjm.Edit1Change(Sender: TObject);
  67. begin
  68.      if OpenPictureDialog1.execute then
  69.      begin
  70.   // dbimage1.picture.LoadFromFile(OpenPictureDialog1.filename);
  71.   // edit1.Text:=OpenPictureDialog1.FileName;
  72.    end;
  73. end;
  75. procedure TXt_ghjm.FlatSpeedButton3Click(Sender: TObject);
  76. begin
  77.   close;
  78. end;
  80. procedure TXt_ghjm.FlatButton1Click(Sender: TObject);
  81. begin
  82.   mainfrm.Image1.Align:=alclient;
  83.   mainfrm.Image1.Visible:=false;
  84. end;
  86. procedure TXt_ghjm.Image1DblClick(Sender: TObject);
  87. begin
  88.   if OpenPictureDialog1.execute then
  89.    begin
  90.      image1.picture.LoadFromFile(OpenPictureDialog1.filename);
  91.    end;
  92. end;
  94. end.