PropFrm.pas
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:2k
源码类别:

RichEdit

开发平台:

Delphi

  1. unit PropFrm;
  2. interface
  3. {$I RV_Defs.inc}
  4. uses
  5.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  6.   ComCtrls, StdCtrls, ExtCtrls;
  7. type
  8.   TfrmProp = class(TForm)
  9.     PageControl1: TPageControl;
  10.     tsBullet: TTabSheet;
  11.     tsHotSpot: TTabSheet;
  12.     btnOk: TButton;
  13.     btnCancel: TButton;
  14.     Label1: TLabel;
  15.     txtTag: TEdit;
  16.     rgBullet: TRadioGroup;
  17.     tsPicture: TTabSheet;
  18.     rgHotSpot: TRadioGroup;
  19.     Label3: TLabel;
  20.     txtName: TEdit;
  21.     Image1: TImage;
  22.     btnChangePicture: TButton;
  23.     tsText: TTabSheet;
  24.     lblText: TLabel;
  25.     tsComponent: TTabSheet;
  26.     lblComponent: TLabel;
  27.     txtWidth: TEdit;
  28.     Label2: TLabel;
  29.     txtHeight: TEdit;
  30.     Label4: TLabel;
  31.     rgPicVAlign: TRadioGroup;
  32.     rgCtrlVAlign: TRadioGroup;
  33.     tsBreak: TTabSheet;
  34.     txtBreakWidth: TEdit;
  35.     Label5: TLabel;
  36.     rgBreakColor: TRadioGroup;
  37.     procedure btnChangePictureClick(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  43. var
  44.   frmProp: TfrmProp;
  45. implementation
  46. uses Unit1;
  47. {$R *.DFM}
  48. procedure TfrmProp.btnChangePictureClick(Sender: TObject);
  49. begin
  50.   Form1.OpenDialog1.Title := 'Changing Image';
  51.   {$IFDEF RICHVIEWDEF3}
  52.   Form1.OpenDialog1.Filter := 'Graphics(*.bmp;*.wmf;*.ico;*.jpg)|*.bmp;*.wmf;*.ico;*.jpg|All(*.*)|*.*';
  53.   {$ELSE}
  54.   Form1.OpenDialog1.Filter := 'Graphics(*.bmp;*.wmf;*.ico)|*.bmp;*.wmf;*.ico|All(*.*)|*.*';  
  55.   {$ENDIF}
  56.   if Form1.OpenDialog1.Execute then
  57.     Image1.Picture.LoadFromFile(Form1.OpenDialog1.FileName);
  58. end;
  59. end.