[utf8vcl-cvs] utf8vcl JVCLMainTest.dfm, NONE, 1.1 JVCLMainTest.pas, NONE, 1.1 JVCLTest.cfg, NONE, 1.1 JVCLTest.dpr, NONE, 1.1

[Robert M. <mar...@us...>]

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

Added Files:
	JVCLMainTest.dfm JVCLMainTest.pas JVCLTest.cfg JVCLTest.dpr 
Log Message:
test program for JVCL

--- NEW FILE: JVCLMainTest.pas ---
unit JVCLMainTest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, Buttons,
  JvMenus, JvArrowButton, JvExControls, JvButton, JvTransparentButton, JvColorBox,
  JvColorButton, ExtCtrls, JvExExtCtrls, JvExtComponent, JvOfficeColorButton,
  JvExButtons, JvButtons, JvFullColorSpaces, JvLabel, JvStaticText,
  JvFullColorCtrls, JvLinkLabel, JvHtControls,
  JvInstallLabel, JvExStdCtrls, JvBehaviorLabel;

type
  TForm1 = class(TForm)
    JvMainMenu1: TJvMainMenu;
    MainMenu1: TMenuItem;
    MainMenuItem1: TMenuItem;
    JvXPMenuItemPainter1: TJvXPMenuItemPainter;
    JvTransparentButton1: TJvTransparentButton;
    JvArrowButton1: TJvArrowButton;
    JvPopupMenu1: TJvPopupMenu;
    PopupItem11: TMenuItem;
    Popupitem21: TMenuItem;
    Exit1: TMenuItem;
    JvColorButton1: TJvColorButton;
    JvOfficeColorButton1: TJvOfficeColorButton;
    JvHTButton1: TJvHTButton;
    JvBehaviorLabel1: TJvBehaviorLabel;
    JvInstallLabel1: TJvInstallLabel;
    JvHTLabel1: TJvHTLabel;
    JvLinkLabel1: TJvLinkLabel;
    JvStaticText1: TJvStaticText;
    JvLabel1: TJvLabel;
    JvFullColorLabel1: TJvFullColorLabel;
    procedure MainMenuItem1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  TestText1 = 'I'#$C3#$B1#$DB#$B3#$C3#$AB#$72#$D7#$90#$C3#$A2;
  TestText2 = 't'#$D1#$96#$C3#$B4#$EF#$A7#$A7#$C3#$A0#$6C#$D1#$96#$7A#$C3#$A6#$74#$E2#$98#$BA#$6E;
  TestText = TestText1 + TestText2;

procedure TForm1.MainMenuItem1Click(Sender: TObject);
begin
  JvMainMenu1.Items[0].Caption := TestText;
  MainMenuItem1.Caption := TestText;
  JvTransparentButton1.Caption := TestText;
  JvArrowButton1.Caption := TestText;
  JvPopupMenu1.Items[0].Caption := TestText;
  JvPopupMenu1.Items[1].Caption := TestText;
  JvColorButton1.OtherCaption := TestText;
  JvOfficeColorButton1.Properties.CustomColorCaption := TestText;
  JvOfficeColorButton1.Properties.CustomColorHint := TestText;
  JvHTButton1.Caption := TestText;
  JvBehaviorLabel1.Caption := TestText + ' ' + TestText + ' ' + TestText;
  JvBehaviorLabel1.BehaviorOptions.Active := True;
  JvInstallLabel1.Lines[0] := TestText;
  JvInstallLabel1.Lines[1] := TestText;
  JvHTLabel1.Caption := TestText + #13#10 + TestText;
  JvLinkLabel1.Caption := TestText;
  JvFullColorLabel1.Caption := TestText;
  JvStaticText1.Caption := TestText;
  JvLabel1.Caption := TestText;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
  Close;
end;

end.

