ulan/host/apps/uloi_browser/fAbout.pas

   1 unit fAbout;\r
   2 \r
   3 {$mode objfpc}{$H+}\r
   4 \r
   5 interface\r
   6 \r
   7 uses\r
   8   LResources,\r
   9   Graphics, Forms, Controls,  StdCtrls, ExtCtrls, ActnList,Buttons,\r
  10   SysUtils, Classes, lcltype;\r
  11 \r
  12 type\r
  13 \r
  14   { TfrmAbout }\r
  15 \r
  16   TfrmAbout = class(TForm)\r
  17     LVersion: TLabel;\r
  18     lblVersion: TLabel;\r
  19     OKButton: TButton;\r
  20     Panel1: TPanel;\r
  21     imgLogo: TImage;\r
  22     memInfo: TMemo;\r
  23     lblTitle: TStaticText;\r
  24     procedure OKButtonClick(Sender: TObject);\r
  25     procedure FormKeyDown(Sender: TObject; var Key: Word;\r
  26       Shift: TShiftState);\r
  27     procedure frmAboutShow(Sender: TObject);\r
  28   private\r
  29     { Private declarations }\r
  30   public\r
  31     { Public declarations }\r
  32   end;\r
  33 \r
  34 \r
  35 procedure ShowAboutBox(v:string);\r
  36 \r
  37 implementation\r
  38 \r
  39 const\r
  40   cAboutMsg =\r
  41     'This program is free software under GNU GPL 2 license'+#13+\r
  42     'Authors: '+ #13 +\r
  43     'Petr Smolik (petr.smolik@wo.cz) - author' + #13 +\r
  44     'Contributors:'+#13+#13+\r
  45     'Big thanks to Lazarus and FreePascal Team';\r
  46 \r
  47 procedure ShowAboutBox(v:string);\r
  48 begin\r
  49   with TfrmAbout.Create(Application) do\r
  50   try\r
  51     Lversion.Caption:=v;\r
  52     ShowModal;\r
  53   finally\r
  54     Free;\r
  55   end;\r
  56 end;\r
  57 \r
  58 procedure TfrmAbout.OKButtonClick(Sender: TObject);\r
  59 begin\r
  60   Close;\r
  61 end;\r
  62 \r
  63 procedure TfrmAbout.FormKeyDown(Sender: TObject; var Key: Word;\r
  64   Shift: TShiftState);\r
  65 begin\r
  66   if (Key = VK_Escape) then\r
  67    Close;\r
  68 end;\r
  69 \r
  70 procedure TfrmAbout.frmAboutShow(Sender: TObject);\r
  71 begin\r
  72   memInfo.Lines.Text:=cAboutMsg;\r
  73 end;\r
  74 \r
  75 initialization\r
  76  {$I fAbout.lrs}\r
  77 end.\r
  78 \r