37 lines
586 B
Plaintext
37 lines
586 B
Plaintext
unit ZoomProp;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls;
|
|
|
|
type
|
|
TfrmZoomProperties = class(TForm)
|
|
GroupBox1: TGroupBox;
|
|
Button1: TButton;
|
|
Button2: TButton;
|
|
Label1: TLabel;
|
|
cmbFilter: TComboBox;
|
|
chkDelayed: TCheckBox;
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Main;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfrmZoomProperties.FormCreate(Sender: TObject);
|
|
begin
|
|
FillComboWithFilters( cmbFilter );
|
|
end;
|
|
|
|
end.
|