Class TUhwEditorDlg (unit Uhwopen) |
Inherits from
TForm
---------------------------------------------------------------------------
procedure Button1Click(Sender: TObject);
-----------------------------------------------------------------------------
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
-----------------------------------------------------------------------------
procedure DrawPreview;
-----------------------------------------------------------------------------
procedure SetUhwStrukt (Value:TUhwStrukt);
-----------------------------------------------------------------------------
property EditorUhwStrukt : TUhwStrukt
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Image1 : TImage;
OpenDialog1 : TOpenDialog;
FUhwStrukt : TUhwStrukt;
procedure Button1Click(Sender: TObject);
-----------------------------------------------------------------------------
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
-----------------------------------------------------------------------------
procedure DrawPreview;
-----------------------------------------------------------------------------
procedure SetUhwStrukt (Value:TUhwStrukt);
-----------------------------------------------------------------------------
property EditorUhwStrukt : TUhwStrukt
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Image1 : TImage;
OpenDialog1 : TOpenDialog;
FUhwStrukt : TUhwStrukt;