--- NEW FILE: JVCLMainTest.dfm ---
object Form1: TForm1
  Left = 192
  Top = 123
  Width = 1088
  Height = 750
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial Unicode MS'
  Font.Style = []
  Menu = JvMainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 15
  object JvTransparentButton1: TJvTransparentButton
    Left = 8
    Top = 8
    Width = 113
    Height = 32
    Caption = 'JvTransparentButton1'
    HotTrackFont.Charset = ANSI_CHARSET
    HotTrackFont.Color = clWindowText
    HotTrackFont.Height = -11
    HotTrackFont.Name = 'Arial Unicode MS'
    HotTrackFont.Style = []
  end
  object JvArrowButton1: TJvArrowButton
    Left = 8
    Top = 56
    Width = 113
    Height = 25
    DropDown = JvPopupMenu1
    Caption = 'JvArrowButton1'
    FillFont.Charset = DEFAULT_CHARSET
    FillFont.Color = clWindowText
    FillFont.Height = -11
    FillFont.Name = 'MS Sans Serif'
    FillFont.Style = []
  end
  object JvBehaviorLabel1: TJvBehaviorLabel
    Left = 280
    Top = 16
    Width = 87
    Height = 15
    Behavior = 'Typing'
    Caption = 'JvBehaviorLabel1'
  end
  object JvInstallLabel1: TJvInstallLabel
    Left = 280
    Top = 48
    Width = 180
    Height = 65
    Lines.Strings = (
      'InstallLabelLine1'
      'InstallLabelLine2')
  end
  object JvHTLabel1: TJvHTLabel
    Left = 280
    Top = 128
    Width = 185
    Height = 33
    AutoSize = False
    Caption = 'JvHTLabel1'#13#10'JvHTLabel1'
    WordWrap = True
  end
  object JvLinkLabel1: TJvLinkLabel
    Left = 280
    Top = 176
    Height = 15
    Caption = 'JvLinkLabel1'
    Text.Strings = (
      'JvLinkLabel1')
  end
  object JvLabel1: TJvLabel
    Left = 280
    Top = 256
    Width = 46
    Height = 15
    Caption = 'JvLabel1'
    HotTrackFont.Charset = ANSI_CHARSET
    HotTrackFont.Color = clWindowText
    HotTrackFont.Height = -11
    HotTrackFont.Name = 'Arial Unicode MS'
    HotTrackFont.Style = []
  end
  object JvFullColorLabel1: TJvFullColorLabel
    Left = 280
    Top = 200
    Width = 185
    Height = 25
    Caption = 'JvFullColorLabel1'
  end
  object JvColorButton1: TJvColorButton
    Left = 136
    Top = 16
    Width = 105
    OtherCaption = '&Other...'
    Options = []
    CustomColors.Strings = (
      '')
    TabOrder = 0
    TabStop = False
  end
  object JvOfficeColorButton1: TJvOfficeColorButton
    Left = 136
    Top = 56
    Width = 105
    Height = 22
    TabOrder = 1
    SelectedColor = clDefault
    HotTrackFont.Charset = DEFAULT_CHARSET
    HotTrackFont.Color = clWindowText
    HotTrackFont.Height = -11
    HotTrackFont.Name = 'MS Sans Serif'
    HotTrackFont.Style = []
    Properties.NoneColorCaption = 'No Color'
    Properties.DefaultColorCaption = 'Automatic'
    Properties.CustomColorCaption = 'Other Colors...'
    Properties.NoneColorHint = 'No Color'
    Properties.DefaultColorHint = 'Automatic'
    Properties.CustomColorHint = 'Other Colors...'
    Properties.NoneColorFont.Charset = DEFAULT_CHARSET
    Properties.NoneColorFont.Color = clWindowText
    Properties.NoneColorFont.Height = -11
    Properties.NoneColorFont.Name = 'MS Sans Serif'
    Properties.NoneColorFont.Style = []
    Properties.DefaultColorFont.Charset = DEFAULT_CHARSET
    Properties.DefaultColorFont.Color = clWindowText
    Properties.DefaultColorFont.Height = -11
    Properties.DefaultColorFont.Name = 'MS Sans Serif'
    Properties.DefaultColorFont.Style = []
    Properties.CustomColorFont.Charset = DEFAULT_CHARSET
    Properties.CustomColorFont.Color = clWindowText
    Properties.CustomColorFont.Height = -11
    Properties.CustomColorFont.Name = 'MS Sans Serif'
    Properties.CustomColorFont.Style = []
    Properties.FloatWindowCaption = 'Color Window'
    Properties.DragBarHint = 'Drag to float'
  end
  object JvHTButton1: TJvHTButton
    Left = 8
    Top = 96
    Width = 113
    Height = 25
    Caption = 'JvHTButton1'
    TabOrder = 2
  end
  object JvStaticText1: TJvStaticText
    Left = 280
    Top = 232
    Width = 71
    Height = 19
    Caption = 'JvStaticText1'
    HotTrackFont.Charset = ANSI_CHARSET
    HotTrackFont.Color = clWindowText
    HotTrackFont.Height = -11
    HotTrackFont.Name = 'Arial Unicode MS'
    HotTrackFont.Style = []
    Layout = tlTop
    TabOrder = 3
    TextMargins.X = 0
    TextMargins.Y = 0
    WordWrap = False
  end
  object JvMainMenu1: TJvMainMenu
    Style = msItemPainter
    ImageMargin.Left = 0
    ImageMargin.Top = 0
    ImageMargin.Right = 0
    ImageMargin.Bottom = 0
    ImageSize.Height = 0
    ImageSize.Width = 0
    ItemPainter = JvXPMenuItemPainter1
    Left = 72
    Top = 65528
    object MainMenu1: TMenuItem
      Caption = 'MainMenu'
      object MainMenuItem1: TMenuItem
        Caption = 'Translate'
        OnClick = MainMenuItem1Click
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
  end
  object JvXPMenuItemPainter1: TJvXPMenuItemPainter
    SelectionFrameBrush.Color = 13811126
    SelectionFramePen.Color = 6956042
    Left = 104
    Top = 65528
  end
  object JvPopupMenu1: TJvPopupMenu
    Style = msItemPainter
    ImageMargin.Left = 0
    ImageMargin.Top = 0
    ImageMargin.Right = 0
    ImageMargin.Bottom = 0
    ImageSize.Height = 0
    ImageSize.Width = 0
    ItemPainter = JvXPMenuItemPainter1
    Left = 16
    Top = 64
    object PopupItem11: TMenuItem
      Caption = 'PopupItem1'
    end
    object Popupitem21: TMenuItem
      Caption = 'Popupitem2'
    end
  end
end

--- NEW FILE: JVCLTest.dpr ---
program JVCLTest;

uses
  Forms,
  JVCLMainTest in 'JVCLMainTest.pas' {Form1},
  UTF8VCLUtils in 'UTF8VCLUtils.pas',
  UTF8VCL in 'UTF8VCL.pas',
  UTF8VCLControls in 'UTF8VCLControls.pas',
  UTF8VCLMessages in 'UTF8VCLMessages.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

--- NEW FILE: JVCLTest.cfg ---
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"c:\programme\borland\delphi6\Projects\Bpl"
-LN"c:\programme\borland\delphi6\Projects\Bpl"