jvcllaz: Check packages and demos for Laz 1.8.4 / 2.0.0 / 2.0.2 / trunk and FPC 3.0.4 / FPC 3.2 / trunk. 32-bit, Laz 2.0.2/FPC 3.2 64 bit. Make fixes needed.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6971 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-29 23:35:34 +00:00
parent 35b4753bbc
commit a67a3f9d55
89 changed files with 441 additions and 327 deletions

View File

@ -62,7 +62,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\TimeLineDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/TimeLineDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -1,14 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<UseDefaultCompilerOptions Value="True"/>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="BmpAnimDemo"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
@ -45,7 +44,9 @@
<Unit1>
<Filename Value="BmpAnimMainFormU.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="BmpAnimMainForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit1>
</Units>
</ProjectOptions>
@ -53,9 +54,10 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="BmpAnimDemo"/>
<Filename Value="..\..\bin\$(TargetCPU)-$(TargetOS)\BmpAnimDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>

View File

@ -8,6 +8,7 @@ uses
{$R *.res}
begin
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TBmpAnimMainForm, BmpAnimMainForm);
Application.Run;

View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="JvCheckBoxDemo"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
@ -43,6 +45,7 @@
<Filename Value="jvcheckboxdemounit.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="JvCheckBoxDemoUnit"/>
</Unit1>
@ -52,7 +55,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvCheckBoxDemo"/>
<Filename Value="..\..\bin\$(TargetCPU)-$(TargetOS)\JvCheckBoxDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -63,12 +63,26 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvComboListBoxDemo"/>
<Filename Value="..\..\bin\$(TargetCPU)-$(TargetOS)\JvComboListBoxDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks>
<VerifyObjMethodCallValidity Value="True"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>

View File

@ -56,7 +56,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvDBLookupDemo"/>
<Filename Value="..\..\bin\$(TargetCPU)-$(TargetOS)\JvDBLookupDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -56,7 +56,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvDBLookupTreeViewDemo"/>
<Filename Value="..\..\bin\$(TargetCPU)-$(TargetOS)\JvDBLookupTreeViewDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="JvSearchEditDemo"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
@ -52,7 +54,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvSearchEditDemo"/>
<Filename Value="..\..\bin\$(TargetCPU)-$(TargetOS)\JvSearchEditDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="JVDBTreeViewDemo"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
@ -13,7 +15,6 @@
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
@ -58,7 +59,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvDBTreeViewDemo"/>
<Filename Value="..\..\bin\$(TargetCPU)-$(TargetOS)\JvDBTreeViewDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -17,6 +17,7 @@ begin
{$IFDEF LCLVersion >= 1080000}
Application.Scaled := True;
{$ENDIF}
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;

View File

@ -231,7 +231,7 @@
<Loaded Value="True"/>
</Unit25>
<Unit26>
<Filename Value="C:\lazarus-trunk_fpc304\lcl\forms.pp"/>
<Filename Value="c:\lazarus-trunk_fpc304\lcl\forms.pp"/>
<UnitName Value="Forms"/>
<EditorIndex Value="8"/>
<TopLine Value="1737"/>
@ -247,7 +247,7 @@
<UsageCount Value="12"/>
</Unit27>
<Unit28>
<Filename Value="C:\lazarus-trunk_fpc304\lcl\include\control.inc"/>
<Filename Value="c:\lazarus-trunk_fpc304\lcl\include\control.inc"/>
<EditorIndex Value="3"/>
<TopLine Value="3305"/>
<CursorPos Y="3324"/>
@ -255,7 +255,7 @@
<Loaded Value="True"/>
</Unit28>
<Unit29>
<Filename Value="C:\lazarus-trunk_fpc304\lcl\include\wincontrol.inc"/>
<Filename Value="c:\lazarus-trunk_fpc304\lcl\include\wincontrol.inc"/>
<EditorIndex Value="4"/>
<TopLine Value="8121"/>
<CursorPos Y="8145"/>
@ -263,7 +263,7 @@
<Loaded Value="True"/>
</Unit29>
<Unit30>
<Filename Value="C:\lazarus-trunk_fpc304\lcl\lclmessageglue.pas"/>
<Filename Value="c:\lazarus-trunk_fpc304\lcl\lclmessageglue.pas"/>
<UnitName Value="LCLMessageGlue"/>
<EditorIndex Value="2"/>
<TopLine Value="102"/>
@ -399,7 +399,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\jvDesignerDemo"/>
<Filename Value="..\..\bin\$(TargetCPU)-$(TargetOS)\JvDesignerDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -55,7 +55,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvDialButtonDemo"/>
<Filename Value="..\..\bin\$(TargetCPU)-$(TargetOS)\JvDialButtonDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -53,7 +53,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="../../bin/JvFormAnimations_Demo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvFormAnimations_Demo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -54,7 +54,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="../../bin/JvFormWallpaper_Demo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvFormWallpaper_Demo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -101,7 +101,7 @@ object JvFullColorCircleDlgMainFrm: TJvFullColorCircleDlgMainFrm
object JvFullColorCircleDialog: TJvFullColorCircleDialog
HelpContext = 0
OnApply = JvFullColorCircleDialogApply
left = 184
top = 80
Left = 184
Top = 80
end
end

View File

