Simtel MSDOS - Coast to Coast/simteldosarchivecoasttocoast.iso/pcmag/vol11n19.zip/TEST2.PAS

Pascal/Delphi Source File | 1992-07-27 | 1KB | 47 lines

{
Title:  TEST2.PAS
Caption:This small program shows how little code is needed to invoke an Open File common dialog using the new TFileDlg object.
}

program Test2;

uses winprocs, wintypes, wobjects, strings, commdlg, UTest2;

{$R Test2}

type

  TMyApp = object(TApplication)
    procedure InitMainWindow; virtual;
  end;

  PMyMainWindow = ^TMyMainWindow;
  TMyMainWindow = object(TMDIWindow)
    procedure cmFileOpen(var Msg: TMessage); virtual cm_First + 101;
  end;

procedure TMyMainWindow.cmFileOpen(var Msg: TMessage);
var
  FileName: array [0..79] of Char;
  Result: Integer;
begin
  StrCopy(FileName, '*.pas');
  Result := Application^.ExecDialog(new(PFileDlg,
        Init(@Self, OFN_FileMustExist, Filename, SizeOf(Filename))));
  if Result = idOk then
    MessageBox(HWindow, Filename, 'You selected', mb_OK);
end;

procedure TMyApp.InitMainWindow;
begin
  MainWindow := new(PMyMainWindow, Init('Test CommDlg',
                     LoadMenu(HInstance, 'MainMenu')));
end;

var MyApp: TMyApp;
begin
  MyApp.Init('TestCommDlg');
  MyApp.Run;
  MyApp.Done;
end.