[sword-cvs] sword/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls/Example ExampleUnicode.cfg,NONE,1.1 ExampleUnicode.dof,NONE,1.1 ExampleUnicode.dpr,NONE,1.1 ExampleUnicode.res,NONE,1.1 MainFrm.dfm,NONE,1.1 MainFrm.pas,NONE,1.1

[sword@www.crosswire.org]

Update of /usr/local/cvsroot/sword/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls/Example
In directory www:/tmp/cvs-serv22744/apps/windoze/CBuilder5/BibleCS/TntUnicodeControls/Example

Added Files:
	ExampleUnicode.cfg ExampleUnicode.dof ExampleUnicode.dpr 
	ExampleUnicode.res MainFrm.dfm MainFrm.pas 
Log Message:
Update TntUnicodeControls to that of January 18 2003
includes bcb projects for BCB5 and BCB6 that should be added to the respective sword workspaces
removed files that weren't need any more
needs tested for BCB5
updated BCB6 project that actually works will follow asap

--- NEW FILE: ExampleUnicode.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
-H+
-W+
-M
-$M16384,1048576
-K$00400000

--- NEW FILE: ExampleUnicode.dof ---
[FileVersion]
Version=6.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=1
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=
Packages=
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=$00000409
RootDir=
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=1033
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=

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

uses
  Forms,
  MainFrm in 'MainFrm.pas' {MainForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

--- NEW FILE: ExampleUnicode.res ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: MainFrm.dfm ---
object MainForm: TMainForm
  Left = 266
  Top = 190
  Width = 559
  Height = 451
  Caption = 'MainForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Shell Dlg 2'
  Font.Style = []
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TTntLabel
    Left = 16
    Top = 16
    Width = 184
    Height = 13
    Caption = 'TntEdit (Data aware version available)'
  end
  object Label2: TTntLabel
    Left = 16
    Top = 64
    Width = 217
    Height = 13
    Caption = 'TntComboBox (Data aware version available)'
  end
  object Label3: TTntLabel
    Left = 16
    Top = 176
    Width = 50
    Height = 13
    Caption = 'TntListBox'
  end
  object Label4: TTntLabel
    Left = 256
    Top = 176
    Width = 79
    Height = 13
    Caption = 'TntCheckListBox'
  end
  object Label5: TTntLabel
    Left = 16
    Top = 304
    Width = 44
    Height = 13
    Caption = 'TntMemo'
  end
  object Label6: TTntLabel
    Left = 16
    Top = 120
    Width = 217
    Height = 49
    Caption = 
      'This program will fully support Unicode characters only when run' +
      'ning on Windows NT/2000/XP.'
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Shell Dlg 2'
    Font.Style = [fsBold]
    ParentFont = False
    WordWrap = True
  end
  object TntComboBox1: TTntComboBox
    Left = 16
    Top = 80
    Width = 185
    Height = 21
    ItemHeight = 13
    TabOrder = 0
  end
  object TntEdit1: TTntEdit
    Left = 16
    Top = 32
    Width = 185
    Height = 21
    TabOrder = 1
  end
  object TntMemo1: TTntMemo
    Left = 16
    Top = 320
    Width = 481
    Height = 89
    TabOrder = 2
  end
  object TntListBox1: TTntListBox
    Left = 16
    Top = 192
    Width = 225
    Height = 97
    ItemHeight = 13
    TabOrder = 3
  end
  object TntCheckListBox1: TTntCheckListBox
    Left = 256
    Top = 192
    Width = 241
    Height = 97
    ItemHeight = 13
    TabOrder = 4
  end
  object Button1: TTntButton
    Left = 256
    Top = 8
    Width = 241
    Height = 25
    Caption = 'TntEdit.Text -> Form.Caption'
    TabOrder = 5
    OnClick = Button1Click
  end
  object Button2: TTntButton
    Left = 256
    Top = 40
    Width = 241
    Height = 25
    Caption = 'Add TntEdit.Text to TntComboBox.Items'
    TabOrder = 6
    OnClick = Button2Click
  end
  object Button3: TTntButton
    Left = 256
    Top = 72
    Width = 241
    Height = 25
    Caption = 'Add TntEdit.Text to TntListBox.Items'
    TabOrder = 7
    OnClick = Button3Click
  end
  object Button4: TTntButton
    Left = 256
    Top = 104
    Width = 241
    Height = 25
    Caption = 'Add TntEdit.Text to TntCheckListBox.Items'
    TabOrder = 8
    OnClick = Button4Click
  end
end

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

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  TntForms, StdCtrls, CheckLst, TntStdCtrls, TntDBCtrls;

type
  TMainForm = class(TTntForm{TNT-ALLOW TTntForm})
    TntComboBox1: TTntComboBox;
    TntEdit1: TTntEdit;
    TntMemo1: TTntMemo;
    TntListBox1: TTntListBox;
    TntCheckListBox1: TTntCheckListBox;
    Label1: TTntLabel;
    Label2: TTntLabel;
    Label3: TTntLabel;
    Label4: TTntLabel;
    Label5: TTntLabel;
    Button1: TTntButton;
    Button2: TTntButton;
    Button3: TTntButton;
    Button4: TTntButton;
    Label6: TTntLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  if Win32Platform = VER_PLATFORM_WIN32_NT then
    Font.Name := 'MS Shell Dlg 2'
  else
    Font.Name := 'MS Shell Dlg';
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
  Caption := TntEdit1.Text;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
  TntComboBox1.Items.Add(TntEdit1.Text);
end;

procedure TMainForm.Button3Click(Sender: TObject);
begin
  TntListBox1.Items.Add(TntEdit1.Text);
end;

procedure TMainForm.Button4Click(Sender: TObject);
begin
  TntCheckListbox1.Items.Add(TntEdit1.Text);
end;

end.