@ -92,7 +92,7 @@ procedure TJvFullColorCircleDlgMainFrm.FormCreate(Sender: TObject);
var
LSearchRec: TSearchRec;
begin
ImgDir := IncludeTrailingPathDelimiter(GetCurrentDir) + '../design/JvCtrls/images/';
ImgDir := IncludeTrailingPathDelimiter(GetCurrentDir) + '../../design/JvCtrls/images/';
if FindFirst(ImgDir + '*.png', faAnyFile, LSearchRec) = 0 then
repeat
ComboBoxFileName.Items.Add(LSearchRec.Name);

View File

@ -54,13 +54,16 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="../../bin/JvFullColorCircleDialogPrj"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvFullColorCircleDialogPrj"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

View File

@ -11,7 +11,7 @@ object JvFullColorDialogMainFrm: TJvFullColorDialogMainFrm
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.1.0.0'
LCLVersion = '2.0.2.0'
Visible = True
object JvFullColorLabel: TJvFullColorLabel
Left = 16

View File

@ -165,7 +165,7 @@ begin
with TJvFullColorLabel(Sender) do
begin
JvFullColorDialog.FullColor := LabelColor;
JvFullColorDialog.Tag := Integer(Sender);
JvFullColorDialog.Tag := PtrInt(Sender);
if JvFullColorDialog.Execute then
begin
LabelColor := JvFullColorDialog.FullColor;

View File

@ -53,7 +53,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="../../bin/JvFullColorDialogPrj"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvFullColorDialogPrj"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -60,7 +60,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvHTCtrlsDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvHTCtrlsDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -66,7 +66,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvHTMLTest"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvHTMLTest"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -7,7 +7,7 @@ object MainForm: TMainForm
ClientHeight = 384
ClientWidth = 858
OnShow = FormShow
LCLVersion = '2.1.0.0'
LCLVersion = '2.0.2.0'
object PageControl: TPageControl
Left = 0
Height = 384
@ -136,7 +136,7 @@ object MainForm: TMainForm
Font.Height = -13
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqAntialiased
Font.Quality = fqCleartype
ParentColor = False
ParentFont = False
TabOrder = 1

View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="JvHtmlParserProj"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
@ -52,7 +54,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvHtmlParserProj"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvHtmlParserProj"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -53,7 +53,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvID3v1Demo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvID3v1Demo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -18,7 +18,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
OnDropFiles = FormDropFiles
Position = poScreenCenter
ShowHint = True
LCLVersion = '2.1.0.0'
LCLVersion = '1.8.4.0'
object lblArtist: TLabel
AnchorSideTop.Control = edtArtist
AnchorSideTop.Side = asrCenter

View File

