Menu
▾
▴
[JVCL-Checkins] CVS: dev/JVCL3/examples/RaLib/RaControls B1_RAControls.cpp,NONE,1.1 B1_RAControls.mak,NONE,1.1 B1_RAControls.res,NONE,1.1 B3_RAControls.bpr,NONE,1.1 B3_RAControls.cpp,NONE,1.1 B3_RAControls.res,NONE,1.1 B4_RAControls.bpr,NONE,1.1 B4_RAControls.cpp,NONE,1.1 B4_RAControls.res,NONE,1.1 B5_RAControls.bpr,NONE,1.1 B5_RAControls.cpp,NONE,1.1 B5_RAControls.res,NONE,1.1 RAControls.dof,NONE,1.1 RAControls.dpr,NONE,1.1 RAControls.mps,NONE,1.1 RAControls.res,NONE,1.1 fJvControls.dfm,NONE,1.1 fJvControls.pas,NONE,1.1 res.dcr,NONE,1.1 res.res,NONE,1.1
Update of /cvsroot/jvcl/dev/JVCL3/examples/RaLib/RaControls
In directory sc8-pr-cvs1:/tmp/cvs-serv5637/JVCL3/examples/RaLib/RaControls
Added Files:
B1_RAControls.cpp B1_RAControls.mak B1_RAControls.res
B3_RAControls.bpr B3_RAControls.cpp B3_RAControls.res
B4_RAControls.bpr B4_RAControls.cpp B4_RAControls.res
B5_RAControls.bpr B5_RAControls.cpp B5_RAControls.res
RAControls.dof RAControls.dpr RAControls.mps RAControls.res
fJvControls.dfm fJvControls.pas res.dcr res.res
Log Message:
- Copied jvcl/devtools and jvcl/examples dev/JVCL3
- Copied JVCLConvert *.dat files to dev/JVCL3/converter
--- NEW FILE: B1_RAControls.cpp ---
//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USERES("B1_RAControls.res");
USEFORMNS("fRAControls.pas", Fracontrols, MainForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TMainForm), &MainForm);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------
--- NEW FILE: B1_RAControls.mak ---
# ---------------------------------------------------------------------------
VERSION = BCB.01
# ---------------------------------------------------------------------------
!ifndef BCB
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
PROJECT = B1_RAControls.exe
OBJFILES = fRAControls.obj B1_RAControls.obj
RESFILES = B1_RAControls.res
RESDEPEN = $(RESFILES) fRAControls.dfm
LIBFILES =
DEFFILE =
# ---------------------------------------------------------------------------
CFLAG1 = -Od -Hc -w -k -r- -y -v -vi- -c -a4 -b- -w-par -w-inl -Vx -Ve -x
CFLAG2 = -I$(BCB)\include;$(BCB)\include\vcl;..\..\lib -H=$(BCB)\lib\vcld.csm
PFLAGS = -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE \
-U$(BCB)\lib\obj;$(BCB)\lib;..\..\lib \
-I$(BCB)\include;$(BCB)\include\vcl;..\..\lib -v -$Y -$W -$O- -JPHNV -M
RFLAGS = -i$(BCB)\include;$(BCB)\include\vcl;..\..\lib
LFLAGS = -L$(BCB)\lib\obj;$(BCB)\lib;..\..\lib -aa -Tpe -x -v -V4.0
IFLAGS =
LINKER = ilink32
# ---------------------------------------------------------------------------
ALLOBJ = c0w32.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) vcl.lib import32.lib cp32mt.lib
# ---------------------------------------------------------------------------
.autodepend
$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
.pas.hpp:
$(BCB)\BIN\dcc32 $(PFLAGS) { $** }
.pas.obj:
$(BCB)\BIN\dcc32 $(PFLAGS) { $** }
.cpp.obj:
$(BCB)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $*
.c.obj:
$(BCB)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $**
.rc.res:
$(BCB)\BIN\brcc32 $(RFLAGS) $<
#-----------------------------------------------------------------------------
--- NEW FILE: B1_RAControls.res ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: B3_RAControls.bpr ---
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.03
# ---------------------------------------------------------------------------
PROJECT = B3_RAControls.exe
OBJFILES = fRAControls.obj B3_RAControls.obj
RESFILES = B3_RAControls.res
DEFFILE =
RESDEPEN = $(RESFILES) fRAControls.dfm
LIBFILES =
LIBRARIES = radb35.lib ractl35.lib VCLDB35.lib vclx35.lib VCL35.lib
SPARELIBS = VCL35.lib vclx35.lib VCLDB35.lib ractl35.lib radb35.lib
PACKAGES = vclx35.bpi VCL35.bpi vcldb35.bpi vcldbx35.bpi bcbsmp35.bpi dclocx35.bpi \
Qrpt35.bpi teeui35.bpi teedb35.bpi tee35.bpi ibsmp35.bpi dss35.bpi NMFast35.bpi \
inetdb35.bpi inet35.bpi VclMid35.bpi
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
# ---------------------------------------------------------------------------
CFLAG1 = -Od -Hc -w -Ve -r- -k -y -v -vi- -c -b- -w-par -w-inl -Vx -tW
CFLAG2 = -D_RTLDLL -I$(BCB)\include;$(BCB)\include\vcl -H=$(BCB)\lib\vcl35.csm
CFLAG3 = -Tkh30000
PFLAGS = -D_RTLDLL -U..\..\lib;$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) \
-I$(BCB)\include;$(BCB)\include\vcl -$Y -$W -$O- -v -JPHN -M
RFLAGS = -D_RTLDLL -i$(BCB)\include;$(BCB)\include\vcl
AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /d_RTLDLL /mx /w2 /zd
LFLAGS = -L..\..\lib;$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v
IFLAGS =
# ---------------------------------------------------------------------------
ALLOBJ = c0w32.obj sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# ---------------------------------------------------------------------------
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[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=1049
CodePage=1251
[HistoryLists\hlIncludePath]
Count=1
Item0=$(BCB)\include;$(BCB)\include\vcl
[HistoryLists\hlLibraryPath]
Count=1
Item0=..\..\lib;$(BCB)\lib\obj;$(BCB)\lib
[HistoryLists\hlConditionals]
Count=1
Item0=_RTLDLL
[Debugging]
DebugSourceDirs=
[Parameters]
RunParams=
HostApplication=
!endif
$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) $(CFLAG2) $(CFLAG3) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) $(CFLAG2) $(CFLAG3) -n$(@D) {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------
--- NEW FILE: B3_RAControls.cpp ---
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("B3_RAControls.res");
USEFORMNS("fRAControls.pas", Fracontrols, Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------
--- NEW FILE: B3_RAControls.res ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: B4_RAControls.bpr ---
# ---------------------------------------------------------------------------
!if !$d(BCB)
BCB = $(MAKEDIR)\..
!endif
# ---------------------------------------------------------------------------
# IDE SECTION
# ---------------------------------------------------------------------------
# The following section of the project makefile is managed by the BCB IDE.
# It is recommended to use the IDE to change any of the values in this
# section.
# ---------------------------------------------------------------------------
VERSION = BCB.04.04
# ---------------------------------------------------------------------------
PROJECT = B4_RAControls.exe
OBJFILES = fRAControls.obj B4_RAControls.obj
RESFILES = B4_RAControls.res
RESDEPEN = $(RESFILES) fRAControls.dfm
LIBFILES =
IDLGENFILES =
IDLFILES =
LIBRARIES = rai45.lib radb45.lib dclradb45.lib ractl45.lib inet40.lib inetdb40.lib \
nmfast40.lib dss40.lib tee40.lib teedb40.lib teeui40.lib qrpt40.lib \
vcldbx40.lib ibsmp40.lib bcbsmp40.lib vcldb40.lib vclmid40.lib vcljpg40.lib \
vclx40.lib vcl40.lib
SPARELIBS = vcl40.lib vclx40.lib vcljpg40.lib vclmid40.lib vcldb40.lib bcbsmp40.lib \
ibsmp40.lib vcldbx40.lib qrpt40.lib teeui40.lib teedb40.lib tee40.lib dss40.lib \
nmfast40.lib inetdb40.lib inet40.lib ractl45.lib dclradb45.lib radb45.lib \
rai45.lib
PACKAGES = VCL40.bpi VCLX40.bpi VCLJPG40.bpi VCLMID40.bpi VCLDB40.bpi
DEFFILE =
# ---------------------------------------------------------------------------
PATHCPP = .;
PATHASM = .;
PATHPAS = .;
PATHRC = .;
DEBUGLIBPATH = $(BCB)\lib\debug
RELEASELIBPATH = $(BCB)\lib\release
USERDEFINES =
SYSDEFINES = _RTLDLL;NO_STRICT
# ---------------------------------------------------------------------------
CFLAG1 = -I$(BCB)\include;$(BCB)\include\vcl -Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve -r- \
-a8 -k -y -v -vi- -c -b- -w-par -w-inl -Vx -tW -tWM \
-D$(SYSDEFINES);$(USERDEFINES)
IDLCFLAGS = -I$(BCB)\include -I$(BCB)\include\vcl -src_suffixcpp
PFLAGS = -U$(BCB)\projects\lib;c:\cbuilder4\lib\release\;$(BCB)\lib\obj;$(BCB)\lib;..\..\lib;$(RELEASELIBPATH) \
-I$(BCB)\include;$(BCB)\include\vcl -$YD -$W -$O- -v -JPHNE -M
RFLAGS = -i$(BCB)\include;$(BCB)\include\vcl
AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /mx /w2 /zd
LFLAGS = -L$(BCB)\projects\lib;c:\cbuilder4\lib\release\;$(BCB)\lib\obj;$(BCB)\lib;..\..\lib;$(RELEASELIBPATH) \
-aa -Tpe -x -Gn -v
# ---------------------------------------------------------------------------
ALLOBJ = c0w32.obj Memmgr.Lib sysinit.obj $(OBJFILES)
ALLRES = $(RESFILES)
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
# ---------------------------------------------------------------------------
!ifdef IDEOPTIONS
[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=1049
CodePage=1251
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[HistoryLists\hlIncludePath]
Count=1
Item0=$(BCB)\include;$(BCB)\include\vcl
[HistoryLists\hlLibraryPath]
Count=2
Item0=$(BCB)\projects\lib;c:\cbuilder4\lib\release\;$(BCB)\lib\obj;$(BCB)\lib;..\..\lib
Item1=$(BCB)\projects\lib;c:\cbuilder4\lib\release;$(BCB)\lib\obj;$(BCB)\lib
[HistoryLists\hlDebugSourcePath]
Count=1
Item0=$(BCB)\source\vcl
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
InMemoryExe=0
ShowInfoMsgs=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
!endif
# ---------------------------------------------------------------------------
# MAKE SECTION
# ---------------------------------------------------------------------------
# This section of the project file is not used by the BCB IDE. It is for
# the benefit of building from the command-line using the MAKE utility.
# ---------------------------------------------------------------------------
.autodepend
# ---------------------------------------------------------------------------
!if !$d(BCC32)
BCC32 = bcc32
!endif
!if !$d(CPP32)
CPP32 = cpp32
!endif
!if !$d(DCC32)
DCC32 = dcc32
!endif
!if !$d(TASM32)
TASM32 = tasm32
!endif
!if !$d(LINKER)
LINKER = ilink32
!endif
!if !$d(BRCC32)
BRCC32 = brcc32
!endif
!if !$d(IDL2CPP)
IDL2CPP = idl2cpp
!endif
# ---------------------------------------------------------------------------
!if $d(PATHCPP)
.PATH.CPP = $(PATHCPP)
.PATH.C = $(PATHCPP)
!endif
!if $d(PATHPAS)
.PATH.PAS = $(PATHPAS)
!endif
!if $d(PATHASM)
.PATH.ASM = $(PATHASM)
!endif
!if $d(PATHRC)
.PATH.RC = $(PATHRC)
!endif
# ---------------------------------------------------------------------------
$(PROJECT): $(IDLGENFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(BCB)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!
# ---------------------------------------------------------------------------
.pas.hpp:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.pas.obj:
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
.cpp.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.obj:
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
.c.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.cpp.i:
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
.asm.obj:
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
.rc.res:
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
# ---------------------------------------------------------------------------
--- NEW FILE: B4_RAControls.cpp ---
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("B4_RAControls.res");
USEFORMNS("fRAControls.pas", Fracontrols, MainForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TMainForm), &MainForm);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------
--- NEW FILE: B4_RAControls.res ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: B5_RAControls.bpr ---
<?xml version='1.0' encoding='utf-8' ?>
<!-- C++Builder XML Project -->
<PROJECT>
<MACROS>
<VERSION value="BCB.05.03"/>
<PROJECT value="B5_RAControls.exe"/>
<OBJFILES value="fRAControls.obj B5_RAControls.obj"/>
<RESFILES value="B5_RAControls.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) fRAControls.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="RACTL53.lib Vcldb50.lib Vcl50.lib"/>
<SPARELIBS value="Vcl50.lib Vcldb50.lib RACTL53.lib"/>
<PACKAGES value="Vcl50.bpi Vclx50.bpi bcbsmp50.bpi Vcldb50.bpi vclado50.bpi ibsmp50.bpi
VCLBDE50.bpi vcldbx50.bpi Qrpt50.bpi TeeUI50.bpi TeeDB50.bpi Tee50.bpi
Dss50.bpi TeeQR50.bpi VCLIB50.bpi Vclmid50.bpi vclie50.bpi Inetdb50.bpi
Inet50.bpi NMFast50.bpi webmid50.bpi bcbie50.bpi RACTL53.bpi RADB53.bpi
RAI53.bpi"/>
<PATHCPP value=".;"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="tlink32"/>
<USERDEFINES value="_DEBUG"/>
<SYSDEFINES value="_RTLDLL;NO_STRICT"/>
<MAINSOURCE value="B5_RAControls.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl"/>
<LIBPATH value="..\..\lib;$(BCB)\lib\obj;$(BCB)\lib"/>
<WARNINGS value="-w-par"/>
</MACROS>
<OPTIONS>
<IDLCFLAGS value="-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tW -tWM"/>
<PFLAGS value="-$YD -$W -$O- -v -JPHNE -M"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
<LFLAGS value="-D"" -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj Memmgr.Lib sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib"/>
</LINKER>
<IDEOPTIONS>
[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=1049
CodePage=1251
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
HostApplication=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
ShowInfoMsgs=0
LinkDebugVcl=0
LinkCGLIB=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
</IDEOPTIONS>
</PROJECT>
--- NEW FILE: B5_RAControls.cpp ---
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("B5_RAControls.res");
USEFORMNS("fRAControls.pas", Fracontrols, MainForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TMainForm), &MainForm);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------
--- NEW FILE: B5_RAControls.res ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: RAControls.dof ---
[Directories]
OutputDir=..\..\..\Bin
UnitOutputDir=..\..\..\Dcu
SearchPath=..\..\..\Source;..\..\..\Common
--- NEW FILE: RAControls.dpr ---
program RAControls;
uses
Forms,
fJvControls in 'fJvControls.pas' {MainForm};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TMainForm , MainForm);
Application.Run;
end.
--- NEW FILE: RAControls.mps ---
[Hooked Modules]
RACONTROLS.EXE=T
--- NEW FILE: RAControls.res ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: fJvControls.dfm ---
object MainForm: TMainForm
Left = 351
Top = 137
BorderStyle = bsSingle
Caption = 'JVCL Library controls demo'
ClientHeight = 420
ClientWidth = 585
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
ShowHint = True
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
[...6535 lines suppressed...]
RegPath = 'Software\JVCL\RAControls'
IniFile = '$HOME/.RAControls'
Props.Strings = (
'.Top'
'.Left')
Left = 352
Top = 8
end
object RAProgressForm1: TJvProgressForm
Caption = 'Please wait...'
InfoLabel = 'Long operation in progress'
ProgressMin = 0
ProgressMax = 100
ProgressStep = 1
ProgressPosition = 0
OnShow = RAProgressForm1Show
Left = 240
Top = 8
end
end
--- NEW FILE: fJvControls.pas ---
unit fJvControls;
interface
{$INCLUDE JVCL.INC}
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, ExtCtrls, JvComponentPanel, StdCtrls, ComCtrls,
JvRegAuto, JvButtons, Buttons, JvScrollMax, Mask, DBCtrls,
JvDlg, JvHtControls, JvaScrollText
{$IFDEF COMPILER4_UP}, ImgList, JvComponent{$ENDIF COMPILER4_UP};
type
TMainForm = class(TForm)
PopupMenu1: TPopupMenu;
Item1: TMenuItem;
Item2: TMenuItem;
TabControl1: TTabControl;
RAComponentPanel1: TJvComponentPanel;
Memo1: TMemo;
RegAuto2: TJvRegAuto;
RACaptionButton1: TJvaCaptionButton;
RACaptionButton2: TJvaCaptionButton;
RACaptionButton3: TJvaCaptionButton;
ImageList1: TImageList;
RegAuto1: TJvRegAuto;
Notebook1: TNotebook;
Panel2: TPanel;
Label20: TLabel;
RAScrollMax1: TJvScrollMax;
RAScrollMaxBand1: TJvScrollMaxBand;
Label11: TLabel;
Label12: TLabel;
Label16: TLabel;
Edit9: TEdit;
Edit10: TEdit;
Edit14: TEdit;
RAScrollMaxBand2: TJvScrollMaxBand;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
RAScrollMaxBand3: TJvScrollMaxBand;
Label17: TLabel;
Label18: TLabel;
Edit15: TEdit;
Edit16: TEdit;
RAColorButton1: TJvaColorButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
RAScrollMax2: TJvScrollMax;
RAScrollMaxBand4: TJvScrollMaxBand;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
RAScrollMaxBand5: TJvScrollMaxBand;
Label10: TLabel;
Label21: TLabel;
Label22: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
RAScrollMaxBand6: TJvScrollMaxBand;
Label23: TLabel;
Label24: TLabel;
Edit8: TEdit;
Edit17: TEdit;
CheckBox1: TCheckBox;
Label19: TLabel;
Label25: TLabel;
ListBox1: TListBox;
RAhtListBox1: TJvhtListBox;
Memo2: TMemo;
Button1: TButton;
CheckBox2: TCheckBox;
Button2: TButton;
Button3: TButton;
RAProgressForm1: TJvProgressForm;
Label26: TLabel;
RAhtComboBox1: TJvHTComboBox;
RAScrollText1: TJvaScrollText;
Label27: TLabel;
RAhtLabel1: TJvHTLabel;
RAhtButton1: TJvHTButton;
RAhtLabel2: TJvHTLabel;
procedure RAComponentPanel1Click(Sender: TObject; Button: Integer);
procedure TabControl1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure RACaptionButton1Click(Sender: TObject);
procedure RANoFrameButton1Click(Sender: TObject);
procedure RAColorButton1Click(Sender: TObject);
procedure RAImage1KeyPress(Sender: TObject; var Key: Char);
procedure CheckBox1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure RAProgressForm1Show(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm ;
implementation
uses JvStrUtil, JvUtils;
{$R *.DFM}
{$R ..\..\..\resources\ractl.dcr}
{$R ..\..\..\resources\radb.dcr}
//{$R rai.dcr}
{$R res.dcr}
procedure TMainForm .TabControl1Change(Sender: TObject);
const
sRAControls = 'TJvEditor,TJvHLEditor,TJvHLEdPropDlg,'+
'TJvScrollMax,TJvaScrollText,TJvRegAuto,'+
'TJvhtListBox,TJvHTComboBox,TJvHTButton,TJvHTLabel,'+
'TJvaCaptionButton,TJvProgressForm,TJvComponentPanel,' +
//'TJvInterpreterProgram,TJvInterpreterFm,' +
'TJvaSQLScript,TJvDBTreeView,TJvDBLookupTreeView,'+
'TJvDBLookupTreeViewCombo,TJvDBMove';
var
Comps : string;
S : string;
i : integer;
begin
RAScrollText1.Stop;
case TabControl1.TabIndex of
0 :
begin
Comps := sRAControls;
RAComponentPanel1.ButtonCount := 20;
end;
{ 2 :
begin
Comps := sRADB;
RAComponentPanel1.ButtonCount := 7;
end; }
else
begin
Comps := '';
end;
end;
// RAComponentPanel1.RecreateButtons;
RAComponentPanel1.FirstVisible := 0;
i := 0;
S := SubStr(Comps, i, ',');
while S <> '' do
begin
RAComponentPanel1.Buttons[i].Hint := S;
try
RAComponentPanel1.Buttons[i].Glyph.LoadFromResourceName(hInstance, S);
except
end;
inc(i);
S := SubStr(Comps, i, ',');
end;
end;
procedure TMainForm .FormCreate(Sender: TObject);
var
hRgn : Windows.HRGN;
begin
Application.Title := Caption;
if FileExists(ExePath + '..\..\..\..\README.TXT') then
begin
RAScrollText1.Lines.LoadFromFile(ExePath + '..\..\..\..\README.TXT');
RAScrollText1.Lines.Insert(0, '$Font:Times New Roman;12;1');
RAScrollText1.Lines.Insert(3, '');
RAScrollText1.Lines.Insert(4, '');
RAScrollText1.Lines.Insert(4, '');
RAScrollText1.Lines.Insert(4, '');
RAScrollText1.Lines.Insert(4, '');
RAScrollText1.Lines.Insert(4, '');
RAScrollText1.Lines.Insert(4, '');
RAScrollText1.Lines.Insert(4, '');
RAScrollText1.Lines.Insert(12, '$Pause 3000');
RAScrollText1.Lines.Insert(13, '$Font:Times New Roman;9;0');
RAScrollText1.Lines.Add('$Pause 10000');
end
else
begin
RAScrollText1.Lines.Clear;
RAScrollText1.Lines.Add(' File "' + ExpandFileName(ExePath + '..\..\..\..\README.TXT') + '" not found !');
end;
RAScrollMax1.MouseClasses([TLabel]);
TabControl1Change(nil);
RAComponentPanel1Click(nil, 0);
RAhtComboBox1.ItemIndex := 0;
with RAScrollText1 do
begin
hRgn := CreateRoundRectRgn(0, 0, Width, Height, Width div 6, Width div 6);
if (hRgn = 0) or not BOOL(SetWindowRgn(Handle, hRgn, true)) then {fail};
end; { with }
RAhtLabel1.Caption :=
'<b><c:Red>TJvHTLabel</b><c:WindowText> can displays caption with few font styles.'#13+
'But only <u>one</u> font size allowed.'#13+
'<u>WordWrap</u> not supported, but multiline text can'#13+
'be showed, if caption contains <b>#13</b> characters.';
end;
procedure TMainForm .RAComponentPanel1Click(Sender: TObject; Button: Integer);
begin
Memo1.Lines.Clear;
if Button < 0 then exit;
RegAuto2.ReadSection(RAComponentPanel1.Buttons[Button].Hint+'\Descript', Memo1.Lines);
RAScrollText1.Stop;
NoteBook1.ActivePage := Trim(RegAuto2.ReadString(RAComponentPanel1.Buttons[Button].Hint, 'Page', ''));
Memo1.Visible := RegAuto2.ReadBool(RAComponentPanel1.Buttons[Button].Hint, 'Memo', True);
if NoteBook1.ActivePage = 'JvaScrollText' then
RAScrollText1.Scroll;
end;
procedure TMainForm .RACaptionButton1Click(Sender: TObject);
begin
ShowMessage('RACaptionButton displays glyph');
end;
procedure TMainForm .RANoFrameButton1Click(Sender: TObject);
begin
ShowMessage('RANoFrameButton has not border');
end;
procedure TMainForm .RAColorButton1Click(Sender: TObject);
begin
ShowMessage('RAColorButton has color');
end;
procedure TMainForm .RAImage1KeyPress(Sender: TObject; var Key: Char);
begin
ShowMessage('Key "'+Key+'" pressed !');
end;
procedure TMainForm .CheckBox1Click(Sender: TObject);
begin
RAScrollMax1.OneExpanded := CheckBox1.Checked;
RAScrollMax1.AutoHeight := CheckBox1.Checked;
end;
procedure TMainForm .Button1Click(Sender: TObject);
begin
ListBox1.Items := Memo2.Lines;
RAhtListBox1.Items := Memo2.Lines;
RAhtComboBox1.Items := Memo2.Lines;
end;
procedure TMainForm .CheckBox2Click(Sender: TObject);
begin
RAhtListBox1.HideSel := CheckBox2.Checked;
RAhtComboBox1.HideSel := CheckBox2.Checked;
end;
procedure TMainForm .Button2Click(Sender: TObject);
begin
ShowMessage(RAhtListBox1.PlainItems[0]);
end;
procedure TMainForm .RAProgressForm1Show(Sender: TObject);
begin
RAProgressForm1.ProgressPosition := RAProgressForm1.ProgressMin;
while RAProgressForm1.ProgressPosition < RAProgressForm1.ProgressMax do
begin
Sleep(50);
RAProgressForm1.InfoLabel := 'Long operation in progress: item'+ IntToStr(Random(100));
RAProgressForm1.ProgressPosition := RAProgressForm1.ProgressPosition + 1;
Application.ProcessMessages;
if RAProgressForm1.Cancel then Exit;
end; { while }
end;
procedure TMainForm .Button3Click(Sender: TObject);
begin
RAProgressForm1.Execute;
end;
procedure TMainForm .FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
RAScrollText1.Stop;
end;
end.
--- NEW FILE: res.dcr ---
(This appears to be a binary file; contents omitted.)
--- NEW FILE: res.res ---
(This appears to be a binary file; contents omitted.)
|