ulan/host/apps/uloi_browser/sd_confirm.pas

   1 unit sd_confirm;\r
   2 \r
   3 {$mode objfpc}{$H+}\r
   4 \r
   5 interface\r
   6 \r
   7 uses\r
   8   Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls,\r
   9   ExtCtrls, StdCtrls, Buttons;\r
  10 \r
  11 type\r
  12 \r
  13   { Tfsd_error }\r
  14 \r
  15   { Tfsd_confirm }\r
  16 \r
  17   Tfsd_confirm = class(TForm)\r
  18     BitBtn1: TBitBtn;\r
  19     BitBtn2: TBitBtn;\r
  20     Image1: TImage;\r
  21     Label1: TLabel;\r
  22     LText: TLabel;\r
  23     Panel1: TPanel;\r
  24     Shape1: TShape;\r
  25   private\r
  26     { private declarations }\r
  27   public\r
  28     { public declarations }\r
  29   end; \r
  30 \r
  31 var\r
  32   fsd_confirm: Tfsd_confirm;\r
  33 \r
  34 implementation\r
  35 \r
  36 { Tfsd_confirm }\r
  37 \r
  38 initialization\r
  39  {$I sd_confirm.lrs}\r
  40 \r
  41 end.\r
  42 \r