ulan/host/apps/uloi_browser/prop_settings.pas

   1 unit prop_settings;\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, StdCtrls,\r
   9   Buttons;\r
  10 \r
  11 type\r
  12 \r
  13   { Tfprop_settings }\r
  14 \r
  15   Tfprop_settings = class(TForm)\r
  16     EValue: TEdit;\r
  17     GroupBox1: TGroupBox;\r
  18     Label1: TLabel;\r
  19     LNumber: TLabel;\r
  20     Label3: TLabel;\r
  21     LName: TLabel;\r
  22     Label5: TLabel;\r
  23     SpeedButton1: TSpeedButton;\r
  24     SpeedButton2: TSpeedButton;\r
  25     procedure SpeedButton1Click(Sender: TObject);\r
  26     procedure SpeedButton2Click(Sender: TObject);\r
  27   private\r
  28     { private declarations }\r
  29   public\r
  30     { public declarations }\r
  31   end; \r
  32 \r
  33 var\r
  34   fprop_settings: Tfprop_settings;\r
  35 \r
  36 implementation\r
  37 \r
  38 { Tfprop_settings }\r
  39 \r
  40 procedure Tfprop_settings.SpeedButton1Click(Sender: TObject);\r
  41 begin\r
  42   ModalResult:=mrOk;\r
  43 end;\r
  44 \r
  45 procedure Tfprop_settings.SpeedButton2Click(Sender: TObject);\r
  46 begin\r
  47   ModalResult:=mrCancel;\r
  48 end;\r
  49 \r
  50 initialization\r
  51   {$I prop_settings.lrs}\r
  52 end.\r
  53 \r