Pascal Diff, Version 0.4 (alt)
Hinweis: dies ist nicht die neueste Version!
Datei: Sample/main.dfm
object Form1: TForm1 Left = 0 Top = 0 AutoScroll = False Caption = 'Diff' ClientHeight = 321 ClientWidth = 529 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 529 Height = 89 BevelOuter = bvNone TabOrder = 2 DesignSize = ( 529 89) object Label1: TLabel Left = 424 Top = 64 Width = 32 Height = 13 Anchors = [akTop, akRight] Caption = 'Loops:' end object Edit1: TEdit Left = 16 Top = 16 Width = 401 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 0 end object Button1: TButton Left = 424 Top = 16 Width = 25 Height = 21 Anchors = [akTop, akRight] Caption = '...' TabOrder = 1 OnClick = Button1Click end object Edit2: TEdit Left = 16 Top = 40 Width = 401 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 2 end object Button2: TButton Left = 424 Top = 40 Width = 25 Height = 21 Anchors = [akTop, akRight] Caption = '...' TabOrder = 3 OnClick = Button2Click end object Button3: TButton Left = 464 Top = 16 Width = 49 Height = 37 Anchors = [akTop, akRight] Caption = 'Start' TabOrder = 4 OnClick = Button3Click end object CheckBox1: TCheckBox Left = 16 Top = 64 Width = 81 Height = 17 Caption = 'Ignore case' TabOrder = 5 end object CheckBox2: TCheckBox Left = 100 Top = 64 Width = 93 Height = 17 Caption = 'Ignore spaces' TabOrder = 6 end object CheckBox3: TCheckBox Left = 196 Top = 64 Width = 133 Height = 17 Caption = 'Multiple spaces as one' TabOrder = 7 end object CheckBox4: TCheckBox Left = 332 Top = 64 Width = 65 Height = 17 Caption = 'Heuristic' Checked = True State = cbChecked TabOrder = 8 end object ComboBox1: TComboBox Left = 464 Top = 60 Width = 49 Height = 21 Style = csDropDownList Anchors = [akTop, akRight] ItemHeight = 13 TabOrder = 9 Items.Strings = ( ' 1' ' 2' ' 5' ' 10' ' 20' ' 50' '100') end end object Memo1: TMemo Left = 16 Top = 96 Width = 241 Height = 209 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False ScrollBars = ssVertical TabOrder = 0 WantReturns = False WordWrap = False end object Memo2: TMemo Left = 272 Top = 96 Width = 241 Height = 209 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False ScrollBars = ssVertical TabOrder = 1 WantReturns = False WordWrap = False end object OpenDialog1: TOpenDialog Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing] Left = 24 Top = 104 end end |