@ -224,7 +224,7 @@ var
begin
if JvId3v11.FileName > '' then
begin
{ Store TagPresent in variabele to prevent double checks whether the file
{ Store TagPresent in variable to prevent double checks whether the file
has a tag }
HasTag := JvId3v11.HasTag;
lblHasTag.Font.Color := CHasTagColor[HasTag];

View File

@ -60,7 +60,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvId3v2Demo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvId3v2Demo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -12,7 +12,7 @@ object JvID3v2EditForm: TJvID3v2EditForm
OnCreate = FormCreate
OnShow = FormShow
Position = poMainFormCenter
LCLVersion = '2.1.0.0'
LCLVersion = '2.0.2.0'
object lsbNavigator: TListBox
Left = 4
Height = 479

View File

@ -502,7 +502,7 @@ begin
with Frame do
begin
with cmbPictureType do
PictureType := TJvID3PictureType(Items.Objects[ItemIndex]);
PictureType := TJvID3PictureType(PtrInt(Items.Objects[ItemIndex]));
Description := edtPictureName.Text;
MIMEType := AnsiString(ExtToMIMEType(ExtractFileExt(FileName)));
LoadFromFile(FileName);
@ -571,7 +571,7 @@ begin
begin
edtPictureName.Text := Frame.Description;
with cmbPictureType do
ItemIndex := Items.IndexOfObject(TObject(Frame.PictureType));
ItemIndex := Items.IndexOfObject(TObject(PtrInt(Frame.PictureType)));
end;
imgPicture.Picture.Assign(Frame);
@ -590,7 +590,7 @@ begin
try
Strings.Clear;
for PictureType := Low(TJvID3PictureType) to High(TJvID3PictureType) do
Strings.AddObject(CPictureTypeStr[PictureType], TObject(PictureType));
Strings.AddObject(CPictureTypeStr[PictureType], TObject(PtrInt(PictureType)));
finally
Strings.EndUpdate;
end;
@ -640,7 +640,7 @@ begin
with Frame do
begin
with cmbPictureType do
PictureType := TJvID3PictureType(Items.Objects[ItemIndex]);
PictureType := TJvID3PictureType(PtrInt(Items.Objects[ItemIndex]));
Description := edtPictureName.Text;
lsvPictures.Items.BeginUpdate;

View File

@ -57,7 +57,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\Install2LabelDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/Install2LabelDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -1,59 +1,24 @@
object InstallLabelMainForm: TInstallLabelMainForm
Left = 339
Height = 237
Height = 226
Top = 142
Width = 293
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Installation in progress'
ClientHeight = 237
ClientHeight = 226
ClientWidth = 293
Color = clBtnFace
Color = clForm
DefaultMonitor = dmDesktop
KeyPreview = True
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.1.0.0'
LCLVersion = '1.8.4.0'
Scaled = False
object Image1: TImage
Left = 8
Height = 32
Top = 8
Width = 32
AutoSize = True
Picture.Data = {
055449636F6EFE0200000000010001002020100001001000E802000016000000
2800000020000000400000000100040000000000800200000000000000000000
0000000000000000000000000000800000800000008080008000000080008000
80800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00
FFFF0000FFFFFF00000000000000000000000000000000000000000000000000
00000000000000000000000000BBBBBB000000000000000000000000BBB0000B
BB000000000000000000000BB00000000BBB0000000000000000000BB0000000
0BBB000000000000000000BBBB0000000BBBB00000000000000000BBBB000000
00BBBB0000000000000000BBBBB0000000BBBB0000000000000000BBBBB00000
00BBBB0000000000000000BBBBB0000000BBBB00000000000000000BBB000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB00000000000000000000000000BBBBBBB00000000000000000000000BB
BBBBBBBBBB000000000000000000000000000000000000000000000000000000
0000000000000000FFFFFFFFFFFFFFFFFFC0FFFFFF1E3FFFFE7F8FFFFE7F8FFF
FC3F87FFFC3FC3FFFC1FC3FFFC1FC3FFFC1FC3FFFE3FC3FFFFFFC3FFFFFFC3FF
FFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FF
FFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFF01FFFFFC003F
FFFFFFFFFFFFFFFF
}
Transparent = True
end
object Next: TButton
Left = 121
Left = 128
Height = 25
Top = 204
Top = 192
Width = 75
Caption = '&Next >>'
Default = True
@ -61,9 +26,9 @@ object InstallLabelMainForm: TInstallLabelMainForm
TabOrder = 0
end
object Button1: TButton
Left = 201
Left = 208
Height = 25
Top = 204
Top = 192
Width = 75
Caption = 'Close'
OnClick = Button1Click
@ -71,22 +36,19 @@ object InstallLabelMainForm: TInstallLabelMainForm
end
object Panel1: TPanel
Left = 8
Height = 146
Top = 48
Height = 144
Top = 40
Width = 276
BevelOuter = bvLowered
ClientHeight = 146
ClientHeight = 144
ClientWidth = 276
TabOrder = 2
object InstallLabel1: TJvInstallLabel
Left = 1
Height = 144
Height = 142
Top = 1
Width = 274
Align = alClient
Font.CharSet = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -13
Images = ImageList1
Lines.Strings = (
'Install JCL'
@ -95,11 +57,58 @@ object InstallLabelMainForm: TInstallLabelMainForm
'Compile JVCL packages'
'Install JVCL into Delphi IDE'
)
ParentFont = False
TextOffset = 40
ImageOffset = 8
end
end
object Panel2: TPanel
Left = 0
Height = 34
Top = 0
Width = 293
Align = alTop
BevelOuter = bvNone
ClientHeight = 34
ClientWidth = 293
Color = clGray
ParentColor = False
TabOrder = 3
object Image1: TImage
Left = 0
Height = 32
Top = 0
Width = 32
AutoSize = True
Picture.Data = {
055449636F6EFE0200000000010001002020100001001000E802000016000000
2800000020000000400000000100040000000000800200000000000000000000
0000000000000000000000000000800000800000008080008000000080008000
80800000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00
FFFF0000FFFFFF00000000000000000000000000000000000000000000000000
00000000000000000000000000BBBBBB000000000000000000000000BBB0000B
BB000000000000000000000BB00000000BBB0000000000000000000BB0000000
0BBB000000000000000000BBBB0000000BBBB00000000000000000BBBB000000
00BBBB0000000000000000BBBBB0000000BBBB0000000000000000BBBBB00000
00BBBB0000000000000000BBBBB0000000BBBB00000000000000000BBB000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB0000000000000000000000000000BBBB00000000000000000000000000
00BBBB00000000000000000000000000BBBBBBB00000000000000000000000BB
BBBBBBBBBB000000000000000000000000000000000000000000000000000000
0000000000000000FFFFFFFFFFFFFFFFFFC0FFFFFF1E3FFFFE7F8FFFFE7F8FFF
FC3F87FFFC3FC3FFFC1FC3FFFC1FC3FFFC1FC3FFFE3FC3FFFFFFC3FFFFFFC3FF
FFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FF
FFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFFC3FFFFFF01FFFFFC003F
FFFFFFFFFFFFFFFF
}
Transparent = True
end
end
object ImageList1: TImageList
left = 48
top = 8

View File

@ -32,9 +32,12 @@ interface
uses
LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ImgList, JvInstallLabel;
StdCtrls, ExtCtrls, JvInstallLabel;
type
{ TInstallLabelMainForm }
TInstallLabelMainForm = class(TForm)
ImageList1: TImageList;
Next: TButton;
@ -42,6 +45,7 @@ type
Image1: TImage;
Panel1: TPanel;
InstallLabel1: TJvInstallLabel;
Panel2: TPanel;
procedure NextClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);

View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
@ -9,9 +9,9 @@
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="JvItemViewerDemo"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
@ -65,6 +65,9 @@
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvItemViewerDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
@ -76,6 +79,9 @@
</SyntaxOptions>
</Parsing>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

