Menu
▾
▴
[JVCL-Checkins] SF.net SVN: jvcl:[13177] trunk/jvcl/examples
|
From: <ob...@us...> - 2011-11-22 11:07:22
|
Revision: 13177
http://jvcl.svn.sourceforge.net/jvcl/?rev=13177&view=rev
Author: obones
Date: 2011-11-22 11:07:07 +0000 (Tue, 22 Nov 2011)
Log Message:
-----------
Fixed compilation (using DXE, need to check with earlier versions)
Modified Paths:
--------------
trunk/jvcl/examples/JediSurveyor/SurveyConvert/scUtils.pas
trunk/jvcl/examples/JediSurveyor/Surveyor/MainFrm.pas
trunk/jvcl/examples/JediSurveyor/common/JvSurveyImpl.pas
trunk/jvcl/examples/JvBackground/BackgroundControl/TVDemoMain.pas
trunk/jvcl/examples/JvChartDemo/JvChartDemo.dproj
trunk/jvcl/examples/JvColorButton/ColorButtonDemo.dpr
trunk/jvcl/examples/JvComputerInfoEx/JvComputerInfoExDemoForm.pas
trunk/jvcl/examples/JvCreateProcess/ConsoleExampleMainFormU.pas
trunk/jvcl/examples/JvDBExplorer/ABOUT.PAS
trunk/jvcl/examples/JvDBExplorer/Childwin2.pas
trunk/jvcl/examples/JvDBExplorer/DBEXPL32.DPR
trunk/jvcl/examples/JvDBExplorer/Desttab.pas
trunk/jvcl/examples/JvDBExplorer/OPTDLG.PAS
trunk/jvcl/examples/JvDiagramShape/1. WebSiteScanner/JimParse.pas
trunk/jvcl/examples/JvDiagramShape/1. WebSiteScanner/WebMapperDemoMainForm.pas
trunk/jvcl/examples/JvDiagramShape/3. DependencyWalker/DepWalkUtils.pas
trunk/jvcl/examples/JvDocking/AdvanceDemo/Delphi_Source/AdvancePro.dpr
trunk/jvcl/examples/JvDocking/VCDemo/Source/CallStackUnit.pas
trunk/jvcl/examples/JvDocking/VCDemo/Source/MemoryUnit.pas
trunk/jvcl/examples/JvDocking/VCDemo/Source/OutputUnit.pas
trunk/jvcl/examples/JvDocking/VCDemo/Source/RegistersUnit.pas
trunk/jvcl/examples/JvDocking/VCDemo/Source/SourceEditUnit.pas
trunk/jvcl/examples/JvDocking/VCDemo/Source/VCDemoPro.dpr
trunk/jvcl/examples/JvDocking/VCDemo/Source/VariablesUnit.pas
trunk/jvcl/examples/JvDocking/VCDemo/Source/WatchUnit.pas
trunk/jvcl/examples/JvDocking/VCDemo/Source/WorkSpaceUnit.pas
trunk/jvcl/examples/JvHIDController/CollectionDemo/UsagesInfo.pas
trunk/jvcl/examples/JvInterpreterDemos/JvInterpreterDynamicLoad/JvInterpreter_MyLabelPackage.dpk
trunk/jvcl/examples/JvInterpreterDemos/JvInterpreterDynamicLoad/MainForm.pas
trunk/jvcl/examples/JvInterpreterDemos/JvInterpreterEndUser/fReports.dfm
trunk/jvcl/examples/JvInterpreterDemos/JvInterpreterEndUser/fReports.pas
trunk/jvcl/examples/JvInterpreterDemos/JvInterpreterTest/JvInterpreterTest.dproj
trunk/jvcl/examples/JvItemViewer/MainFrm.pas
trunk/jvcl/examples/JvManagedThreads/Balls/fBalls.pas
trunk/jvcl/examples/JvPlugin/3ChangingProperties/PlugInDemoU.pas
trunk/jvcl/examples/JvPlugin/6PluginPackage/PlgPlugin/plgTest.dpk
trunk/jvcl/examples/JvRichEdit/EditorDemo.res
trunk/jvcl/examples/JvSimpleXML Encode/MainFrm.pas
trunk/jvcl/examples/JvSimpleXML Encode/MainSpeedFrm.pas
trunk/jvcl/examples/JvSpellChecker/JvSpellCheckerForm.pas
trunk/jvcl/examples/JvXMLDatabase/Sources/ClassUrlParser.pas
trunk/jvcl/examples/JvXMLDatabase/Sources/FormMain.dfm
trunk/jvcl/examples/JvXMLDatabase/Sources/FormMain.pas
trunk/jvcl/examples/RaLib/Pas2Rai2/JvPasImportForm.pas
trunk/jvcl/examples/RaLib/RaControls/RAControls.res
trunk/jvcl/examples/RaLib/RaControls/fJvControls.pas
Added Paths:
-----------
trunk/jvcl/examples/JvColorButton/ColorButtonDemoMain.dfm
trunk/jvcl/examples/JvColorButton/ColorButtonDemoMain.pas
trunk/jvcl/examples/JvColorButton/ColorButtonDemoMain.xfm
trunk/jvcl/examples/JvDBExplorer/DBExplorerDemoMainForm.DFM
trunk/jvcl/examples/JvDBExplorer/DBExplorerDemoMainForm.PAS
trunk/jvcl/examples/JvDocking/AdvanceDemo/Delphi_Source/AdvanceProMainForm.dfm
trunk/jvcl/examples/JvDocking/AdvanceDemo/Delphi_Source/AdvanceProMainForm.pas
trunk/jvcl/examples/JvDocking/VCDemo/Source/VCDemoProMainForm.dfm
trunk/jvcl/examples/JvDocking/VCDemo/Source/VCDemoProMainForm.pas
Removed Paths:
-------------
trunk/jvcl/examples/JvColorButton/Main.dfm
trunk/jvcl/examples/JvColorButton/Main.pas
trunk/jvcl/examples/JvColorButton/Main.xfm
trunk/jvcl/examples/JvDBExplorer/MAIN.DFM
trunk/jvcl/examples/JvDBExplorer/MAIN.PAS
trunk/jvcl/examples/JvDocking/AdvanceDemo/Delphi_Source/Main.dfm
trunk/jvcl/examples/JvDocking/AdvanceDemo/Delphi_Source/Main.pas
trunk/jvcl/examples/JvDocking/VCDemo/Source/Main.dfm
trunk/jvcl/examples/JvDocking/VCDemo/Source/Main.pas
Modified: trunk/jvcl/examples/JediSurveyor/SurveyConvert/scUtils.pas
===================================================================
--- trunk/jvcl/examples/JediSurveyor/SurveyConvert/scUtils.pas 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JediSurveyor/SurveyConvert/scUtils.pas 2011-11-22 11:07:07 UTC (rev 13177)
@@ -26,6 +26,8 @@
interface
+{$I jvcl.inc}
+
procedure Run;
implementation
@@ -95,7 +97,7 @@
end;
for i := 1 to ParamCount do
- if not (ParamStr(i)[1] in ['-','/']) then
+ if not {$IFDEF RTL200_UP}CharInSet(ParamStr(i)[1],{$ELSE}(ParamStr(i)[1] in {$ENDIF RTL200_UP} ['-','/']) then
ConvertSurveys(ExpandUNCFilename(ParamStr(i)),InPlace,ToBinary);
end;
Modified: trunk/jvcl/examples/JediSurveyor/Surveyor/MainFrm.pas
===================================================================
--- trunk/jvcl/examples/JediSurveyor/Surveyor/MainFrm.pas 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JediSurveyor/Surveyor/MainFrm.pas 2011-11-22 11:07:07 UTC (rev 13177)
@@ -32,7 +32,8 @@
JvBevel, Buttons, JvBitBtn, JvFooter, JvComponent, JvSurveyIntf,
JvDialogs, ImgList, ActnList, JvActions, JvLinkLabel,
JvRadioButton, JvCheckBox, JvMemo, Menus, JvExForms, JvExButtons,
- JvExExtCtrls, JvExControls, JvImageSquare;
+ JvExExtCtrls, JvExControls, JvImageSquare, JvExStdCtrls, JvButton, JvCtrls,
+ JvExtComponent;
type
TfrmMain = class(TForm)
@@ -84,7 +85,7 @@
procedure acNextPageExecute(Sender: TObject);
procedure acLoadSurveyExecute(Sender: TObject);
procedure lblDescriptionLinkClick(Sender: TObject; LinkNumber: Integer;
- LinkText: String);
+ LinkText, LinkParam: String);
procedure acCheckAllExecute(Sender: TObject);
procedure acUncheckAllExecute(Sender: TObject);
procedure acInvertExecute(Sender: TObject);
@@ -646,7 +647,7 @@
if FSurvey.SurveyTaker.ID = '' then
FSurvey.SurveyTaker.ID := CreateClassID;
FSurvey.SaveToFile(FTempSurveyFilename,ffBinary);
- acSendMail.MailOptions.Attachments.Add(FTempSurveyFilename);
+ acSendMail.MailOptions.Attachments.Add({$IFDEF RTL200_UP}AnsiString{$ENDIF RTL200_UP}(FTempSurveyFilename));
acSendMail.MailOptions.ShowDialogs := true; // not acSendMail.Mail.UserLogged;
if acSendMail.Execute then
@@ -654,7 +655,7 @@
end;
procedure TfrmMain.lblDescriptionLinkClick(Sender: TObject;
- LinkNumber: Integer; LinkText: String);
+ LinkNumber: Integer; LinkText, LinkParam: String);
begin
OpenObject(LinkText);
end;
Modified: trunk/jvcl/examples/JediSurveyor/common/JvSurveyImpl.pas
===================================================================
--- trunk/jvcl/examples/JediSurveyor/common/JvSurveyImpl.pas 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JediSurveyor/common/JvSurveyImpl.pas 2011-11-22 11:07:07 UTC (rev 13177)
@@ -26,6 +26,8 @@
interface
+{$I jvcl.inc}
+
uses
SysUtils, Classes,
JvSurveyIntf, JvSimpleXML;
@@ -649,9 +651,9 @@
X: TJvSimpleXML;
AStream: TmemoryStream;
begin
- DecimalSeparator := '.';
- ShortDateFormat := 'YYYY-MM-DD';
- DateSeparator := '-';
+ {$IFDEF RTL220_UP}FormatSettings.{$ENDIF RTL220_UP}DecimalSeparator := '.';
+ {$IFDEF RTL220_UP}FormatSettings.{$ENDIF RTL220_UP}ShortDateFormat := 'YYYY-MM-DD';
+ {$IFDEF RTL220_UP}FormatSettings.{$ENDIF RTL220_UP}DateSeparator := '-';
Items.Clear;
AStream := TMemoryStream.Create;
try
@@ -698,24 +700,18 @@
X: TJvSimpleXML;
item, item2: TJvSimpleXmlElem;
i: integer;
- PrologStream: TStringStream;
AStream: TMemoryStream;
begin
- DecimalSeparator := '.';
- ShortDateFormat := 'YYYY-MM-DD';
- DateSeparator := '-';
+ {$IFDEF RTL220_UP}FormatSettings.{$ENDIF RTL220_UP}DecimalSeparator := '.';
+ {$IFDEF RTL220_UP}FormatSettings.{$ENDIF RTL220_UP}ShortDateFormat := 'YYYY-MM-DD';
+ {$IFDEF RTL220_UP}FormatSettings.{$ENDIF RTL220_UP}DateSeparator := '-';
// DONE: build XML doc
X := TJvSimpleXML.Create(nil);
try
Items.Sort;
- // this is weird: does it really have to be this complicated?
- PrologStream := TStringStream.Create('<?xml version="1.0" stand-alone="yes" encoding="UTF-8" ?>');
- try
- PrologStream.Seek(0, soFromBeginning);
- X.Prolog.LoadFromStream(PrologStream);
- finally
- PrologStream.Free;
- end;
+ X.Prolog.Version := '1.0';
+ X.Prolog.StandAlone := True;
+ X.Prolog.Encoding := 'UTF-8';
X.Root.Name := 'JEDISURVEY';
X.Root.Properties.Add('Version', '1.0');
item := X.Root.Items.Add('SURVEY');
Modified: trunk/jvcl/examples/JvBackground/BackgroundControl/TVDemoMain.pas
===================================================================
--- trunk/jvcl/examples/JvBackground/BackgroundControl/TVDemoMain.pas 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JvBackground/BackgroundControl/TVDemoMain.pas 2011-11-22 11:07:07 UTC (rev 13177)
@@ -2,6 +2,8 @@
interface
+{$I jvcl.inc}
+
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
JvBackgroundTreeview, ComCtrls, Menus, JvBackgrounds, StdCtrls, ExtCtrls;
@@ -144,7 +146,7 @@
AClass := TClass(Node.Data);
if AClass = TObject
then ClassName.Caption := 'System.TObject'
- else ClassName.Caption := GetTypeData(AClass.ClassInfo).UnitName+'.'+AClass.ClassName;
+ else ClassName.Caption := {$IFDEF RTL200_UP}string{$ENDIF RTL200_UP}(GetTypeData(AClass.ClassInfo).UnitName)+'.'+AClass.ClassName;
InstanceSize.Caption := IntToStr(AClass.InstanceSize);
PropListView.Items.Clear;
Properties := GetClassProperties(AClass, AllKinds);
@@ -155,8 +157,8 @@
for I := 0 to Length(Properties)-1 do
with PropListView.Items.Add, Properties[I]^ do
begin
- Caption := Name;
- SubItems.Add(PropType^^.Name);
+ Caption := {$IFDEF RTL200_UP}string{$ENDIF RTL200_UP}(Name);
+ SubItems.Add({$IFDEF RTL200_UP}string{$ENDIF RTL200_UP}(PropType^^.Name));
if Default = Low(Integer) then
DefaultStr := '<none>'
else
Modified: trunk/jvcl/examples/JvChartDemo/JvChartDemo.dproj
===================================================================
--- trunk/jvcl/examples/JvChartDemo/JvChartDemo.dproj 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JvChartDemo/JvChartDemo.dproj 2011-11-22 11:07:07 UTC (rev 13177)
@@ -4,7 +4,11 @@
<MainSource>JvChartDemo.dpr</MainSource>
<Config Condition="'$(Config)'==''">Debug</Config>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
- <ProjectVersion>12.0</ProjectVersion>
+ <ProjectVersion>12.3</ProjectVersion>
+ <Base>True</Base>
+ <Platform>Win32</Platform>
+ <AppType>Application</AppType>
+ <FrameworkType>VCL</FrameworkType>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
@@ -23,7 +27,7 @@
<DCC_UnitSearchPath>..\..\run;..\..\common;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<DCC_DependencyCheckOutputName>..\..\bin\JvChartDemo.exe</DCC_DependencyCheckOutputName>
<DCC_ImageBase>00400000</DCC_ImageBase>
- <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias>
+ <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias>
<DCC_Platform>x86</DCC_Platform>
<DCC_ExeOutput>..\..\bin</DCC_ExeOutput>
<DCC_K>false</DCC_K>
@@ -51,19 +55,20 @@
</DCCReference>
<DCCReference Include="StatsClasses.pas"/>
<DCCReference Include="..\..\run\JvChart.pas"/>
- <BuildConfiguration Include="Base">
- <Key>Base</Key>
- </BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
+ <BuildConfiguration Include="Base">
+ <Key>Base</Key>
+ </BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
- <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
@@ -72,11 +77,7 @@
<Source>
<Source Name="MainSource">JvChartDemo.dpr</Source>
</Source>
- <Parameters>
- <Parameters Name="UseLauncher">False</Parameters>
- <Parameters Name="LoadAllSymbols">True</Parameters>
- <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
- </Parameters>
+ <Parameters/>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
@@ -105,6 +106,9 @@
<VersionInfoKeys Name="Comments"/>
</VersionInfoKeys>
</Delphi.Personality>
+ <Platforms>
+ <Platform value="Win32">True</Platform>
+ </Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
Modified: trunk/jvcl/examples/JvColorButton/ColorButtonDemo.dpr
===================================================================
--- trunk/jvcl/examples/JvColorButton/ColorButtonDemo.dpr 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JvColorButton/ColorButtonDemo.dpr 2011-11-22 11:07:07 UTC (rev 13177)
@@ -2,12 +2,13 @@
uses
Forms,
- Main in 'Main.pas' {ColorDemoMainForm};
+ ColorButtonDemoMain in 'ColorButtonDemoMain.pas' {ColorDemoMainForm};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TColorDemoMainForm, ColorDemoMainForm);
+ Application.CreateForm(TColorDemoMainForm, ColorDemoMainForm);
Application.Run;
end.
Copied: trunk/jvcl/examples/JvColorButton/ColorButtonDemoMain.dfm (from rev 13174, trunk/jvcl/examples/JvColorButton/Main.dfm)
===================================================================
--- trunk/jvcl/examples/JvColorButton/ColorButtonDemoMain.dfm (rev 0)
+++ trunk/jvcl/examples/JvColorButton/ColorButtonDemoMain.dfm 2011-11-22 11:07:07 UTC (rev 13177)
@@ -0,0 +1,29 @@
+object ColorDemoMainForm: TColorDemoMainForm
+ Left = 349
+ Top = 137
+ BorderIcons = [biSystemMenu, biMinimize]
+ BorderStyle = bsSingle
+ Caption = 'ColorButton'
+ ClientHeight = 119
+ ClientWidth = 198
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'MS Sans Serif'
+ Font.Style = []
+ OldCreateOrder = True
+ PixelsPerInch = 96
+ TextHeight = 13
+ object ColorButton1: TJvColorButton
+ Left = 48
+ Top = 40
+ Width = 97
+ OtherCaption = '&Other...'
+ Options = [cdAnyColor]
+ Color = clNavy
+ OnChange = ColorButton1Change
+ TabOrder = 0
+ TabStop = False
+ end
+end
Copied: trunk/jvcl/examples/JvColorButton/ColorButtonDemoMain.pas (from rev 13174, trunk/jvcl/examples/JvColorButton/Main.pas)
===================================================================
--- trunk/jvcl/examples/JvColorButton/ColorButtonDemoMain.pas (rev 0)
+++ trunk/jvcl/examples/JvColorButton/ColorButtonDemoMain.pas 2011-11-22 11:07:07 UTC (rev 13177)
@@ -0,0 +1,58 @@
+{******************************************************************
+
+ JEDI-VCL Demo
+
+ Copyright (C) 2002 Project JEDI
+
+ Original author:
+
+ Contributor(s):
+
+ You may retrieve the latest version of this file at the JEDI-JVCL
+ home page, located at http://jvcl.delphi-jedi.org
+
+ The contents of this file are used with permission, subject to
+ the Mozilla Public License Version 1.1 (the "License"); you may
+ not use this file except in compliance with the License. You may
+ obtain a copy of the License at
+ http://www.mozilla.org/MPL/MPL-1_1Final.html
+
+ Software distributed under the License is distributed on an
+ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
+ implied. See the License for the specific language governing
+ rights and limitations under the License.
+
+******************************************************************}
+
+unit ColorButtonDemoMain;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+ StdCtrls, JvColorBox, Menus, Buttons, ExtCtrls,
+ JvComponent, JvExControls, JvColorButton;
+
+type
+ TColorDemoMainForm = class(TForm)
+ ColorButton1: TJvColorButton;
+ procedure ColorButton1Change(Sender: TObject);
+ public
+ end;
+
+var
+ ColorDemoMainForm: TColorDemoMainForm;
+
+implementation
+
+uses JvColorForm;
+
+{$R *.dfm}
+
+
+procedure TColorDemoMainForm.ColorButton1Change(Sender: TObject);
+begin
+ ColorDemoMainForm.Color := ColorButton1.Color;
+end;
+
+end.
\ No newline at end of file
Copied: trunk/jvcl/examples/JvColorButton/ColorButtonDemoMain.xfm (from rev 13174, trunk/jvcl/examples/JvColorButton/Main.xfm)
===================================================================
--- trunk/jvcl/examples/JvColorButton/ColorButtonDemoMain.xfm (rev 0)
+++ trunk/jvcl/examples/JvColorButton/ColorButtonDemoMain.xfm 2011-11-22 11:07:07 UTC (rev 13177)
@@ -0,0 +1,27 @@
+object ColorDemoMainForm: TColorDemoMainForm
+ Left = 349
+ Top = 137
+ BorderIcons = [biSystemMenu, biMinimize]
+ BorderStyle = fbsSingle
+ Caption = 'ColorButton'
+ ClientHeight = 119
+ ClientWidth = 198
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'MS Sans Serif'
+ Font.Style = []
+ OldCreateOrder = True
+ PixelsPerInch = 96
+ TextHeight = 13
+ object ColorButton1: TJvColorButton
+ Left = 48
+ Top = 40
+ Width = 97
+ OtherCaption = '&Other...'
+ Options = [cdAnyColor]
+ Color = clNavy
+ OnChange = ColorButton1Change
+ end
+end
Deleted: trunk/jvcl/examples/JvColorButton/Main.dfm
===================================================================
--- trunk/jvcl/examples/JvColorButton/Main.dfm 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JvColorButton/Main.dfm 2011-11-22 11:07:07 UTC (rev 13177)
@@ -1,27 +0,0 @@
-object ColorDemoMainForm: TColorDemoMainForm
- Left = 349
- Top = 137
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'ColorButton'
- ClientHeight = 119
- ClientWidth = 198
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- PixelsPerInch = 96
- TextHeight = 13
- object ColorButton1: TJvColorButton
- Left = 48
- Top = 40
- Width = 97
- OtherCaption = '&Other...'
- Options = [cdAnyColor]
- Color = clNavy
- OnChange = ColorButton1Change
- end
-end
Deleted: trunk/jvcl/examples/JvColorButton/Main.pas
===================================================================
--- trunk/jvcl/examples/JvColorButton/Main.pas 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JvColorButton/Main.pas 2011-11-22 11:07:07 UTC (rev 13177)
@@ -1,58 +0,0 @@
-{******************************************************************
-
- JEDI-VCL Demo
-
- Copyright (C) 2002 Project JEDI
-
- Original author:
-
- Contributor(s):
-
- You may retrieve the latest version of this file at the JEDI-JVCL
- home page, located at http://jvcl.delphi-jedi.org
-
- The contents of this file are used with permission, subject to
- the Mozilla Public License Version 1.1 (the "License"); you may
- not use this file except in compliance with the License. You may
- obtain a copy of the License at
- http://www.mozilla.org/MPL/MPL-1_1Final.html
-
- Software distributed under the License is distributed on an
- "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
- implied. See the License for the specific language governing
- rights and limitations under the License.
-
-******************************************************************}
-
-unit Main;
-
-interface
-
-uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls, JvColorBox, Menus, Buttons, ExtCtrls,
- JvComponent, JvExControls, JvColorButton;
-
-type
- TColorDemoMainForm = class(TForm)
- ColorButton1: TJvColorButton;
- procedure ColorButton1Change(Sender: TObject);
- public
- end;
-
-var
- ColorDemoMainForm: TColorDemoMainForm;
-
-implementation
-
-uses JvColorForm;
-
-{$R *.dfm}
-
-
-procedure TColorDemoMainForm.ColorButton1Change(Sender: TObject);
-begin
- ColorDemoMainForm.Color := ColorButton1.Color;
-end;
-
-end.
\ No newline at end of file
Deleted: trunk/jvcl/examples/JvColorButton/Main.xfm
===================================================================
--- trunk/jvcl/examples/JvColorButton/Main.xfm 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JvColorButton/Main.xfm 2011-11-22 11:07:07 UTC (rev 13177)
@@ -1,27 +0,0 @@
-object ColorDemoMainForm: TColorDemoMainForm
- Left = 349
- Top = 137
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = fbsSingle
- Caption = 'ColorButton'
- ClientHeight = 119
- ClientWidth = 198
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- PixelsPerInch = 96
- TextHeight = 13
- object ColorButton1: TJvColorButton
- Left = 48
- Top = 40
- Width = 97
- OtherCaption = '&Other...'
- Options = [cdAnyColor]
- Color = clNavy
- OnChange = ColorButton1Change
- end
-end
Modified: trunk/jvcl/examples/JvComputerInfoEx/JvComputerInfoExDemoForm.pas
===================================================================
--- trunk/jvcl/examples/JvComputerInfoEx/JvComputerInfoExDemoForm.pas 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JvComputerInfoEx/JvComputerInfoExDemoForm.pas 2011-11-22 11:07:07 UTC (rev 13177)
@@ -27,6 +27,8 @@
interface
+{$I jvcl.inc}
+
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, JvComputerInfoEx, Menus, JvMenus, StdCtrls, JvExStdCtrls,
@@ -222,7 +224,7 @@
for i := 0 to Count - 1 do
begin
PropInfo := PropList[i];
- PropName := PropInfo^.Name;
+ PropName := {$IFDEF RTL200_UP}string{$ENDIF RTL200_UP}(PropInfo^.Name);
case PropInfo^.PropType^.Kind of
tkInteger:
AddItem(Category, PropName, IntToStr(GetOrdProp(AnObject, PropName)), Indent);
Modified: trunk/jvcl/examples/JvCreateProcess/ConsoleExampleMainFormU.pas
===================================================================
--- trunk/jvcl/examples/JvCreateProcess/ConsoleExampleMainFormU.pas 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JvCreateProcess/ConsoleExampleMainFormU.pas 2011-11-22 11:07:07 UTC (rev 13177)
@@ -29,9 +29,12 @@
interface
+{$I jvcl.inc}
+
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
- Dialogs, JvComponent, JvCreateProcess, StdCtrls, Menus, ExtCtrls;
+ Dialogs, JvComponent, JvCreateProcess, StdCtrls, Menus, ExtCtrls,
+ JvComponentBase;
type
TConsoleExampleMainForm = class(TForm)
@@ -169,7 +172,7 @@
procedure TConsoleExampleMainForm.ExecuteCommand;
begin
AddCommand(edtCommand.Text);
- JvCreateProcess1.WriteLn(edtCommand.Text);
+ JvCreateProcess1.WriteLn({$IFDEF RTL200_UP}AnsiString{$ENDIF RTL200_UP}(edtCommand.Text));
edtCommand.SelectAll;
end;
Modified: trunk/jvcl/examples/JvDBExplorer/ABOUT.PAS
===================================================================
--- trunk/jvcl/examples/JvDBExplorer/ABOUT.PAS 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JvDBExplorer/ABOUT.PAS 2011-11-22 11:07:07 UTC (rev 13177)
@@ -93,7 +93,7 @@
begin
Image1.Cursor := crHandPoint;
VersionLabel.Caption := Format(VersionLabel.Caption, [SDbxVersion]);
- WinVer.Caption := GetWindowsVersion;
+ WinVer.Caption := GetWindowsVersionString;
MemStatus.dwLength := SizeOf(TMemoryStatusEx);
GlobalMemoryStatusEx(MemStatus);
Mem := MemStatus.ullTotalPhys;
Modified: trunk/jvcl/examples/JvDBExplorer/Childwin2.pas
===================================================================
--- trunk/jvcl/examples/JvDBExplorer/Childwin2.pas 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JvDBExplorer/Childwin2.pas 2011-11-22 11:07:07 UTC (rev 13177)
@@ -64,7 +64,7 @@
{$ENDIF USE_QR2}
JvBDEProgress, JvPicClip, JvBDELists, JvAnimatedImage, JvSpeedButton,
JvBDEIndex, JvDBControls, JvDBGrid, JvExControls, JvExStdCtrls,
- JvExExtCtrls, JvExDBGrids;
+ JvExExtCtrls, JvExDBGrids, JvComponentBase, JvExtComponent;
type
TTransOperation = (teStart, teCommit, teRollback);
@@ -274,7 +274,7 @@
uses SysUtils, Clipbrd, DBConsts, TUtil, JvJVCLUtils, JvJCLUtils, Options,
{$IFDEF USE_VQB} Qbe, {$ENDIF} Bde, SqlMon, EditStr,
- EditPict, ViewBlob, JvDBUtils, JvBdeUtils, JvDBQueryParamsForm, Main, FiltDlg, DestTab, SrcTab,
+ EditPict, ViewBlob, JvDBUtils, JvBdeUtils, JvDBQueryParamsForm, DBExplorerDemoMainForm, FiltDlg, DestTab, SrcTab,
BdeInfo;
const
Modified: trunk/jvcl/examples/JvDBExplorer/DBEXPL32.DPR
===================================================================
--- trunk/jvcl/examples/JvDBExplorer/DBEXPL32.DPR 2011-11-22 11:04:23 UTC (rev 13176)
+++ trunk/jvcl/examples/JvDBExplorer/DBEXPL32.DPR 2011-11-22 11:07:07 UTC (rev 13177)
@@ -13,22 +13,22 @@
Forms,
JvBDEExceptionForm,
JvJVCLUtils,
- Main in 'MAIN.PAS' {DBExplorerMainForm},
- ChildWin2 in 'CHILDWIN2.PAS' {MDIChild},
- OpenDlg in 'OPENDLG.PAS' {OpenDatabaseDlg},
- DestTab in 'DESTTAB.PAS' {DestTableDlg},
- About in 'ABOUT.PAS' {AboutDlg},
- EditPict in 'EDITPICT.PAS' {PictEditDlg},
- EditStr in 'EDITSTR.PAS' {StrEditDlg},
- ViewBlob in 'VIEWBLOB.PAS' {BlobViewDlg},
- FiltDlg in 'FILTDLG.PAS' {FilterDialog},
- OptDlg in 'OPTDLG.PAS' {OptionsDialog},
- SrcTab in 'SRCTAB.PAS' {SrcTableDlg},
- SqlMon in 'SQLMON.PAS' {TraceSQL},
- Options in 'OPTIONS.PAS',
- RenDlg in 'RENDLG.PAS' {RenameDialog},
- BdeInfo in 'BDEINFO.PAS',
- BdeProp in 'BDEPROP.PAS' {BdePropertyDlg};
+ DBExplorerDemoMainForm in 'DBExplorerDemoMainForm.PAS' {DBExplorerMainForm},
+ CHILDWIN2 in 'CHILDWIN2.PAS' {MDIChild},
+ OPENDLG in 'OPENDLG.PAS' {OpenDatabaseDlg},
+ DESTTAB in 'DESTTAB.PAS' {DestTableDlg},
+ ABOUT in 'ABOUT.PAS' {AboutDlg},
+ EDITPICT in 'EDITPICT.PAS' {PictEditDlg},
+ EDITSTR in 'EDITSTR.PAS' {StrEditDlg},
+ VIEWBLOB in 'VIEWBLOB.PAS' {BlobViewDlg},
+ FILTDLG in 'FILTDLG.PAS' {FilterDialog},
+ OPTDLG in 'OPTDLG.PAS' {OptionsDialog},
+ SRCTAB in 'SRCTAB.PAS' {SrcTableDlg},
+ SQLMON in 'SQLMON.PAS' {TraceSQL},
+ OPTIONS in 'OPTIONS.PAS',
+ RENDLG in 'RENDLG.PAS' {RenameDialog},
+ BDEINFO in 'BDEINFO.PAS',
+ BDEPROP in 'BDEPROP.PAS' {BdePropertyDlg};
{$R *.RES}
Copied: trunk/jvcl/examples/JvDBExplorer/DBExplorerDemoMainForm.DFM (from rev 13174, trunk/jvcl/examples/JvDBExplorer/MAIN.DFM)
===================================================================
--- trunk/jvcl/examples/JvDBExplorer/DBExplorerDemoMainForm.DFM (rev 0)
+++ trunk/jvcl/examples/JvDBExplorer/DBExplorerDemoMainForm.DFM 2011-11-22 11:07:07 UTC (rev 13177)
@@ -0,0 +1,932 @@
+object DBExplorerMainForm: TDBExplorerMainForm
+ Left = 223
+ Top = 155
+ Caption = 'Database Explorer'
+ ClientHeight = 191
+ ClientWidth = 472
+ Color = clAppWorkSpace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'MS Sans Serif'
+ Font.Style = []
+ FormStyle = fsMDIForm
+ Icon.Data = {
+ 0000010001002020100000000000E80200001600000028000000200000004000
+ 0000010004000000000000020000000000000000000000000000000000000000
+ 0000000080000080000000808000800000008000800080800000C0C0C0008080
+ 80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
+ 0000000000000000000000000000000000000000000000000000F00000000888
+ 888888888888880000F00F0000000000000000000000000FB07B000008000888
+ 8888888888888000FB0F0FBF000008FFFFF8FFFFFF8FF0B00F000FBFFB000888
+ 888888880000000F000FBFF9FFF008AAAAA8AAA00999890000000989BFF00888
+ 8888880098BFEF80FBF00FFFFFB008FFFFF8FF088E7FFE8000FFFBFBFFF00888
+ 88888809F0E0078080000FFFF00008FFFFF8FF087000F7808088800000000888
+ 88888809E7007008808F8088888008FFFFF8FFF00BF7008F8088808000800888
+ 8888888800000888808F8088808008FFFFF8FFFFFF8FFFFF8088808F80800888
+ 8888888888888888808F8088808008FFFFF8FFFFFF8FFFFF8088808F80800888
+ 8888888888888888808F80888080000000000000000000000088808F80800E7E
+ 7E7E7E7E7E7E7E7EE08F80888080000000000000000000000088808F80800000
+ 08FFFFF8FFFFFF8FFFFF80888080000008888888888888888888808F80800000
+ 000000000000000000000088808000000E7E7E7E7E7E7E7E7E7EE08F80800000
+ 00000000000000000000008880800000000008FFFFF8FFFFFF8FFFFF80800000
+ 0000088888888888888888888080000000000000000000000000000000800000
+ 00000E7E7E7E7E7E7E7E7E7EE08000000000000000000000000000000000FFFF
+ FC4FFFFFF80F8000000F00000003000000010000000000000000000000000000
+ 0000000000000000000000000007000000010000000100000001000000010000
+ 00010000000100000001000000010000000100000001F0000001F0000001F000
+ 0001F0000001F0000001FF000001FF000001FF000001FF000001FF0000030100}
+ Menu = MainMenu1
+ OldCreateOrder = True
+ Position = poDefault
+ WindowMenu = WindowMenu
+ OnCreate = FormCreate
+ OnDestroy = FormDestroy
+ PixelsPerInch = 96
+ TextHeight = 13
+ object SQLFontContainer: TLabel
+ Left = 8
+ Top = 72
+ Width = 64
+ Height = 13
+ Caption = 'SQL Font'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -13
+ Font.Name = 'Courier'
+ Font.Pitch = fpFixed
+ Font.Style = []
+ ParentFont = False
+ Visible = False
+ end
+ object BottomPanel: TPanel
+ Left = 0
+ Top = 171
+ Width = 472
+ Height = 20
+ Align = alBottom
+ BevelOuter = bvNone
+ TabOrder = 0
+ object StatusLine: TPanel
+ Left = 0
+ Top = 0
+ Width = 102
+ Height = 20
+ Align = alClient
+ Alignment = taLeftJustify
+ BevelInner = bvLowered
+ BevelOuter = bvNone
+ BorderWidth = 1
+ TabOrder = 0
+ end
+ object RightPanel: TPanel
+ Left = 329
+ Top = 0
+ Width = 143
+ Height = 20
+ Align = alRight
+ Alignment = taLeftJustify
+ BevelOuter = bvNone
+ BorderWidth = 1
+ TabOrder = 1
+ object DBGauge: TProgressBar
+ Left = 1
+ Top = 1
+ Width = 141
+ Height = 18
+ Align = alClient
+ Step = 5
+ TabOrder = 0
+ end
+ end
+ object StatusPanel: TPanel
+ Left = 205
+ Top = 0
+ Width = 124
+ Height = 20
+ Align = alRight
+ BevelInner = bvLowered
+ BevelOuter = bvNone
+ BorderWidth = 1
+ TabOrder = 2
+ object DBStatusLabel: TJvDBStatusLabel
+ Left = 2
+ Top = 2
+ Width = 120
+ Height = 16
+ Captions.Strings = (
+ 'Inactive'
+ 'Browse'
+ 'Edit'
+ 'Insert'
+ 'Search'
+ 'Calculate')
+ ShowOptions = doBoth
+ Align = alClient
+ Alignment = taCenter
+ AutoSize = False
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'MS Sans Serif'
+ Font.Style = [fsBold]
+ ParentFont = False
+ Transparent = True
+ OnGetDataName = DBStatusLabelGetDataName
+ end
+ end
+ object RecNoPanel: TPanel
+ Left = 102
+ Top = 0
+ Width = 103
+ Height = 20
+ Align = alRight
+ BevelInner = bvLowered
+ BevelOuter = bvNone
+ BorderWidth = 1
+ TabOrder = 3
+ object DBRecordNo: TJvDBStatusLabel
+ Left = 2
+ Top = 2
+ Width = 99
+ Height = 16
+ Style = lsRecordNo
+ Align = alClient
+ Alignment = taCenter
+ AutoSize = False
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'MS Sans Serif'
+ Font.Style = [fsBold]
+ ParentFont = False
+ Transparent = True
+ OnGetDataName = DBStatusLabelGetDataName
+ OnGetRecordCount = DBRecordNoGetRecordCount
+ OnDblClick = DBRecordNoDblClick
+ end
+ end
+ end
+ object JvSpeedbar: TJvSpeedBar
+ Left = 0
+ Top = 0
+ Width = 472
+ Height = 29
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'MS Sans Serif'
+ Font.Style = []
+ BoundLines = [blTop]
+ BtnOffsetHorz = 6
+ BtnOffsetVert = 4
+ BtnWidth = 24
+ BtnHeight = 23
+ IniStorage = FormPlacement
+ Version = 9
+ BevelOuter = bvNone
+ TabOrder = 1
+ OnApplyAlign = JvSpeedbarApplyAlign
+ OnPosChanged = JvSpeedbarPosChanged
+ OnResize = JvSpeedbarResize
+ InternalVer = 1
+ object DBNavigator: TDBNavigator
+ Left = 266
+ Top = 4
+ Width = 200
+ Height = 22
+ TabOrder = 0
+ end
+ object SpeedbarSection1: TJvSpeedBarSection
+ Caption = 'Database'
+ end
+ object SpeedbarSection2: TJvSpeedBarSection
+ Caption = 'Utilities'
+ end
+ object SpeedbarSection3: TJvSpeedBarSection
+ Caption = 'Tools'
+ end
+ object SpeedbarSection4: TJvSpeedBarSection
+ Caption = 'Help'
+ end
+ object SpeedItem1: TJvSpeedItem
+ Caption = 'Open Database'
+ Glyph.Data = {
+ 66010000424D6601000000000000760000002800000014000000140000000100
+ 040000000000F000000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+ 33333333000030000000003333333333000030F77777080333333333000030F7
+ 7777080333333333000030F77777080333333333000030F77777080333333333
+ 000030F77777080333333333000030F77777080333333333000030F888870803
+ 33333333000030FFFFF7080333333333000030F88887080333333333000030FF
+ FFF7080333333333000030F77997080330000333000030F77997080330EA0333
+ 000030FFFFFF080000AE00030000300000000030EAEAEA030000333333333330
+ 00AE0003000033333333333330EA033300003333333333333000033300003333
+ 33333333333333330000}
+ Hint = 'Open Database|Open an existing database'
+ Spacing = 1
+ Left = 6
+ Top = 4
+ Visible = True
+ OnClick = FileOpenItemClick
+ SectionName = 'Database'
+ end
+ object CloseButton: TJvSpeedItem
+ Caption = 'Close Database'
+ Enabled = False
+ Glyph.Data = {
+ 66010000424D6601000000000000760000002800000014000000140000000100
+ 040000000000F000000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+ 33333333000030000000003333333333000030F77777080333333333000030F7
+ 7777080333333333000030F77777080333333333000030F77777080333333333
+ 000030F77777080333333333000030F77777080333333333000030F888870803
+ 33333333000030FFFFF7080333333333000030F88887080333333333000030FF
+ FFF7080333333333000030F77997080333333333000030F77997080333333333
+ 000030FFFFFF0803333333330000300000000033000000030000333333333333
+ 09D9D90300003333333333330000000300003333333333333333333300003333
+ 33333333333333330000}
+ Hint = 'Close Database|Close current database'
+ Spacing = 1
+ Left = 30
+ Top = 4
+ Visible = True
+ OnClick = FileCloseItemClick
+ SectionName = 'Database'
+ end
+ object SpeedItem3: TJvSpeedItem
+ Caption = 'Exit'
+ Glyph.Data = {
+ 66010000424D6601000000000000760000002800000014000000140000000100
+ 040000000000F000000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+ 33333333000088888888888888833338000088888888888888F3F38800008888
+ 888888888F3F38880000444444088888FFF44443000033333450888F3FF43333
+ 00003333345508FFFFF4333300003333345550FFFFF4333300003330045550FF
+ FFF4333300003330A05550FFFFF4333300000000EA0550FFFEF4333300000EAE
+ AEA050FFFFF4333300000AEAEAEA00FEFEF4333300000EAEAEA050FFFFF43333
+ 00000000EA0550FEFEF4333300003330A05550EFEFE4333300003330045550FE
+ FEF4333300003333345550EFEFE4333300003333344444444444333300003333
+ 33333333333333330000}
+ Hint = 'Exit|Exit the application'
+ Spacing = 1
+ Left = 222
+ Top = 4
+ Visible = True
+ OnClick = FileExitItemClick
+ SectionName = 'Database'
+ end
+ object PackBtn: TJvSpeedItem
+ Caption = 'Pack Table'
+ Enabled = False
+ Glyph.Data = {
+ F6000000424DF600000000000000760000002800000010000000100000000100
+ 0400000000008000000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
+ DDDDDDDDDD000000000DDDDDDDDDDD00DDDDDDDDDDD0000000D0DDDDDD078787
+ 870DD00000000000080DD03B3B3B3B0D070DD0B3B3B3B30D080DD03B3B3B3B0D
+ 070DD0B3B3B3B30D080DD03B3000000D070DD0B3B0DDDDDD080DDD000D000000
+ 070DDDDDDD08787870DDDDDDDDD000000DDDDDDDDDDDDDDDDDDD}
+ Hint = 'Pack Table|Pack Paradox or DBase table'
+ Spacing = 1
+ Left = 3
+ Top = 4
+ OnClick = PackTableClick
+ SectionName = 'Utilities'
+ end
+ object DeleteBtn: TJvSpeedItem
+ Caption = 'Delete Table'
+ Enabled = False
+ Glyph.Data = {
+ DE010000424DDE01000000000000760000002800000024000000120000000100
+ 0400000000006801000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+ 333333333333333333333333000033338833333333333333333F333333333333
+ 0000333911833333983333333388F333333F3333000033391118333911833333
+ 38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
+ 911118111118333338F3338F833338F3000033333911111111833333338F3338
+ 3333F8330000333333911111183333333338F333333F83330000333333311111
+ 8333333333338F3333383333000033333339111183333333333338F333833333
+ 00003333339111118333333333333833338F3333000033333911181118333333
+ 33338333338F333300003333911183911183333333383338F338F33300003333
+ 9118333911183333338F33838F338F33000033333913333391113333338FF833
+ 38F338F300003333333333333919333333388333338FFF830000333333333333
+ 3333333333333333333888330000333333333333333333333333333333333333
+ 0000}
+ Hint = 'Delete Table|Delete selected table'
+ NumGlyphs = 2
+ Spacing = 1
+ Left = 3
+ Top = 4
+ OnClick = DeleteTableClick
+ SectionName = 'Utilities'
+ end
+ object EmptyBtn: TJvSpeedItem
+ Caption = 'Empty Table'
+ Enabled = False
+ Glyph.Data = {
+ 42010000424D4201000000000000760000002800000011000000110000000100
+ 040000000000CC00000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+ 3333300000003333333333133333300000003333333331133333100000003333
+ 3333311133313000000033333333331133113000000030000000000011533000
+ 0000303333333335113330000000303003003031511330000000303333333311
+ 331150000000304444445144443510000000334FFFFF15FFF43330000000334F
+ 00F00F00F43330000000334FFFFFFFFFF4333000000033444444444444333000
+ 0000334344344344343330000000334444444444443330000000333333333333
+ 333330000000}
+ Hint = 'Empty Table|Empty selected table'
+ Spacing = 1
+ Left = 3
+ Top = 4
+ OnClick = EmptyTableClick
+ SectionName = 'Utilities'
+ end
+ object RenameBtn: TJvSpeedItem
+ Caption = 'Rename Table'
+ Enabled = False
+ Glyph.Data = {
+ F6000000424DF600000000000000760000002800000010000000100000000100
+ 0400000000008000000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
+ 83333333330AAAAA00833333330AAAAAA2033333330AAAAA2A20333333000000
+ A220333333333333002033333333333333003333033333333300333003333333
+ 0020330A00000000A22030AAAAAAAAAA2A200AAAAAAAAAAAA20330AAAAAAAAAA
+ 0033330A00000000833333300333333333333333033333333333}
+ Hint = 'Rename Table|Rename selected table'
+ Spacing = 1
+ Left = 3
+ Top = 4
+ OnClick = RenameTableClick
+ SectionName = 'Utilities'
+ end
+ object ExportBtn: TJvSpeedItem
+ Caption = 'Export Data'
+ Enabled = False
+ Glyph.Data = {
+ 4E010000424D4E01000000000000760000002800000012000000120000000100
+ 040000000000D800000000000000000000001000000010000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333303333333
+ 3333330000003333003000000000000000003800000078888888800000008000
+ 0000F77777778000000000830030F99777778000000000330330FFFFFFFF7000
+ 0000003333300000000000000000003333333333333333000000333333333333
+ 3333330000000000000000033333330000000FFF0FFFFF033333330000000F9F
+ 0FB99F033333330000000FFF0FFFFF033333330000000F9F0FB99F0333333300
+ 00000FFF0FFFFF033333330000000000000000033333330000000EEEEEEEEE03
+ 333333000000000000000003333333000000}
+ Hint = 'Export Data|Export data to dBase, ASCII or Paradox format'
+ Spacing = 1
+ Left = 62
+ Top = 4
+ Visible = True
+ OnClick = ExportClick
+ SectionName = 'Utilities'
+ end
+ object ImportBtn: TJvSpeedItem
+ Caption = 'Import Data'
+ Enabled = False
+ Glyph.Data = {
+ 4E010000424D4E01000000000000760000002800000012000000120000000100
+ 040000000000D800000000000000000000001000000010000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+ 3333330000000000000000033333330000000788888888033333330000000F77
+ 777778033333330000000F99777778033333330000000FFFFFFFF70333333300
+ 0000000000000003333333000000333333333333333333000000003333333333
+ 33333300000000333330000000000000000000333330FFF0FFFFF00000000033
+ 0330F9F0F9B9F000000000830030FFF0FFFFF000000080000000F9F0F9B9F000
+ 000038000000FFF0FFFFF000000033330030000000000000000033330330EEEE
+ EEEEE0000000333333300000000000000000}
+ Hint = 'Import Data|Import data from dBase or Paradox format'
+ Spacing = 1
+ Left = 86
+ Top = 4
+ Visible = True
+ OnClick = ImportClick
+ SectionName = 'Utilities'
+ end
+ object PrintBtn: TJvSpeedItem
+ Caption = 'Print Data'
+ Enabled = False
+ Glyph.Data = {
+ 66010000424D6601000000000000760000002800000014000000140000000100
+ 040000000000F000000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
+ DDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDDD8888888888DDDDD0000DDDD
+ 000000000008DDDD0000DDD08787878780808DDD0000DD0000000000000808DD
+ 0000DD0F7F7F7AAA7F0008DD0000DD07F7F7F999F70808DD0000DD0000000000
+ 0007808D0000DD07F7F7F7F7F070708D0000DDD0000000000F07008D0000DDDD
+ 0BFFFBFFF0F070DD0000DDDDD0F00000F0000DDD0000DDDDD0FBFFFBFF0DDDDD
+ 0000DDDDDD0F00000F0DDDDD0000DDDDDD0FFBFFFBF0DDDD0000DDDDDDD00000
+ 0000DDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDDD0000DDDD
+ DDDDDDDDDDDDDDDD0000}
+ Hint = 'Print Data|Print data'
+ Spacing = 1
+ Top = 4
+ OnClick = PrintDataClick
+ SectionName = 'Utilities'
+ end
+ object SQLMonitorBtn: TJvSpeedItem
+ Caption = 'SQL Monitor'
+ Glyph.Data = {
+ F6000000424DF600000000000000760000002800000010000000100000000100
+ 0400000000008000000000000000000000001000000000000000000000000000
+ 8000008000000080800080000000800080008080000080808000C0C0C0000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00100000000010
+ 000110FFFFFFF010BB0110F0F0F0F010000110FFFFFFF010BB0110F0F0F00000
+ BB0110FFFFFF0BB00BB010F0F0F00BB00BB01CCCCCCC0BB00BB01108FFFF0BBB
+ BBB01108777780BBBB011108888887000011110877778701111111087F9A8701
+ 1111110888888701111111107777770111111111111111111111}
+ Hint = 'SQL Monitor|Show SQL monitor'
+ Spacing = 1
+ Top = 4
+ OnClick = SQLMonitorItemClick
+ SectionName = 'Utilities'
+ end
+ object RepairBtn: TJvSpeedItem
+ Caption = 'Check Paradox Tables'
+ Enabled = False
+ Glyph.Data = {
+ 76010000424D7601000000000000760000002800000020000000100000000100
+ 0400000000000001000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+ 333333333333333333333333333333333333333FF33333333FF3330033333333
+ 00333388FF33333388FF300003333330000338888FFFFFF8888F000000000000
+ 000088888888888888880F77FFFF7FFF77F08F333F33333333380FFF9FFF7FFF
+ FF808F338FF333FFFFF80FF999FF700000038F388833388888830FFF9FFF0777
+ 70338F3383338F3338330FFFFFFF077703338FFFFFFF8FFF8333800000000000
+ 3333888888888888F33333333339399939333333333338883333333333333393
+ 3333333333333383333333333333933393333333333333333333333333333393
+ 3333333333333333333333333333333333333333333333333333}
+ Hint = 'Check Paradox Tables|Check and repair Paradox tables'
+ NumGlyphs = 2
+ Spacing = 1
+ Left = 3
+ Top = 4
+ SectionName = 'Utilities'
+ end
+ object SpeedItem4: TJvSpeedItem
+ AllowAllUp = True
+ Caption = 'Sync Pages'
+ GroupIndex = 1
+ Down = True
+ Glyph.Data = {
+ 42010000424D4201000000000000760000002800000011000000110000000100
+ 040000000000CC00000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+ 3333300000000000000033333333300000000FFFFFF033333333300000000F88
+ 88F033333333300000000FFFFFF033333333300000000F8888F0333333333000
+ 00000FFFFFF044444444300000000F8888F088888884300000000FFFFFF03333
+ 3334300000000000000030030034300000003333433333333334300000003333
+ 4300300300343000000034334333333333343000000044434444444444443000
+ 000034334F44F44F44F430000000333344444444444430000000333333333333
+ 333330000000}
+ Hint = 'Sync Pages|Automatic open table on navigate'
+ Spacing = 1
+ Left = 110
+ Top = 4
+ Visible = True
+ OnClick = AutoActivateItemClick
+ SectionName = 'Tools'
+ end
+ object SpeedItem2: TJvSpeedItem
+ AllowAllUp = True
+ Caption = 'Show System Tables'
+ GroupIndex = 2
+ Glyph.Data = {
+ 66010000424D6601000000000000760000002800000014000000140000000100
+ 040000000000F000000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+ 3333333300003333333333333333333300003333330000000333333300003331
+ 11110888803333330000339999991777880333330000339F99F9177778803333
+ 0000339F9FF91777788033330000339FF9F91777788033330000339F99F91777
+ 7880333300003399999977A2788033330000333338FFFFFFF880333300003333
+ 388888888880333300003333387FFF8F78803333000033333878000878803333
+ 0000333338777777788033330000333338FFFFFFF78033330000333333877777
+ 7770333300003333333888888883333300003333333333333333333300003333
+ 33333333333333330000}
+ Hint = 'Show System Tables|Show System Tables'
+ Spacing = 1
+ Left = 134
+ Top = 4
+ Visible = True
+ OnClick = SystemTablesItemClick
+ SectionName = 'Tools'
+ end
+ object KeepConnectionsSpd: TJvSpeedItem
+ AllowAllUp = True
+ Caption = 'Keep Connections'
+ GroupIndex = 3
+ Down = True
+ Glyph.Data = {
+ 42010000424D4201000000000000760000002800000011000000110000000100
+ 040000000000CC00000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333338888888
+ 8888800000003333383333333333800000003333383333333333800000003333
+ 3838838838838000000033333833333333338000000033333838838838838000
+ 0000344448333333333380000000348888888888888880000000343338388388
+ 3883800000003430088888888888800000003433333333334333300000003430
+ 0300300343333000000034333333333343333000000034444444444443333000
+ 000034F44F44F44F433330000000344444444444433330000000333333333333
+ 333330000000}
+ Hint = 'Keep Connections|Keep database connections'
+ Spacing = 1
+ Left = 142
+ Top = 4
+ OnClick = KeepConnectionsItemClick
+ SectionName = 'Tools'
+ end
+ object OptionsBtn: TJvSpeedItem
+ Caption = 'Options'
+ Glyph.Data = {
+ F6000000424DF600000000000000760000002800000010000000100000000100
+ 0400000000008000000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+ 333300000000000033330FFFFFFFFFF033330F00F00000F033330FFFFFFFFFF0
+ 33330F00F00000F033330FFFFFFFFFF033330FFFFFFF0FF033330F00FFF070F0
+ 33340F070F07070003440FF07070707770440000070707777744333330707777
+ 7744333333077777704433333330000003443333333333333333}
+ Hint = 'Options|Set options'
+ Spacing = 1
+ Left = 166
+ Top = 4
+ Visible = True
+ OnClick = OptionsClick
+ SectionName = 'Tools'
+ end
+ object SpeedItem5: TJvSpeedItem
+ Caption = 'Customize JvSpeedbar'
+ Glyph.Data = {
+ 66010000424D6601000000000000760000002800000014000000140000000100
+ 040000000000F000000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
+ 7777777700007777777777777777777700007F88888888888888888800007F78
+ 888788887888877800007F7FAA87F9987FCC877800007F7FAA87F9987FCC8778
+ 00007F7FFF87FFF87FFF877800007F77777777777777777800007FFFFFFFFFFF
+ FFFFFFF800007777777777777777777700007777777777777777777700007777
+ 7777777777777777000077777777777778000877000077777777777780EEE077
+ 00007778000000000EE0087700007770E4EEEEEEEEE077770000777800000000
+ 0EE00877000077777777777780EEE07700007777777777777800087700007777
+ 77777777777777770000}
+ Hint = 'Customize JvSpeedbar|Customize JvSpeedbar'
+ Spacing = 1
+ Left = 190
+ Top = 4
+ Visible = True
+ OnClick = CustomizeToolbarItemClick
+ SectionName = 'Tools'
+ end
+ object SpeedItem6: TJvSpeedItem
+ Caption = 'About'
+ Glyph.Data = {
+ 66010000424D6601000000000000760000002800000014000000140000000100
+ 040000000000F000000000000000000000001000000000000000000000000000
+ 80000080000000808000800000008000800080800000C0C0C000808080000000
+ FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
+ 3333333300003333333333333333333300003333333800008333333300003333
+ 3800444400833333000033338044444444083333000033380444BBBB44408333
+ 0000333044444BB4444403330000338044444BB4444408330000330444444BB4
+ 444440330000330444444BB4444440330000330444444BB44444403300003304
+ 4444BBB4444440330000338044444444444408330000333044444BB444440333
+ 0000333804444BB4444083330000333380444444440833330000333338004444
+ 0083333300003333333800008333333300003333333333333333333300003333
+ 33333333333333330000}
+ Hint = 'About|About Database Explorer'
+ Spacing = 1
+ Left = 190
+ Top = 4
+ OnClick = HelpAboutItemClick
+ SectionName = 'Help'
+ end
+ end
+ object DBProgress: TJvDBProgress
+ WaitCursor = crSQLWait
+ MessageControl = StatusLine
+ Gauge = DBGauge
+ OnTrace = DBProgressTrace
+ Left = 32
+ Top = 36
+ end
+ object FormPlacement: TJvFormStorage
+ AppStoragePath = 'DBExplorerMainForm\'
+ OnSavePlacement = FormPlacementSavePlacement
+ OnRestorePlacement = FormPlacementRestorePlacement
+ StoredProps.Strings = (
+ 'SQLFontContainer.Font'
+ 'JvSpeedbar.Options')
+ StoredValues = <>
+ Left = 60
+ Top = 36
+ end
+ object MainMenu1: TMainMenu
+ Left = 4
+ Top = 36
+ object File1: TMenuItem
+ Caption = '&Database'
+ Hint = 'Databases related commands'
+ object FileOpenItem: TMenuItem
+ Caption = '&Open...'
+ Hint = 'Open an existing database'
+ ShortCut = 113
+ OnClick = FileOpenItemClick
+ end
+ object ReopenItem: TMenuItem
+ Caption = 'Reopen'
+ Enabled = False
+ Hint = 'Reopen the specified database'
+ end
+ object FileCloseItem: TMenuItem
+ Caption = '&Close'
+ Hint = 'Close current database'
+ OnClick = FileCloseItemClick
+ end
+ object TablesSessionMenu: TMenuItem
+ Caption = '&Tables Session'
+ Enabled = False
+ Hint = 'Tables session transaction management'
+ object TabPasswordItem: TMenuItem
+ Caption = 'Passwords...'
+ Hint = 'Add and remove main session passwords'
+ OnClick = PasswordItemClick
+ end
+ object StartTransItem: TMenuItem
+ Caption = '&Start Transaction'
+ Enabled = False
+ Hint = 'Start Transaction on current database'
+ OnClick = StartTransItemClick
+ end
+ object CommitItem: TMenuItem
+ Caption = '&Commit'
+ Enabled = False
+ Hint = 'Commit changes to database'
+ OnClick = CommitItemClick
+ end
+ object RollbackItem: TMenuItem
+ Caption = '&Rollback'
+ Enabled = False
+ Hint = 'Rolback changes'
+ OnClick = RollbackItemClick
+ end
+ end
+ object QuerySessionMenu: TMenuItem
+ Caption = '&Query Session'
+ Enabled = False
+ Hint = 'Query session transaction management'
+ object QryPasswordItem: TMenuItem
+ Caption = 'Passwords...'
+ Enabled = False
+ Hint = 'Add and remove query session passwords'
+ OnClick = PasswordItemClick
+ end
+ object StartTransQueryItem: TMenuItem
+ Caption = '&Start Transaction'
+ Enabled = False
+ Hint = 'Start Transaction on current database'
+ OnClick = StartTransItemClick
+ end
+ object CommitQueryItem: TMenuItem
+ Caption = '&Commit'
+ Enabled = False
+ Hint = 'Commit changes to database'
+ OnClick = CommitItemClick
+ end
+ object RollbackQueryItem: TMenuItem
+ Caption = '&Rollback'
+ Enabled = False
+ Hint = 'Rolback changes'
+ OnClick = RollbackItemClick
+ end
+ end
+ object N1: TMenuItem
+ Caption = '-'
+ end
+ object BdePropsItem: TMenuItem
+ Caption = 'P&roperties'
+ Hint = 'Database Engine Properties'
+ OnClick = BdePropsItemClick
+ end
+ object N5: TMenuItem
+ Caption = '-'
+ end
+ object FileExitItem: TMenuItem
+ Caption = 'E&xit'
+ Hint = 'Exit the application'
+ ShortCut = 32856
+ OnClick = FileExitItemClick
+ end
+ end
+ object UtilitiesMenu: TMenuItem
+ Caption = '&Utilities'
+ object TraceSQLItem: TMenuItem
+ Caption = 'Trace SQL'
+ Hint = 'Trace BDE callings to SQL server'
+ OnClick = TraceSQLItemClick
+ end
+ object SQLMonitorItem: TMenuItem
+ Caption = 'SQL Monitor'
+ Hint = 'Show SQL monitor'
+ OnClick = SQLMonitorItemClick
+ end
+ object ClearTraceItem: TMenuItem
+ Caption = 'Clear trace buffer'
+ Hint = 'Clear SQL trace buffer'
+ OnClick = ClearTraceItemClick
+ end
+ object N4: TMenuItem
+ Caption = '-'
+ end
+ object PackTableItem: TMenuItem
+ Caption = '&Pack Table'
+ Enabled = False
+ Hint = 'Pack Paradox or DBase table'
+ OnClick = PackTableClick
+ end
+ object DeleteTableItem: TMenuItem
+ Caption = '&Delete Table'
+ Enabled = False
+ Hint = 'Delete selected table'
+ OnClick = DeleteTableClick
+ end
+ object EmptyTableItem: TMenuItem
+ Caption = '&Empty Table'
+ Enabled = False
+ Hint = 'Empty selected table'
+ OnClick = EmptyTableClick
+ end
+ object ReindexItem: TMenuItem
+ Caption = 'Re&index Table'
+ Enabled = False
+ Hint = 'Reindex Paradox or DBase table'
+ OnClick = ReindexItemClick
+ end
+ object RenameTableItem: TMenuItem
+ Caption = '&Rename Table'
+ Enabled = False
+ Hint = 'Rename selected table'
+ OnClick = RenameTableClick
+ end
+ object ExportTableItem: TMenuItem
+ Caption = 'E&xport Data'
+ Enabled = False
+ Hint = 'Export data to dBase, ASCII or Paradox format'
+ OnClick = ExportClick
+ end
+ object ImportDataItem: TMenuItem
+ Caption = 'I&mport Data'
+ Enabled = False
+ Hint = 'Import data from dBase or Paradox format'
+ OnClick = ImportClick
+ end
+ object PrintDataItem: TMenuItem
+ Caption = 'Pri&nt Data'
+ Enabled = False
+ Hint = 'Print data'
+ OnClick = PrintDataClick
+ end
+ object CheckPXSubMenu: TMenuItem
+ Caption = '&Check Paradox Tables'
+ Enabled = False
+ Hint = 'Check and repair Paradox tables'
+ object CheckPXItem: TMenuItem
+ Caption = '&Single Table'
+ Enabled = False
+ Hint = 'Check and repair single Paradox table'
+ OnClick = CheckPXItemClick
+ end
+ object CheckPXAllItem: TMenuItem
+ Caption = '&All Tables'
+ Enabled = False
+ Hint = 'Check all Paradox Tables in database'
+ OnClick = CheckPXItemClick
+ end
+ end
+ end
+ object Options1: TMenuItem
+ Caption = 'T&ools'
+ Hint = 'Configuration settings'
+ object AutoActivateItem: TMenuItem
+ Caption = '&Sync Pages'
+ Checked = True
+ Hint = 'Automatic open table on navigate'
+ OnClick = AutoActivateItemClick
+ end
+ object SystemTablesItem: TMenuItem
+ Caption = 'System &Tables'
+ Hint = 'Show system tables'
+ OnClick = SystemTablesItemClick
+ end
+ object KeepConnectionsItem: TMenuItem
+ Caption = '&Keep Connections'
+ Checked = True
+ Hint = 'Keep database connections'
+ OnClick = KeepConnectionsItemClick
+ end
+ object N3: ...
[truncated message content] |