[utf8vcl-cvs] utf8vcl TestForm.dfm, 1.16, 1.17 TestForm.pas, 1.23, 1.24

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/utf8vcl/utf8vcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv12137

Modified Files:
	TestForm.dfm TestForm.pas 
Log Message:
just changing the experiments

Index: TestForm.pas
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/TestForm.pas,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** TestForm.pas	19 Mar 2007 20:23:53 -0000	1.23
--- TestForm.pas	20 Mar 2007 07:51:46 -0000	1.24
***************
*** 173,177 ****
    OpenDialog1.Filter := TestText + '|*.*';
    OpenDialog1.FileName := TestText;
! //  OpenDialog1.Execute;
  
    Wide := TestText; // fails on D7, should work on bds, delphi converts it on compiletime
--- 173,177 ----
    OpenDialog1.Filter := TestText + '|*.*';
    OpenDialog1.FileName := TestText;
!   OpenDialog1.Execute;
  
    Wide := TestText; // fails on D7, should work on bds, delphi converts it on compiletime
***************
*** 179,185 ****
    Wide := S;
    S := Wide;
!   Assert( S = TestText);
  
!   FatalAppExitW(0, PWideChar(Wide));
  
    ShowMessage(Wide);
--- 179,185 ----
    Wide := S;
    S := Wide;
!   Assert(S = TestText);
  
!   //FatalAppExitW(0, PWideChar(Wide));
  
    ShowMessage(Wide);
***************
*** 210,214 ****
        Content := StringGrid1.Rows[Y][X];
  
!   ShowMessageFmt('Strange text: %s', [TestText]);
    OutputDebugString(PChar(TestText));
  
--- 210,214 ----
        Content := StringGrid1.Rows[Y][X];
  
!   ShowMessageFmt('%s', [TestText]);
    OutputDebugString(PChar(TestText));
  

Index: TestForm.dfm
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/TestForm.dfm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** TestForm.dfm	18 Mar 2007 21:47:34 -0000	1.16
--- TestForm.dfm	20 Mar 2007 07:51:45 -0000	1.17
***************
*** 5,10 ****
    BorderStyle = bsSingle
    Caption = 'Form1'
!   ClientHeight = 406
!   ClientWidth = 613
    Color = clBtnFace
    Font.Charset = ANSI_CHARSET
--- 5,10 ----
    BorderStyle = bsSingle
    Caption = 'Form1'
!   ClientHeight = 435
!   ClientWidth = 657
    Color = clBtnFace
    Font.Charset = ANSI_CHARSET
***************
*** 19,50 ****
    ShowHint = True
    PixelsPerInch = 96
!   TextHeight = 14
    object Label1: TLabel
!     Left = 7
!     Top = 7
      Width = 32
!     Height = 14
      Caption = 'Label1'
    end
    object SpeedButton1: TSpeedButton
!     Left = 72
!     Top = 184
!     Width = 57
!     Height = 22
      Caption = 'SpeedButton1'
    end
    object Edit1: TEdit
!     Left = 7
!     Top = 28
!     Width = 122
!     Height = 22
      TabOrder = 0
      Text = 'Edit1'
    end
    object Memo1: TMemo