View File

@ -53,7 +53,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvLEDDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvLEDDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -54,7 +54,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvLookupAutoCompleteDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvLookupAutoCompleteDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -55,7 +55,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\MarkupDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/MarkupDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -1,13 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
<CompatibilityMode Value="True"/>
</Flags>
<MainUnit Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
@ -16,14 +16,9 @@
<Version Value="2"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</Mode0>
</Modes>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
@ -33,10 +28,11 @@
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="12">
<Units Count="14">
<Unit0>
<Filename Value="JvNavPaneDemo.lpr"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<CursorPos X="36" Y="11"/>
<UsageCount Value="23"/>
<Loaded Value="True"/>
@ -48,10 +44,9 @@
<ComponentName Value="JvNavPaneDemoMainFrm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="258"/>
<CursorPos X="22" Y="280"/>
<TopLine Value="310"/>
<CursorPos X="40" Y="423"/>
<UsageCount Value="23"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -85,15 +80,14 @@
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<UnitName Value="JvNavigationPane"/>
<EditorIndex Value="2"/>
<TopLine Value="199"/>
<CursorPos X="56" Y="216"/>
<TopLine Value="25"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="..\..\run\JvCore\jvjclutils.pas"/>
<UnitName Value="JvJCLUtils"/>
<EditorIndex Value="7"/>
<EditorIndex Value="9"/>
<TopLine Value="1062"/>
<CursorPos X="23" Y="1080"/>
<UsageCount Value="10"/>
@ -102,7 +96,7 @@
<Unit8>
<Filename Value="C:\lazarus-trunk_fpc304\lcl\lcltype.pp"/>
<UnitName Value="LCLType"/>
<EditorIndex Value="6"/>
<EditorIndex Value="8"/>
<TopLine Value="230"/>
<CursorPos X="3" Y="248"/>
<UsageCount Value="10"/>
@ -111,7 +105,7 @@
<Unit9>
<Filename Value="C:\lazarus-trunk_fpc304\lcl\graphics.pp"/>
<UnitName Value="Graphics"/>
<EditorIndex Value="5"/>
<EditorIndex Value="7"/>
<TopLine Value="1125"/>
<CursorPos X="14" Y="1141"/>
<UsageCount Value="10"/>
@ -120,7 +114,7 @@
<Unit10>
<Filename Value="..\..\run\JvCore\jvexcontrols.pas"/>
<UnitName Value="JvExControls"/>
<EditorIndex Value="3"/>
<EditorIndex Value="5"/>
<TopLine Value="237"/>
<CursorPos X="14" Y="254"/>
<UsageCount Value="10"/>
@ -129,131 +123,154 @@
<Unit11>
<Filename Value="C:\lazarus-trunk_fpc304\lcl\controls.pp"/>
<UnitName Value="Controls"/>
<EditorIndex Value="4"/>
<EditorIndex Value="6"/>
<TopLine Value="162"/>
<CursorPos X="3" Y="180"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit11>
<Unit12>
<Filename Value="D:\lazarus202_fpc304_win64\fpc\3.0.4\source\rtl\inc\objpas.inc"/>
<EditorIndex Value="4"/>
<TopLine Value="537"/>
<CursorPos X="38" Y="550"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit12>
<Unit13>
<Filename Value="..\..\run\JvPageComps\jvpagelist.pas"/>
<UnitName Value="JvPageList"/>
<EditorIndex Value="3"/>
<TopLine Value="447"/>
<CursorPos X="37" Y="461"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit13>
</Units>
<JumpHistory Count="28" HistoryIndex="27">
<JumpHistory Count="29" HistoryIndex="28">
<Position1>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="2415" Column="83" TopLine="2397"/>
<Caret Line="3787" Column="24" TopLine="3769"/>
</Position1>
<Position2>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="2420" Column="31" TopLine="2391"/>
<Filename Value="JvNavPaneDemoMainForm.pas"/>
<Caret Line="286" Column="29" TopLine="264"/>
</Position2>
<Position3>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="2374" TopLine="2374"/>
<Caret Line="645" Column="28" TopLine="618"/>
</Position3>
<Position4>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Filename Value="JvNavPaneDemoMainForm.pas"/>
<Caret Line="280" Column="22" TopLine="258"/>
</Position4>
<Position5>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="2415" Column="80" TopLine="2386"/>
<Caret Line="3434" Column="40" TopLine="3425"/>
</Position5>
<Position6>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="3539" Column="26" TopLine="3509"/>
<Caret Line="3443" Column="23" TopLine="3424"/>
</Position6>
<Position7>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="3548" Column="3" TopLine="3515"/>
<Filename Value="JvNavPaneDemoMainForm.pas"/>
<Caret Line="274" Column="34" TopLine="258"/>
</Position7>
<Position8>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="3540" Column="83" TopLine="3523"/>
<Filename Value="JvNavPaneDemoMainForm.pas"/>
<Caret Line="57" Column="54" TopLine="39"/>
</Position8>
<Position9>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="3539" Column="60" TopLine="3522"/>
<Filename Value="JvNavPaneDemoMainForm.pas"/>
<Caret Line="438" Column="3" TopLine="435"/>
</Position9>
<Position10>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="3541" Column="13" TopLine="3522"/>
<Filename Value="JvNavPaneDemoMainForm.pas"/>
<Caret Line="57" Column="15" TopLine="39"/>
</Position10>
<Position11>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="3546" Column="13" TopLine="3522"/>
<Filename Value="JvNavPaneDemoMainForm.pas"/>
<Caret Line="423" Column="40" TopLine="415"/>
</Position11>
<Position12>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="3788" Column="51" TopLine="3757"/>
<Caret Line="2190" Column="37" TopLine="2182"/>
</Position12>
<Position13>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="4414" Column="17" TopLine="4385"/>
<Caret Line="2197" Column="65" TopLine="2182"/>
</Position13>
<Position14>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="4901" Column="80" TopLine="4901"/>
<Caret Line="2201" TopLine="2181"/>
</Position14>
<Position15>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="2250" TopLine="2229"/>
</Position15>
<Position16>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="2415" Column="79" TopLine="2386"/>
<Caret Line="2265" TopLine="2233"/>
</Position16>
<Position17>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="3541" Column="13" TopLine="3511"/>
<Filename Value="D:\lazarus202_fpc304_win64\fpc\3.0.4\source\rtl\inc\objpas.inc"/>
<Caret Line="550" Column="38" TopLine="537"/>
</Position17>
<Position18>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="3546" Column="13" TopLine="3516"/>
<Caret Line="2262" Column="35" TopLine="2233"/>
</Position18>
<Position19>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="3787" Column="13" TopLine="3757"/>
<Caret Line="2265" TopLine="2233"/>
</Position19>
<Position20>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="4414" Column="17" TopLine="4385"/>
<Caret Line="2250" TopLine="2233"/>
</Position20>
<Position21>
<Filename Value="JvNavPaneDemoMainForm.pas"/>
<Caret Line="252" Column="29" TopLine="252"/>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="2265" TopLine="2233"/>
</Position21>
<Position22>
<Filename Value="JvNavPaneDemoMainForm.pas"/>
<Caret Line="264" Column="15" TopLine="252"/>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="2238" Column="31" TopLine="2233"/>
</Position22>
<Position23>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="3787" Column="24" TopLine="3769"/>
<Filename Value="JvNavPaneDemoMainForm.pas"/>
<Caret Line="423" Column="40" TopLine="310"/>
</Position23>
<Position24>
<Filename Value="JvNavPaneDemoMainForm.pas"/>
<Caret Line="286" Column="29" TopLine="264"/>
<Filename Value="..\..\run\JvPageComps\jvpagelist.pas"/>
<Caret Line="94" Column="14" TopLine="76"/>
</Position24>
<Position25>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="645" Column="28" TopLine="618"/>
<Filename Value="..\..\run\JvPageComps\jvpagelist.pas"/>
<Caret Line="81" Column="15" TopLine="76"/>
</Position25>
<Position26>
<Filename Value="JvNavPaneDemoMainForm.pas"/>
<Caret Line="280" Column="22" TopLine="258"/>
<Filename Value="..\..\run\JvPageComps\jvpagelist.pas"/>
<Caret Line="437" Column="3" TopLine="434"/>
</Position26>
<Position27>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="3434" Column="40" TopLine="3425"/>
<Filename Value="..\..\run\JvPageComps\jvpagelist.pas"/>
<Caret Line="93" Column="17" TopLine="62"/>
</Position27>
<Position28>
<Filename Value="..\..\run\JvPageComps\jvnavigationpane.pas"/>
<Caret Line="3443" Column="23" TopLine="3424"/>
<Filename Value="..\..\run\JvPageComps\jvpagelist.pas"/>
<Caret Line="322" Column="3" TopLine="320"/>
</Position28>
<Position29>
<Filename Value="..\..\run\JvPageComps\jvpagelist.pas"/>
<Caret Line="79" Column="16" TopLine="75"/>
</Position29>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvNavPaneDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvNavPaneDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="..\..\resources"/>

