mirror of
https://github.com/rejetto/hfs2.git
synced 2025-12-19 18:13:46 +01:00
30 lines
463 B
ObjectPascal
30 lines
463 B
ObjectPascal
unit shellExtDlg;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, ExtCtrls, StdCtrls, utilLib, Vcl.Imaging.GIFImg;
|
|
|
|
type
|
|
TshellExtFrm = class(TForm)
|
|
Image1: TImage;
|
|
Panel1: TPanel;
|
|
Label1: TLabel;
|
|
Button1: TButton;
|
|
Button2: TButton;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
shellExtFrm: TshellExtFrm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
end.
|