!     Left = 7
!     Top = 56
!     Width = 122
!     Height = 42
      Ctl3D = True
      Lines.Strings = (
--- 19,50 ----
    ShowHint = True
    PixelsPerInch = 96
!   TextHeight = 15
    object Label1: TLabel
!     Left = 8
!     Top = 8
      Width = 32
!     Height = 15
      Caption = 'Label1'
    end
    object SpeedButton1: TSpeedButton
!     Left = 77
!     Top = 197
!     Width = 61
!     Height = 24
      Caption = 'SpeedButton1'
    end
    object Edit1: TEdit
!     Left = 8
!     Top = 30
!     Width = 130
!     Height = 23
      TabOrder = 0
      Text = 'Edit1'
    end
    object Memo1: TMemo
!     Left = 8
!     Top = 60
!     Width = 130
!     Height = 45
      Ctl3D = True
      Lines.Strings = (
***************
*** 54,86 ****
    end
    object Button1: TButton
!     Left = 7
!     Top = 105
!     Width = 65
!     Height = 21
      Caption = 'Button1'
      TabOrder = 2
    end
    object CheckBox1: TCheckBox
!     Left = 77
!     Top = 113
!     Width = 52
!     Height = 14
      Caption = 'CheckBox1'
      TabOrder = 3
    end
    object RadioButton1: TRadioButton
!     Left = 137
!     Top = 169
!     Width = 120
!     Height = 14
      Caption = 'RadioButton1'
      TabOrder = 4
    end
    object ListBox1: TListBox
!     Left = 7
!     Top = 133
!     Width = 122
!     Height = 42
!     ItemHeight = 14
      Items.Strings = (
        'ListBox1')
--- 54,86 ----
    end
    object Button1: TButton
!     Left = 8
!     Top = 113
!     Width = 69
!     Height = 22
      Caption = 'Button1'
      TabOrder = 2
    end
    object CheckBox1: TCheckBox
!     Left = 83
!     Top = 121
!     Width = 55
!     Height = 15
      Caption = 'CheckBox1'
      TabOrder = 3
    end
    object RadioButton1: TRadioButton
!     Left = 147
!     Top = 181
!     Width = 128
!     Height = 15
      Caption = 'RadioButton1'
      TabOrder = 4
    end
    object ListBox1: TListBox
!     Left = 8
!     Top = 143
!     Width = 130
!     Height = 45
!     ItemHeight = 15
      Items.Strings = (
        'ListBox1')
***************
*** 88,96 ****
    end
    object ComboBox1: TComboBox
!     Left = 137
!     Top = 141
!     Width = 120
!     Height = 22
!     ItemHeight = 14
      TabOrder = 6
      Text = 'ComboBox1'
--- 88,96 ----
    end
    object ComboBox1: TComboBox
!     Left = 147
!     Top = 151
!     Width = 128
!     Height = 23
!     ItemHeight = 15
      TabOrder = 6
      Text = 'ComboBox1'
***************
*** 99,114 ****
    end
    object GroupBox1: TGroupBox
!     Left = 137
!     Top = 92
!     Width = 120
!     Height = 42
      Caption = 'GroupBox1'
      TabOrder = 7
    end
    object Button2: TButton
!     Left = 529
!     Top = 372
!     Width = 66
!     Height = 23
      Caption = 'Translate'
      TabOrder = 8
--- 99,114 ----
    end
    object GroupBox1: TGroupBox
!     Left = 147
!     Top = 99
!     Width = 128
!     Height = 45
      Caption = 'GroupBox1'
      TabOrder = 7
    end
    object Button2: TButton
!     Left = 567
!     Top = 399
!     Width = 71
!     Height = 24
      Caption = 'Translate'
      TabOrder = 8
***************
*** 116,123 ****
    end
    object Button3: TButton
!     Left = 441
!     Top = 371
!     Width = 66
!     Height = 23
      Caption = 'SomeTests'
      TabOrder = 9
--- 116,123 ----
    end
    object Button3: TButton
!     Left = 473
!     Top = 398
!     Width = 70
!     Height = 24
      Caption = 'SomeTests'
      TabOrder = 9
***************
*** 125,132 ****
    end
    object RichEdit1: TRichEdit
!     Left = 441
!     Top = 128
!     Width = 162
!     Height = 77
      Lines.Strings = (
        'RichEdit1'
--- 125,132 ----
    end
    object RichEdit1: TRichEdit
!     Left = 473
!     Top = 137
!     Width = 173
!     Height = 83
      Lines.Strings = (
        'RichEdit1'
***************
*** 136,143 ****
    end
    object StringGrid1: TStringGrid
!     Left = 136
!     Top = 8
!     Width = 121
!     Height = 81
      ColCount = 3
      RowCount = 4
--- 136,143 ----
    end
    object StringGrid1: TStringGrid
!     Left = 146
!     Top = 9
!     Width = 129
!     Height = 86
      ColCount = 3
      RowCount = 4
***************
*** 150,165 ****
    end
    object ListView1: TListView
!     Left = 381
!     Top = 15
!     Width = 225
!     Height = 105
      Columns = <
        item
          Caption = 'Column1'
-         Width = 47
        end
        item
          Caption = 'Column2'
-         Width = 47
        end>
      GridLines = True
--- 150,163 ----
    end
    object ListView1: TListView
!     Left = 408
!     Top = 16
!     Width = 241
!     Height = 113
      Columns = <
        item
          Caption = 'Column1'
        end
        item
          Caption = 'Column2'
        end>
      GridLines = True
***************
*** 172,179 ****
    end
    object Activate: TButton
!     Left = 7
!     Top = 373
!     Width = 128
!     Height = 24
      Caption = 'Activate UTF8 support'
      Enabled = False
--- 170,177 ----
    end
    object Activate: TButton
!     Left = 8
!     Top = 400
!     Width = 137
!     Height = 25
      Caption = 'Activate UTF8 support'
      Enabled = False
***************
*** 181,188 ****
    end
    object Deactivate: TButton
!     Left = 142
!     Top = 373
!     Width = 128
!     Height = 24
      Caption = 'Deactivate UTF8 support'
      Enabled = False
--- 179,186 ----
    end
    object Deactivate: TButton
!     Left = 152
!     Top = 400
!     Width = 137
!     Height = 25
      Caption = 'Deactivate UTF8 support'
      Enabled = False
***************
*** 190,197 ****
    end
    object Button4: TButton
!     Left = 359
!     Top = 371
!     Width = 66
!     Height = 23
      Caption = 'FatalAppExit'
      TabOrder = 15
--- 188,195 ----
    end
    object Button4: TButton
!     Left = 385
!     Top = 398
!     Width = 70
!     Height = 24
      Caption = 'FatalAppExit'
      TabOrder = 15
***************
*** 199,222 ****
    end
    object BitBtn1: TBitBtn
!     Left = 8
!     Top = 184
!     Width = 57
!     Height = 25
      Caption = 'BitBtn1'
      TabOrder = 16
    end
    object StaticText1: TStaticText
!     Left = 136
!     Top = 184
!     Width = 58
!     Height = 18
      Caption = 'StaticText1'
      TabOrder = 17
    end
    object ValueListEditor1: TValueListEditor
!     Left = 8
!     Top = 216
!     Width = 121
!     Height = 49
      DisplayOptions = [doColumnTitles, doAutoColResize]
      Strings.Strings = (
--- 197,220 ----
    end
    object BitBtn1: TBitBtn
!     Left = 9
!     Top = 197
!     Width = 61
!     Height = 27
      Caption = 'BitBtn1'
      TabOrder = 16
    end
    object StaticText1: TStaticText
!     Left = 146
!     Top = 197
!     Width = 59
!     Height = 19
      Caption = 'StaticText1'
      TabOrder = 17
    end
    object ValueListEditor1: TValueListEditor
!     Left = 9
!     Top = 231
!     Width = 129
!     Height = 53
      DisplayOptions = [doColumnTitles, doAutoColResize]
      Strings.Strings = (
***************
*** 228,260 ****
    end
    object Panel1: TPanel
!     Left = 136
!     Top = 328
!     Width = 121
!     Height = 41
      Caption = 'Panel1'
      TabOrder = 19
    end
    object RadioGroup1: TRadioGroup
!     Left = 136
!     Top = 200
!     Width = 121
!     Height = 33
      Caption = 'RadioGroup1'
      TabOrder = 20
    end
    object MaskEdit1: TMaskEdit
!     Left = 8
!     Top = 272
!     Width = 121
!     Height = 22
      TabOrder = 21
      Text = 'MaskEdit1'
    end
    object CheckListBox1: TCheckListBox
!     Left = 136
!     Top = 240
!     Width = 121
!     Height = 41
!     ItemHeight = 14
      Items.Strings = (
        'CheckListBox1')
--- 226,258 ----
    end
    object Panel1: TPanel
!     Left = 146
!     Top = 351
!     Width = 129
!     Height = 44
      Caption = 'Panel1'
      TabOrder = 19
    end
    object RadioGroup1: TRadioGroup
!     Left = 146
!     Top = 214
!     Width = 129
!     Height = 36
      Caption = 'RadioGroup1'
      TabOrder = 20
    end
    object MaskEdit1: TMaskEdit
!     Left = 9
!     Top = 291
!     Width = 129
!     Height = 23
      TabOrder = 21
      Text = 'MaskEdit1'
    end
    object CheckListBox1: TCheckListBox
!     Left = 146
!     Top = 257
!     Width = 129
!     Height = 44
!     ItemHeight = 15
      Items.Strings = (
        'CheckListBox1')
***************
*** 262,272 ****
    end
    object LabeledEdit1: TLabeledEdit
!     Left = 136
!     Top = 304
!     Width = 121
!     Height = 22
!     EditLabel.Width = 61
!     EditLabel.Height = 14
      EditLabel.Caption = 'LabeledEdit1'
      TabOrder = 23
      Text = 'LabeledEdit1'
--- 260,272 ----
    end
    object LabeledEdit1: TLabeledEdit
!     Left = 146
!     Top = 326
!     Width = 129
!     Height = 23
!     EditLabel.Width = 65
!     EditLabel.Height = 15
      EditLabel.Caption = 'LabeledEdit1'
+     LabelPosition = lpAbove
+     LabelSpacing = 3
      TabOrder = 23
      Text = 'LabeledEdit1'