View File

@ -8,7 +8,7 @@ object JvNavPaneDemoMainFrm: TJvNavPaneDemoMainFrm
Caption = 'JvNavigationPane Demo'
DockSite = True
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
LCLVersion = '2.0.2.0'
object PopupMenu1: TPopupMenu
OnPopup = PopupMenu1Popup
left = 92

View File

@ -430,9 +430,6 @@ begin
NT.CloseButton := ShowCloseButton1.Checked;
end;
type
THackForm = class(TCustomForm);
procedure TJvNavPaneDemoMainFrm.DoToolEndDock(Sender, Target: TObject; X, Y: Integer);
begin
if (Target is TCustomForm) and (Target <> Self) then

View File

@ -53,7 +53,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="../../bin/OLBarDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/OLBarDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -55,7 +55,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="../../bin/JvOutlookBarCustomDrawDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvOutlookBarCustomDrawDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -54,12 +54,26 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvPicClipDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvPicClipDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<IncludeAssertionCode Value="True"/>
</SyntaxOptions>
</Parsing>
<CodeGeneration>
<Checks>
<IOChecks Value="True"/>
<RangeChecks Value="True"/>
<OverflowChecks Value="True"/>
<StackChecks Value="True"/>
</Checks>
<VerifyObjMethodCallValidity Value="True"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>

View File

