home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / BIN / CORIDE40.BPL / 0 / RCDATA / AXNEWSOURCE next >
Text File  |  1998-06-16  |  1KB  |  87 lines
  1. unit %0:s;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls;
  8.  
  9. type
  10.   T%1:s = class(TForm)
  11.     CtlImage: TSpeedButton;
  12.     NameLbl: TLabel;
  13.     OkBtn: TButton;
  14.     CopyrightLbl: TLabel;
  15.     DescLbl: TLabel;
  16.   end;
  17.  
  18. procedure Show%1:s;
  19.  
  20. implementation
  21.  
  22. {$R *.DFM}
  23.  
  24. procedure Show%1:s;
  25. begin
  26.   with T%1:s.Create(nil) do
  27.     try
  28.       ShowModal;
  29.     finally
  30.       Free;
  31.     end;
  32. end;
  33.  
  34. end.
  35. |object %0:s: T%0:s
  36.   Left = 200
  37.   Top = 108
  38.   BorderIcons = [biSystemMenu]
  39.   BorderStyle = bsDialog
  40.   AutoScroll = False
  41.   Caption = 'About'
  42.   ClientHeight = 127
  43.   ClientWidth = 267
  44.   ParentFont = True
  45.   Position = poScreenCenter
  46.   PixelsPerInch = 96
  47.   TextHeight = 13
  48. |  object NameLbl: TLabel
  49.     Left = 80
  50.     Top = 16
  51.     Width = 177
  52.     Height = 16
  53.     Caption = '%s'
  54.     Font.Color = clBtnText
  55.     Font.Name = 'Default'
  56.     Font.Height = -13
  57.     Font.Style = [fsBold]
  58.     ParentFont = False
  59.   end
  60.   object CopyrightLbl: TLabel
  61.     Left = 56
  62.     Top = 72
  63.     Width = 155
  64.     Height = 13
  65.     Caption = 'Copyright (c) %s %s'
  66.   end
  67.   object DescLbl: TLabel
  68.     Left = 80
  69.     Top = 34
  70.     Width = 53
  71.     Height = 13
  72.     Caption = 'Description'
  73.   end
  74.   object OkBtn: TButton
  75.     Left = 96
  76.     Top = 96
  77.     Width = 75
  78.     Height = 25
  79.     Cancel = True
  80.     Caption = 'OK'
  81.     Default = True
  82.     ModalResult = 1
  83.     TabOrder = 0
  84.   end
  85. end
  86. |
  87.