procedure TMapViewer.MouseLButtonDBClick(var Msg: TMessage);
var
frDialog : TForm;
btOK, btCancel : TButton;
lbName, lbSize : TLabel;
edtName : TEdit;
tbSize : TTrackBar;
begin
frDialog := TForm.Create(Self);
btOK := TButton.Create(frDialog);
btCancel := TButton.Create(frDialog);
lbName := TLabel.Create(frDialog);
lbSize := TLabel.Create(frDialog);
edtName := TEdit.Create(frDialog);
tbSize := TTrackBar.Create(frDialog);
with frDialog do
begin
Left := 0;
Top := 0;
Caption := 'Form2';
ClientHeight := 125;
ClientWidth := 230;
Color := clBtnFace;
Font.Charset := DEFAULT_CHARSET;
Font.Color := clWindowText;
Font.Height := -11;
Font.Name := 'Tahoma';
Font.Style := [];
OldCreateOrder := False;
PixelsPerInch := 96;
end;
with btOK do
begin
ParentWindow := frDialog.Handle;
Left := 71;
Top := 92;
Width := 73;
Height := 25;
Caption := 'OK';
TabOrder := 1
end;
with btCancel do
begin
ParentWindow := frDialog.Handle;
Left := 148;
Top := 92;
Width := 73;
Height := 25;
Caption := 'Cancel';
TabOrder := 2;
end;
with lbName do
begin
ParentWindow := frDialog.Handle;
Left := 16;
Top := 16;
Width := 22;
Height := 13;
Caption := 'Ime:';
ParentFont := false;
end;
with lbSize do
begin
ParentWindow := frDialog.Handle;
Color := clBlack;
Left := 16;
Top := 48;
Width := 39;
Height := 13;
Caption := 'Velicina:';
Visible := true;
end;
with edtName do
begin
ParentWindow := frDialog.Handle;
Left := 71;
Top := 13;
Width := 150;
Height := 21;
TabOrder := 0;
Text := 'Edit1'
end;
with tbSize do
begin
ParentWindow := frDialog.Handle;
Left := 65;
Top := 44;
Width := 163;
Height := 29;
TabOrder := 3;
end;
frDialog.ShowModal;
frDialog.Free;
end;