@ -64,7 +64,7 @@ object Form1: TForm1
ParentColor = False
end
object JvPicClip1: TJvPicClip
left = 96
top = 32
Left = 96
Top = 32
end
end

View File

@ -87,6 +87,8 @@ end;
procedure TForm1.CreateCombinedImage(ABitmap: TBitmap;
out ANumCols, ANumRows: Integer);
const
FOLDER = '../../design/';
var
pic: TPicture;
c, r, i: Integer;
@ -95,39 +97,39 @@ var
begin
L := TStringList.Create;
try
L.Add('../design/JvMM/images/tjvbmpanimator.bmp'); //0
L.Add('../design/JvMM/images/tjvfullcoloraxiscombo.bmp');
L.Add('../design/JvMM/images/tjvfullcolorcircle.bmp');
L.Add('../design/JvMM/images/tjvfullcolorcircledialog.bmp');
L.Add('../design/JvMM/images/tjvfullcolorgroup.bmp');
L.Add('../design/JvMM/images/tjvfullcolorlabel.bmp');
L.Add('../design/JvMM/images/tjvfullcolorpanel.bmp');
L.Add('../design/JvMM/images/tjvfullcolorspacecombo.bmp');
L.Add('../design/JvMM/images/tjvfullcolortrackbar.bmp');
L.Add('../design/JvMM/images/tjvgradient.bmp');
L.Add('../design/JvMM/images/tjvgradientheaderpanel.bmp'); // 10
L.Add('../design/JvMM/images/tjvid3v2.bmp');
L.Add('../design/JvMM/images/tjvpicclip.bmp');
L.Add('../design/JvMM/images/tjvspecialprogress.bmp');
L.Add('../design/JvHMI/images/tjvdialbutton.bmp');
L.Add('../design/JvHMI/images/tjvled.bmp');
L.Add('../design/JvDB/images/tjvdbcalcedit.bmp');
L.Add('../design/JvDB/images/tjvdbhtlabel.bmp');
L.Add('../design/JvDB/images/tjvdbsearchcombobox.bmp');
L.Add('../design/JvDB/images/tjvdbsearchedit.bmp');
L.Add('../design/JvDB/images/tjvdbtreeview.bmp'); // 20
L.Add('../design/JvCustomControls/images/tjvimagelistviewer.png');
L.Add('../design/JvCustomControls/images/tjvimagesviewer.png');
L.Add('../design/JvCustomControls/images/tjvmoderntabbarpainter.bmp');
L.Add('../design/JvCustomControls/images/tjvoutlookbar.png');
L.Add('../design/JvCustomControls/images/tjvownerdrawviewer.png');
L.Add('../design/JvCustomControls/images/tjvtabbar.bmp');
L.Add('../design/JvCustomControls/images/tjvthumbimage.png');
L.Add('../design/JvCustomControls/images/tjvthumbnail.png');
L.Add('../design/JvCustomControls/images/tjvthumbview.png');
L.Add('../design/JvCustomControls/images/tjvtimeline.png'); // 30
L.Add('../design/JvCustomControls/images/tjvtmtimeline.png');
L.Add('../design/JvCustomControls/images/tjvvalidateedit.png'); // 32
L.Add(FOLDER + 'JvMM/images/tjvbmpanimator.bmp'); //0
L.Add(FOLDER + 'JvMM/images/tjvfullcoloraxiscombo.bmp');
L.Add(FOLDER + 'JvMM/images/tjvfullcolorcircle.bmp');
L.Add(FOLDER + 'JvMM/images/tjvfullcolorcircledialog.bmp');
L.Add(FOLDER + 'JvMM/images/tjvfullcolorgroup.bmp');
L.Add(FOLDER + 'JvMM/images/tjvfullcolorlabel.bmp');
L.Add(FOLDER + 'JvMM/images/tjvfullcolorpanel.bmp');
L.Add(FOLDER + 'JvMM/images/tjvfullcolorspacecombo.bmp');
L.Add(FOLDER + 'JvMM/images/tjvfullcolortrackbar.bmp');
L.Add(FOLDER + 'JvMM/images/tjvgradient.bmp');
L.Add(FOLDER + 'JvMM/images/tjvgradientheaderpanel.bmp'); // 10
L.Add(FOLDER + 'JvMM/images/tjvid3v2.bmp');
L.Add(FOLDER + 'JvMM/images/tjvpicclip.bmp');
L.Add(FOLDER + 'JvMM/images/tjvspecialprogress.bmp');
L.Add(FOLDER + 'JvHMI/images/tjvdialbutton.bmp');
L.Add(FOLDER + 'JvHMI/images/tjvled.bmp');
L.Add(FOLDER + 'JvDB/images/tjvdbcalcedit.bmp');
L.Add(FOLDER + 'JvDB/images/tjvdbhtlabel.bmp');
L.Add(FOLDER + 'JvDB/images/tjvdbsearchcombobox.bmp');
L.Add(FOLDER + 'JvDB/images/tjvdbsearchedit.bmp');
L.Add(FOLDER + 'JvDB/images/tjvdbtreeview.bmp'); // 20
L.Add(FOLDER + 'JvCustomControls/images/tjvimagelistviewer.png');
L.Add(FOLDER + 'JvCustomControls/images/tjvimagesviewer.png');
L.Add(FOLDER + 'JvCustomControls/images/tjvmoderntabbarpainter.bmp');
L.Add(FOLDER + 'JvCustomControls/images/tjvoutlookbar.png');
L.Add(FOLDER + 'JvCustomControls/images/tjvownerdrawviewer.png');
L.Add(FOLDER + 'JvCustomControls/images/tjvtabbar.bmp');
L.Add(FOLDER + 'JvCustomControls/images/tjvthumbimage.png');
L.Add(FOLDER + 'JvCustomControls/images/tjvthumbnail.png');
L.Add(FOLDER + 'JvCustomControls/images/tjvthumbview.png');
L.Add(FOLDER + 'JvCustomControls/images/tjvtimeline.png'); // 30
L.Add(FOLDER + 'JvCustomControls/images/tjvtmtimeline.png');
L.Add(FOLDER + 'JvCustomControls/images/tjvvalidateedit.png'); // 32
ANumCols := 8;
ANumRows := 4;

