GenCodeHook, Version 1.4 (alt)
Hinweis: dies ist nicht die neueste Version!
Datei: Sample/fmain.dfm
object Form1: TForm1 Left = 0 Top = 0 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Flocke'#39's GenCodeHook Example' ClientHeight = 171 ClientWidth = 443 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnClose = FormClose OnHide = FormHide OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Shape1: TShape Left = 352 Top = 124 Width = 17 Height = 17 end object Shape2: TShape Left = 352 Top = 144 Width = 17 Height = 17 end object Label1: TLabel Left = 8 Top = 8 Width = 43 Height = 13 Caption = '&Input file:' FocusControl = Edit1 end object Label2: TLabel Left = 8 Top = 64 Width = 51 Height = 13 Caption = '&Output file:' FocusControl = Edit2 end object Bevel1: TBevel Left = 8 Top = 112 Width = 425 Height = 9 Shape = bsTopLine end object Label3: TLabel Left = 280 Top = 124 Width = 65 Height = 17 Alignment = taRightJustify AutoSize = False Caption = 'READ' Layout = tlCenter end object Label4: TLabel Left = 280 Top = 144 Width = 65 Height = 17 Alignment = taRightJustify AutoSize = False Caption = 'WRITE' Layout = tlCenter end object Edit1: TEdit Left = 8 Top = 24 Width = 361 Height = 21 TabOrder = 0 end object Button1: TButton Left = 376 Top = 8 Width = 57 Height = 37 Caption = 'Select...' TabOrder = 1 OnClick = Button1Click end object Edit2: TEdit Left = 8 Top = 80 Width = 361 Height = 21 TabOrder = 2 end object Button2: TButton Left = 376 Top = 64 Width = 57 Height = 37 Caption = 'Select...' TabOrder = 3 OnClick = Button2Click end object Button3: TButton Left = 376 Top = 124 Width = 57 Height = 37 Caption = 'Start' TabOrder = 4 OnClick = Button3Click end object OpenDialog1: TOpenDialog Filter = 'All files|*.*|' Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing] Title = 'Select input file' Left = 8 Top = 128 end object SaveDialog1: TSaveDialog Filter = 'All files|*.*|' Options = [ofHideReadOnly, ofPathMustExist, ofEnableSizing] Title = 'Select output file' Left = 40 Top = 128 end object Timer1: TTimer Interval = 10 OnTimer = Timer1Timer Left = 72 Top = 128 end end |