View File

@ -54,7 +54,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="../../bin/ProfilerDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/ProfilerDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -13,18 +13,17 @@
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
@ -49,7 +48,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvRollOutDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvRollOutDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -14,7 +14,7 @@ object Form1: TForm1
Menu = MainMenu1
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '2.1.0.0'
LCLVersion = '1.8.4.0'
Scaled = False
object Splitter1: TSplitter
Cursor = crSizeWE

View File

@ -6,8 +6,8 @@ interface
uses
SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, JvRollOut, ImgList,
StdCtrls, ActnList, Menus; //, JvExtComponent;
Dialogs, ExtCtrls, StdCtrls, ActnList, Menus,
JvRollOut;
type
TForm1 = class(TForm)

View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="JvSimScopeDemo"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
@ -13,7 +15,6 @@
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
@ -51,7 +52,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvSimScopeDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvSimScopeDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -52,7 +52,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="../../bin/specialprogress_demo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/specialprogress_demo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="JvSpellCheckerDemo"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
@ -13,7 +15,6 @@
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
@ -41,7 +42,10 @@
<Unit1>
<Filename Value="jvspellcheckerform.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmSpellChecker"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="JvSpellCheckerForm"/>
</Unit1>
<Unit2>
<Filename Value="mainfrm.pas"/>
@ -56,7 +60,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvSpellCheckerDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvSpellCheckerDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -11,6 +11,7 @@ begin
{$IF LCL_FullVersion >= 1080000}
Application.Scaled := True;
{$ENDIF}
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
Application.CreateForm(TfrmSpellChecker, frmSpellChecker);

View File

@ -15,7 +15,7 @@ object frmSpellChecker: TfrmSpellChecker
OnCreate = FormCreate
OnShow = FormShow
Position = poMainFormCenter
LCLVersion = '1.9.0.0'
LCLVersion = '2.1.0.0'
Scaled = False
object Label1: TLabel
AnchorSideLeft.Control = Owner
@ -253,8 +253,8 @@ object frmSpellChecker: TfrmSpellChecker
end
object alSpell: TActionList
OnUpdate = alSpellUpdate
left = 112
top = 144
Left = 112
Top = 144
object acIgnore: TAction
Caption = '&Ignore'
OnExecute = acIgnoreExecute

View File

@ -123,14 +123,15 @@ begin
end;
procedure TfrmSpellChecker.FormCreate(Sender: TObject);
var S:string;
var
S:string;
begin
ASpellChecker := TJvSpellChecker.Create(self);
// Dictionaries are plain text files, one word per row, preferably sorted.
// If you don't load a dictionary, all words are misspelled and you won't get any suggestions
S := ExtractFilePath(Application.ExeName) + 'english.dic';
S := ExtractFilePath(Application.ExeName) + '../../dict/english.dic';
if not FileExists(S) then
S := '..' + PathDelim + 'Dict' + PathDelim + 'english.dic';
S := '..' + PathDelim + 'Dict' + PathDelim + '../dict/english.dic';
if FileExists(S) then
ASpellChecker.Dictionary := S
else

View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="SimpleTLTest1"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
@ -62,7 +64,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\SimpleTLTest1"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/SimpleTLTest1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -53,7 +53,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvTabBarDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvTabBarDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -82,20 +82,20 @@ object Form1: TForm1
Font.Color = clWindowText
DisabledFont.Color = clGrayText
SelectedFont.Color = clWindowText
left = 360
top = 192
Left = 360
Top = 192
end
object JvTabBarXPPainter1: TJvTabBarXPPainter
Font.Color = clWindowText
DisabledFont.Color = clGrayText
SelectedFont.Color = clWindowText
FixedTabSize = 0
left = 360
top = 120
Left = 360
Top = 120
end
object ImageList1: TImageList
left = 208
top = 120
Left = 208
Top = 120
Bitmap = {
4C69040000001000000010000000FFFFFF00FFFFFF00459AD3EF4498D2FF4197
D1FF3F95D1FF3D94D0FF3B93D0FF3B92CFFF3B92CFFF3B92CFFF3D94D0FF4398
@ -230,12 +230,12 @@ object Form1: TForm1
end
object OpenDialog1: TOpenDialog
Options = [ofAllowMultiSelect, ofEnableSizing, ofViewDetail]
left = 209
top = 191
Left = 209
Top = 191
end
object PopupMenu1: TPopupMenu
left = 77
top = 109
Left = 77
Top = 109
object MenuItem1: TMenuItem
Action = AcModernPainter
AutoCheck = True
@ -249,8 +249,8 @@ object Form1: TForm1
end
object ActionList1: TActionList
Images = ImageList1
left = 78
top = 184
Left = 78
Top = 184
object AcFileOpen: TAction
Category = 'File'
Caption = 'Open...'
@ -278,8 +278,8 @@ object Form1: TForm1
end
end
object MainMenu1: TMainMenu
left = 77
top = 253
Left = 77
Top = 253
object MenuItem3: TMenuItem
Caption = 'File'
object MenuItem4: TMenuItem

View File

@ -96,7 +96,7 @@ end;
procedure TForm1.FormCreate(Sender: TObject);
begin
OpenDialog1.InitialDir := '..' + PathDelim + 'examples' + PathDelim + 'JvTabBar';
OpenDialog1.InitialDir := '../../examples/JvTabBar';
LoadFile(OpenDialog1.InitialDir + PathDelim + 'main.pas');
LoadFile(OpenDialog1.InitialDir + PathDelim + 'main.lfm');
end;
@ -107,7 +107,7 @@ var
info: TTabInfo;
begin
for i := JvTabBar1.Tabs.Count-1 downto 0 do begin
info := TTabInfo((JvTabBar1.Tabs[i]).Tag);
info := TTabInfo(JvTabBar1.Tabs[i].Tag);
FreeAndNil(info);
end;
end;

View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="JvTabBarDemo_NotebookPages"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
@ -55,7 +57,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvTabBarDemo_NotebookPages"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvTabBarDemo_NotebookPages"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 438
ClientWidth = 669
OnCreate = FormCreate
LCLVersion = '1.9.0.0'
LCLVersion = '2.1.0.0'
object JvTabBar1: TJvTabBar
Left = 0
Height = 30
@ -35,7 +35,7 @@ object Form1: TForm1
Height = 408
Top = 30
Width = 669
PageIndex = 1
PageIndex = 0
Align = alClient
TabOrder = 1
object lprPage: TPage
@ -1064,8 +1064,9 @@ object Form1: TForm1
DirectiveAttri.Style = [fsBold]
CompilerMode = pcmDelphi
NestedComments = False
left = 157
top = 111
TypeHelpers = True
Left = 157
Top = 111
end
object JvModernTabBarPainter1: TJvModernTabBarPainter
Color = clGradientInactiveCaption
@ -1076,22 +1077,22 @@ object Form1: TForm1
DisabledFont.Color = clGrayText
SelectedFont.Color = clWindowText
SelectedFont.Style = [fsBold]
left = 155
top = 209
Left = 155
Top = 209
end
object JvTabBarXPPainter1: TJvTabBarXPPainter
Font.Color = clWindowText
DisabledFont.Color = clGrayText
SelectedFont.Color = clWindowText
FixedTabSize = 0
left = 312
top = 209
Left = 312
Top = 209
end
object SynXMLSyn1: TSynXMLSyn
DefaultFilter = 'XML Document (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;*.dtd'
Enabled = False
WantBracesParsed = False
left = 241
top = 111
Left = 241
Top = 111
end
end

View File

@ -50,7 +50,7 @@ procedure TForm1.FormCreate(Sender: TObject);
var
dir: String;
begin
dir := ExpandFileName(Application.Location + '../examples/JvTabBar_NotebookPages/');
dir := ExpandFileName(Application.Location + '../../examples/JvTabBar_NotebookPages/');
PasSynEdit.Lines.LoadfromFile(dir + 'main.pas');
XMLSynEdit.Lines.LoadFromFile(dir + 'JvTabBarDemo_NotebookPages.lpi');
Image1.Picture.LoadFromFile(dir + 'JvTabBarDemo_NotebookPages.ico');

View File

@ -66,11 +66,11 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="../../bin/JvThumbnailDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvThumbnailDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>

View File

@ -13,7 +13,7 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
Font.Color = clWindowText
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.9.0.0'
LCLVersion = '2.1.0.0'
Scaled = False
object PageControl1: TPageControl
Left = 0
@ -879,13 +879,6 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
ClientHeight = 24
ClientWidth = 931
TabOrder = 1
object Bevel1: TBevel
Left = 3
Height = 18
Top = 3
Width = 291
Align = alLeft
end
object ProgressBar: TProgressBar
Left = 5
Height = 13

View File

@ -100,7 +100,6 @@ type
ThumbView: TJVThumbview;
Panel5: TPanel;
ProgressBar: TProgressBar;
Bevel1: TBevel;
procedure BtnEditSelThumbClick(Sender: TObject);
procedure BtnStopLoadingClick(Sender: TObject);

View File

@ -53,7 +53,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="../../bin/JvFormatEditDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvFormatEditDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -57,7 +57,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvValidatorsDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvValidatorsDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -55,7 +55,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\JvWizardDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/JvWizardDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -52,7 +52,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\XPBarDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/XPBarDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -54,7 +54,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\XPCtrls_SimpleDemo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/XPCtrls_SimpleDemo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

View File

@ -54,7 +54,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="..\..\bin\YearGrid_Demo"/>
<Filename Value="../../bin/$(TargetCPU)-$(TargetOS)/YearGrid_Demo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>