pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Fix a series of issues with Linux

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6318 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-18 22:20:45 +00:00
parent 0e4645f9bf
commit bfdb6c5eaa
66 changed files with 3102 additions and 3573 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
components/jvcllaz/design/JvCmp/jvcmpreg.pas → components/jvcllaz/design/JvCmp/JvCmpReg.pas
View File

2
components/jvcllaz/design/JvCore/JvDsgnConsts.pas
View File

@ -511,7 +511,7 @@ resourcestring
// (rom) from JvConsts.pas
RsID3CommitTag = '&Commit';
RsID3FileInfoTag = 'File &info';
RsID3FileInfoTag = 'File &info...';
RsID3FrameEditorTag = 'Frame edi&tor';
RsID3RemoveTag = '&Remove tag...';
RsID3RemoveTagConfirmation = 'Remove tag?';

2
components/jvcllaz/design/JvCustomControls/jvcustomreg.pas → components/jvcllaz/design/JvCustomControls/JvCustomReg.pas
View File

@ -19,7 +19,7 @@ uses
JvOutlookBar, JvOutlookBarEditors,
JvTabBar, JvTabBarXPPainter,
JvThumbImage, JvThumbnails, JvThumbViews,
JvTimeLine, JvTMTimeline, JvTimeLineEditor;
JvTimeLine, JvTMTimeLine, JvTimeLineEditor;
procedure Register;
begin

0
components/jvcllaz/design/JvCustomControls/jvoutlookbareditors.pas → components/jvcllaz/design/JvCustomControls/JvOutlookBarEditors.pas
View File

0
components/jvcllaz/design/JvCustomControls/jvtimelineeditor.pas → components/jvcllaz/design/JvCustomControls/JvTimeLineEditor.pas
View File

2
components/jvcllaz/design/JvJans/jvjansreg.pas → components/jvcllaz/design/JvJans/JvJansReg.pas
View File

@ -19,7 +19,7 @@ uses
//JvCSVData, JvCSVBaseControls, //JvCsvBaseEditor,
JvMarkupViewer, JvMarkupLabel,
JvSimScope, JvSimIndicator, JvSimPID, JvSimPIDLinker, JvSimLogic,
JvJanLed, JvJanToggle;
JvJanLED, JvJanToggle;
procedure Register;
begin

34
components/jvcllaz/design/JvMM/JvMMReg.pas Normal file
View File

@ -0,0 +1,34 @@
unit JvMMReg;
{$mode objfpc}{$H+}
interface
uses
SysUtils;
procedure Register;
implementation
{$R ../../resource/jvmmreg.res}
uses
Classes, Controls, PropEdits, ComponentEditors,
JvDsgnConsts,
JvId3v1, JvId3v2Base, JvId3v2, JvGradient, JvId3v2EditorForm,
JvGradientHeaderPanel, JvSpecialProgress;
procedure Register;
begin
RegisterComponents(RsPaletteJvcl, [
TJvId3v1, TJvId3v2,
TJvGradient, TJvGradientHeaderPanel,
TJvSpecialProgress
]);
RegisterComponentEditor(TJvID3Controller, TJvID3ControllerEditor);
RegisterPropertyEditor(TypeInfo(TJvID3FileInfo), nil, '', TJvID3FileInfoEditor);
end;
end.

31
components/jvcllaz/design/JvMM/jvmmreg.pas
View File

@ -1,31 +0,0 @@
unit JvMMReg;
{$mode objfpc}{$H+}
interface
uses
SysUtils;
procedure Register;
implementation
{$R ../../resource/jvmmreg.res}
uses
Classes, JvDsgnConsts,
PropEdits, Controls,
JvId3v1, JvId3v2, JvGradient, JvGradientHeaderPanel, JvSpecialProgress;
procedure Register;
begin
RegisterComponents(RsPaletteJvcl, [
TJvId3v1, TJvId3v2,
TJvGradient, TJvGradientHeaderPanel,
TJvSpecialProgress
]);
end;
end.

0
components/jvcllaz/design/JvPageComps/jvnavpaneeditors.pas → components/jvcllaz/design/JvPageComps/JvNavPaneEditors.pas
View File

5
components/jvcllaz/examples/JVTimeLine/TimelineNotesFormU.pas
View File

@ -29,8 +29,7 @@ unit TimelineNotesFormU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TTimelineNotesForm = class(TForm)
@ -44,4 +43,4 @@ implementation
{$R *.lfm}
end.
end.

14
components/jvcllaz/examples/JvHTControls/JvHTCtrlsDemo.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -9,11 +9,6 @@
<Title Value="JvHTCtrlsDemo"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<TextName Value="CompanyName.ProductName.AppName"/>
<TextDesc Value="Your application description."/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
@ -22,9 +17,10 @@
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default"/>
</Modes>
</RunParams>
<RequiredPackages Count="5">
<Item1>

5
components/jvcllaz/examples/JvHTControls/unit1.lfm
View File

@ -8,7 +8,7 @@ object Form1: TForm1
ClientWidth = 582
OnCreate = FormCreate
OnShow = FormShow
LCLVersion = '1.7'
LCLVersion = '1.9.0.0'
object PageControl1: TPageControl
Left = 0
Height = 422
@ -25,7 +25,7 @@ object Form1: TForm1
object JvHTLabel1: TJvHTLabel
Left = 8
Height = 106
Hint = 'HTLabel with:<br>'#13#10'<b>bold</b><br>'#13#10'<i>italic</i><br>'#13#10'<u>underline</u><br>'#13#10'<s>strikeout</s><br>'#13#10'<font color="clRed">c</font><font color="clblue">o</font><font color="clGreen">l</font><font color="clFuchsia">o</font><font color="clMaroon">r</font><br>'#13#10'<a href="http://www.freepascal.org/">Links</a> and <a href="custom">custom links</a>'
Hint = 'HTLabel with:<br />'#13#10'<b>bold</b><br>'#13#10'<i>italic</i><br>'#13#10'<u>underline</u><br>'#13#10'<s>strikeout</s><br>'#13#10'<font color="clRed">c</font><font color="clblue">o</font><font color="clGreen">l</font><font color="clFuchsia">o</font><font color="clMaroon">r</font><br>'#13#10'<a href="http://www.freepascal.org/">Links</a> and <a href="custom">custom links</a>'
Top = 8
Width = 120
Caption = 'HTLabel with:<br>'#13#10'<b>bold</b><br>'#13#10'<i>italic</i><br>'#13#10'<u>underline</u><br>'#13#10'<s>strikeout</s><br>'#13#10'<font color="clRed">c</font><font color="clblue">o</font><font color="clGreen">l</font><font color="clFuchsia">o</font><font color="clMaroon">r</font><br>'#13#10'<a href="http://www.freepascal.org/">Links</a> and <a href="custom">custom links</a>'
@ -162,7 +162,6 @@ object Form1: TForm1
ParentShowHint = False
ShowHint = True
TabOrder = 4
Text = 'JvHTComboBox1'
end
object Button2: TButton
Left = 264

16
components/jvcllaz/examples/JvID3v2/JvID3v2Demo.lpr
View File

@ -1,16 +0,0 @@
program JvID3v2Demo;
uses
Interfaces,
Forms,
JvID3v2MainFormU in 'JvID3v2MainFormU.pas' {JvID3v2MainForm},
JvID3v2EditFormU in 'JvID3v2EditFormU.pas' {JvID3v2EditForm};
{$R *.res}
begin
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TJvID3v2MainForm, JvID3v2MainForm);
Application.Run;
end.

19
components/jvcllaz/examples/JvID3v2/JvID3v2Demo.lpi → components/jvcllaz/examples/JvID3v2/JvId3v2Demo.lpi
View File

@ -4,12 +4,9 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<Flags>
<UseDefaultCompilerOptions Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="JvID3v2Demo"/>
<Title Value="JvId3v2Demo"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
@ -38,22 +35,24 @@
</RequiredPackages>
<Units Count="3">
<Unit0>
<Filename Value="JvID3v2Demo.lpr"/>
<Filename Value="JvId3v2Demo.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="JvID3v2EditFormU.pas"/>
<Filename Value="JvId3v2EditFormU.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="JvID3v2EditForm"/>
<ComponentName Value="JvId3v2EditForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="JvId3v2EditFormU"/>
</Unit1>
<Unit2>
<Filename Value="JvID3v2MainFormU.pas"/>
<Filename Value="JvId3v2MainFormU.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="JvID3v2MainForm"/>
<ComponentName Value="JvId3v2MainForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="JvId3v2MainFormU"/>
</Unit2>
</Units>
</ProjectOptions>
@ -61,7 +60,7 @@
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="JvID3v2Demo"/>
<Filename Value="JvId3v2Demo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>

16
components/jvcllaz/examples/JvID3v2/JvId3v2Demo.lpr Normal file
View File

@ -0,0 +1,16 @@
program JvId3v2Demo;
uses
Interfaces,
Forms,
JvId3v2MainFormU in 'JvId3v2MainFormU.pas' {JvId3v2MainForm},
JvId3v2EditFormU in 'JvId3v2EditFormU.pas' {JvId3v2EditForm};
{$R *.res}
begin
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TJvId3v2MainForm, JvId3v2MainForm);
Application.Run;
end.

0
components/jvcllaz/examples/JvID3v2/JvID3v2EditFormU.lfm → components/jvcllaz/examples/JvID3v2/JvId3v2EditFormU.lfm
View File

2
components/jvcllaz/examples/JvID3v2/JvID3v2EditFormU.pas → components/jvcllaz/examples/JvID3v2/JvId3v2EditFormU.pas
View File

@ -24,7 +24,7 @@
******************************************************************}
unit JvID3v2EditFormU;
unit JvId3v2EditFormU;
{$mode objfpc}{$H+}

0
components/jvcllaz/examples/JvID3v2/JvID3v2MainFormU.lfm → components/jvcllaz/examples/JvID3v2/JvId3v2MainFormU.lfm
View File

8
components/jvcllaz/examples/JvID3v2/JvID3v2MainFormU.pas → components/jvcllaz/examples/JvID3v2/JvId3v2MainFormU.pas
View File

@ -24,17 +24,17 @@
******************************************************************}
unit JvID3v2MainFormU;
unit JvId3v2MainFormU;
{$mode objfpc}{$H+}
interface
uses
Windows, SysUtils, FileUtil, Classes, Controls, Forms, //JvSearchFiles,
SysUtils, FileUtil, Classes, Controls, Forms, //JvSearchFiles,
ComCtrls,
//JvDriveCtrls,
ExtCtrls, JvID3v2Base, JvId3v2, JvID3v2Types, //JvComponent,
ExtCtrls, JvId3v2Base, JvId3v2, JvId3v2Types, //JvComponent,
StdCtrls, ShellCtrls; //, JvListBox, JvCombobox, JvExStdCtrls, JvComponentBase;
type
@ -68,7 +68,7 @@ implementation
uses
LazFileUtils,
JvID3v2EditFormU;
JvId3v2EditFormU;
{$R *.lfm}

6029
components/jvcllaz/examples/JvOutlookBarCustomDraw/JvOutlookBarCustomDrawDemoMainForm.lfm
View File

File diff suppressed because it is too large Load Diff

97
components/jvcllaz/examples/JvSimScope/MainForm.lfm
View File

@ -1,21 +1,27 @@
object frmMain: TfrmMain
Left = 0
Height = 271
Top = 0
Width = 541
Left = 411
Height = 352
Top = 332
Width = 594
AutoSize = True
BorderStyle = bsSingle
Caption = 'JvSimScope demo'
ClientHeight = 271
ClientWidth = 541
ClientHeight = 352
ClientWidth = 594
Color = clBtnFace
Font.Color = clWindowText
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object jssRandom: TJvSimScope
Left = 264
Height = 208
AnchorSideLeft.Control = lblRandomDetails1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblRandomDetails1
AnchorSideBottom.Control = btnActivateDeactivateRandom
AnchorSideBottom.Side = asrBottom
Left = 276
Height = 207
Top = 48
Width = 256
Width = 252
Active = False
BaseLine = 0
BaseLineUnit = jluAbsolute
@ -38,34 +44,35 @@ object frmMain: TfrmMain
Maximum = 100
TotalTimeSteps = 240
OnUpdate = jssRandomUpdate
end
object lblRandomDetails1: TLabel
Left = 16
Height = 80
Top = 48
Width = 232
AutoSize = False
Caption = 'This scope shows random values but uses logical units to show a more advanced usage. Here, the Minimum and Maximum values are used and can be adjusted to make the lines fit in the display.'
ParentColor = False
WordWrap = True
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Right = 24
end
object Label1: TLabel
AnchorSideLeft.Control = lblRandomDetails1
AnchorSideTop.Control = lblRandomDetails1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lblRandomDetails1
AnchorSideRight.Side = asrBottom
Left = 16
Height = 96
Top = 128
Width = 225
AutoSize = False
Height = 75
Top = 131
Width = 244
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
Caption = 'The yellow line values are meant to go higher than the maximum value set at design time for the scope. Use the button below to change that value and notice how the lines are completely adjusted to this change.'
Constraints.MaxWidth = 250
ParentColor = False
WordWrap = True
end
object lblWelcome: TLabel
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
Left = 114
AnchorSideTop.Control = Owner
Left = 141
Height = 28
Top = 8
Width = 312
BorderSpacing.Top = 8
Caption = 'Welcome to the TJvSimScope demo'
Font.Color = clWindowText
Font.Height = -20
@ -73,21 +80,53 @@ object frmMain: TfrmMain
ParentFont = False
end
object btnActivateDeactivateRandom: TButton
AnchorSideLeft.Control = lblRandomDetails1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 32
Height = 25
Top = 232
Width = 75
Top = 230
Width = 69
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Top = 24
BorderSpacing.Bottom = 24
Caption = 'Activate'
OnClick = btnActivateDeactivateRandomClick
TabOrder = 0
end
object btnAdjustMax: TButton
Left = 113
AnchorSideLeft.Control = btnActivateDeactivateRandom
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnActivateDeactivateRandom
AnchorSideBottom.Control = jssRandom
AnchorSideBottom.Side = asrBottom
Left = 117
Height = 25
Top = 232
Width = 100
Top = 230
Width = 116
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Bottom = 16
Caption = 'Adjust Max value'
OnClick = btnAdjustMaxClick
TabOrder = 1
end
object lblRandomDetails1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblWelcome
AnchorSideTop.Side = asrBottom
Left = 16
Height = 75
Top = 48
Width = 244
BorderSpacing.Left = 16
BorderSpacing.Top = 12
BorderSpacing.Right = 16
Caption = 'This scope shows random values but uses logical units to show a more advanced usage. Here, the Minimum and Maximum values are used and can be adjusted to make the lines fit in the display.'
Constraints.MaxWidth = 250
ParentColor = False
WordWrap = True
end
end

7
components/jvcllaz/examples/JvSimScope/MainForm.pas
View File

@ -30,15 +30,18 @@ interface
uses
SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, JvSimScope, StdCtrls;
Dialogs, JvSimScope, StdCtrls, ExtCtrls;
type
{ TfrmMain }
TfrmMain = class(TForm)
jssRandom: TJvSimScope;
lblRandomDetails1: TLabel;
btnActivateDeactivateRandom: TButton;
btnAdjustMax: TButton;
Label1: TLabel;
lblRandomDetails1: TLabel;
lblWelcome: TLabel;
procedure jssRandomUpdate(Sender: TObject);
procedure btnActivateDeactivateRandomClick(Sender: TObject);

22
components/jvcllaz/examples/JvSpecialProgress/main.lfm
View File

@ -1,10 +1,10 @@
object MainForm: TMainForm
Left = 258
Height = 340
Height = 358
Top = 127
Width = 459
Caption = 'JvSpecialProgress Demo'
ClientHeight = 340
ClientHeight = 358
ClientWidth = 459
OnCreate = FormCreate
LCLVersion = '1.9.0.0'
@ -105,7 +105,7 @@ object MainForm: TMainForm
object CbBorderColor: TColorBox
Left = 328
Height = 22
Top = 166
Top = 170
Width = 100
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
ItemHeight = 16
@ -115,7 +115,7 @@ object MainForm: TMainForm
object CbFlat: TCheckBox
Left = 245
Height = 19
Top = 176
Top = 184
Width = 39
Caption = 'Flat'
OnChange = CbFlatChange
@ -124,7 +124,7 @@ object MainForm: TMainForm
object CbTextOption: TComboBox
Left = 328
Height = 23
Top = 208
Top = 216
Width = 100
ItemHeight = 15
Items.Strings = (
@ -140,7 +140,7 @@ object MainForm: TMainForm
object Label4: TLabel
Left = 245
Height = 15
Top = 212
Top = 220
Width = 62
Caption = 'Text option:'
ParentColor = False
@ -148,7 +148,7 @@ object MainForm: TMainForm
object CbTextCentered: TCheckBox
Left = 245
Height = 19
Top = 296
Top = 304
Width = 91
Caption = 'Text centered'
OnChange = CbTextCenteredChange
@ -157,7 +157,7 @@ object MainForm: TMainForm
object EdFormat: TEdit
Left = 328
Height = 23
Top = 236
Top = 244
Width = 100
TabOrder = 10
Text = '%0:d%% done (%1:d of %2:d).'
@ -165,7 +165,7 @@ object MainForm: TMainForm
object LblFormat: TLabel
Left = 247
Height = 15
Top = 240
Top = 248
Width = 38
Caption = 'Format'
FocusControl = EdFormat
@ -174,7 +174,7 @@ object MainForm: TMainForm
object CbTextColor: TColorBox
Left = 328
Height = 22
Top = 264
Top = 272
Width = 100
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
ItemHeight = 16
@ -184,7 +184,7 @@ object MainForm: TMainForm
object Label5: TLabel
Left = 245
Height = 15
Top = 268
Top = 276
Width = 54
Caption = 'Text color:'
ParentColor = False

166
components/jvcllaz/examples/JvSpellChecker/JvSpellCheckerForm.lfm
View File

@ -1,12 +1,13 @@
object frmSpellChecker: TfrmSpellChecker
Left = 338
Height = 334
Height = 406
Top = 177
Width = 384
Width = 457
AutoSize = True
BorderStyle = bsDialog
Caption = 'Spell check document'
ClientHeight = 334
ClientWidth = 384
ClientHeight = 406
ClientWidth = 457
Color = clBtnFace
DefaultMonitor = dmDesktop
Font.Color = clWindowText
@ -17,27 +18,36 @@ object frmSpellChecker: TfrmSpellChecker
LCLVersion = '1.9.0.0'
Scaled = False
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 16
Height = 15
Top = 16
Top = 12
Width = 81
BorderSpacing.Left = 16
BorderSpacing.Top = 12
Caption = 'Not in wordlist:'
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = edNewWord
AnchorSideTop.Side = asrBottom
Left = 16
Height = 15
Top = 102
Top = 112
Width = 67
BorderSpacing.Top = 8
Caption = 'Suggestions:'
ParentColor = False
end
object lblNoSuggestions: TLabel
AnchorSideTop.Control = Label2
AnchorSideRight.Control = edNewWord
AnchorSideRight.Side = asrBottom
Left = 166
Left = 232
Height = 15
Top = 101
Top = 112
Width = 104
Anchors = [akTop, akRight]
Caption = '(nothing to display)'
@ -45,98 +55,155 @@ object frmSpellChecker: TfrmSpellChecker
Visible = False
end
object Label3: TLabel
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = edBadWord
AnchorSideTop.Side = asrBottom
Left = 16
Height = 15
Top = 56
Top = 62
Width = 70
BorderSpacing.Top = 8
Caption = 'Replace with:'
ParentColor = False
end
object edNewWord: TEdit
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label3
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edBadWord
AnchorSideRight.Side = asrBottom
Left = 16
Height = 23
Top = 72
Width = 254
Top = 81
Width = 320
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
TabOrder = 1
end
object lbSuggestions: TListBox
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edBadWord
AnchorSideRight.Side = asrBottom
Left = 16
Height = 82
Top = 120
Width = 254
Anchors = [akTop, akLeft, akRight, akBottom]
Height = 141
Top = 131
Width = 320
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
ItemHeight = 0
OnClick = lbSuggestionsClick
TabOrder = 2
end
object btnIgnore: TButton
Left = 294
AnchorSideLeft.Control = btnIgnoreAll
AnchorSideTop.Control = edBadWord
AnchorSideRight.Control = btnIgnoreAll
AnchorSideRight.Side = asrBottom
Left = 352
Height = 25
Top = 32
Width = 75
Top = 31
Width = 77
Action = acIgnore
Anchors = [akTop, akRight]
Anchors = [akTop, akLeft, akRight]
AutoSize = True
TabOrder = 3
end
object btnIgnoreAll: TButton
Left = 294
AnchorSideLeft.Control = edBadWord
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = btnIgnore
AnchorSideTop.Side = asrBottom
Left = 352
Height = 25
Top = 61
Width = 75
Top = 64
Width = 77
Action = acIgnoreAll
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Top = 8
BorderSpacing.Right = 16
TabOrder = 4
end
object btnChange: TButton
Left = 294
AnchorSideLeft.Control = btnIgnoreAll
AnchorSideTop.Control = lbSuggestions
AnchorSideRight.Control = btnIgnoreAll
AnchorSideRight.Side = asrBottom
Left = 352
Height = 25
Top = 120
Width = 75
Top = 131
Width = 77
Action = acChange
Anchors = [akTop, akRight]
Anchors = [akTop, akLeft, akRight]
AutoSize = True
TabOrder = 5
end
object btnClose: TButton
Left = 294
AnchorSideLeft.Control = btnIgnoreAll
AnchorSideRight.Control = btnIgnoreAll
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = GroupBox1
AnchorSideBottom.Side = asrBottom
Left = 352
Height = 25
Top = 289
Width = 75
Top = 363
Width = 77
Action = acClose
Anchors = [akRight, akBottom]
Anchors = [akLeft, akRight, akBottom]
AutoSize = True
Cancel = True
TabOrder = 8
end
object btnAdd: TButton
Left = 294
AnchorSideLeft.Control = btnIgnoreAll
AnchorSideTop.Control = btnChange
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnIgnoreAll
AnchorSideRight.Side = asrBottom
Left = 352
Height = 25
Top = 149
Width = 75
Top = 164
Width = 77
Action = acAdd
Anchors = [akTop, akRight]
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 8
TabOrder = 6
end
object GroupBox1: TGroupBox
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = lbSuggestions
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lblNoSuggestions
AnchorSideRight.Side = asrBottom
Left = 16
Height = 105
Top = 209
Width = 254
Anchors = [akLeft, akRight, akBottom]
Height = 108
Top = 280
Width = 320
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Bottom = 16
Caption = ' Ignore: '
ClientHeight = 85
ClientWidth = 250
ClientHeight = 88
ClientWidth = 316
TabOrder = 7
object chkUpperCase: TCheckBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
Left = 24
Height = 19
Top = 4
Width = 118
BorderSpacing.Left = 24
BorderSpacing.Top = 4
Caption = '&UPPERCASE words'
TabOrder = 0
end
object chkNumber: TCheckBox
AnchorSideLeft.Control = chkUpperCase
AnchorSideTop.Control = chkUpperCase
AnchorSideTop.Side = asrBottom
Left = 24
@ -147,6 +214,7 @@ object frmSpellChecker: TfrmSpellChecker
TabOrder = 1
end
object chkURL: TCheckBox
AnchorSideLeft.Control = chkUpperCase
AnchorSideTop.Control = chkNumber
AnchorSideTop.Side = asrBottom
Left = 24
@ -157,30 +225,36 @@ object frmSpellChecker: TfrmSpellChecker
TabOrder = 2
end
object chkHTML: TCheckBox
AnchorSideLeft.Control = chkUpperCase
AnchorSideTop.Control = chkURL
AnchorSideTop.Side = asrBottom
Left = 24
Height = 19
Top = 61
Width = 82
BorderSpacing.Bottom = 8
Caption = 'HT&ML code'
TabOrder = 3
end
end
object edBadWord: TEdit
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 16
Height = 23
Top = 32
Width = 254
Anchors = [akTop, akLeft, akRight]
Top = 31
Width = 320
BorderSpacing.Top = 4
Color = clBtnFace
Constraints.MinWidth = 320
ReadOnly = True
TabOrder = 0
end
object alSpell: TActionList
OnUpdate = alSpellUpdate
left = 296
top = 224
left = 112
top = 144
object acIgnore: TAction
Caption = '&Ignore'
OnExecute = acIgnoreExecute

2
components/jvcllaz/examples/JvSpellChecker/JvSpellCheckerForm.pas
View File

@ -130,7 +130,7 @@ begin
// If you don't load a dictionary, all words are misspelled and you won't get any suggestions
S := ExtractFilePath(Application.ExeName) + 'english.dic';
if not FileExists(S) then
S := '..\Dict\english.dic';
S := '..' + PathDelim + 'Dict' + PathDelim + 'english.dic';
if FileExists(S) then
ASpellChecker.Dictionary := S
else

6
components/jvcllaz/examples/JvSpellChecker/MainFrm.lfm
View File

@ -11,8 +11,6 @@ object frmMain: TfrmMain
Constraints.MinWidth = 320
DefaultMonitor = dmDesktop
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Menu = mmMain
Position = poScreenCenter
LCLVersion = '1.9.0.0'
@ -23,11 +21,7 @@ object frmMain: TfrmMain
Top = 0
Width = 535
Align = alClient
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Shell Dlg 2'
HideSelection = False
ParentFont = False
ScrollBars = ssBoth
TabOrder = 0
WantTabs = True

9
components/jvcllaz/examples/JvTMTimeLine/SimpleTLTest1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -22,9 +22,10 @@
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default"/>
</Modes>
</RunParams>
<RequiredPackages Count="3">
<Item1>

2
components/jvcllaz/examples/JvTMTimeLine/SimpleTLTest1.lpr
View File

@ -7,7 +7,7 @@ uses
frmMemoEdit in 'frmMemoEdit.pas' {MemoEditFrm},
TMTimeLineMainFormU in 'TMTimeLineMainFormU.pas' {TMTimeLineMainForm};
{$R *.RES}
{$R *.res}
begin
Application.Scaled := True;

2
components/jvcllaz/examples/JvTMTimeLine/TMTimeLineMainFormU.lfm
View File

@ -17,7 +17,7 @@ object TMTimeLineMainForm: TTMTimeLineMainForm
OnMouseWheelUp = FormMouseWheelUp
Position = poScreenCenter
ShowHint = True
LCLVersion = '1.8.0.6'
LCLVersion = '1.9.0.0'
Scaled = False
object Splitter1: TSplitter
Cursor = crVSplit

1
components/jvcllaz/examples/JvTMTimeLine/TMTimeLineMainFormU.pas
View File

@ -32,7 +32,6 @@ unit TMTimeLineMainFormU;
interface
uses
//Windows, Messages,
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ComCtrls, StdCtrls, Buttons, ImgList, DateTimePicker,
Menus, CheckLst, JvTMTimeLine;

2
components/jvcllaz/examples/JvTMTimeLine/frmMemoEdit.pas
View File

@ -31,7 +31,7 @@ unit frmMemoEdit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
LCLType, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ComCtrls, ExtCtrls, Menus;
type

0
components/jvcllaz/examples/JvThumbnail/jvthumbnaildatamodule.lfm → components/jvcllaz/examples/JvThumbnail/JvThumbnailDatamodule.lfm
View File

0
components/jvcllaz/examples/JvThumbnail/jvthumbnaildatamodule.pas → components/jvcllaz/examples/JvThumbnail/JvThumbnailDatamodule.pas
View File

2
components/jvcllaz/examples/JvThumbnail/JvThumbnailDemo.lpi
View File

@ -53,7 +53,7 @@
<ResourceBaseClass Value="Form"/>
</Unit2>
<Unit3>
<Filename Value="jvthumbnaildatamodule.pas"/>
<Filename Value="JvThumbnailDatamodule.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="DataModule1"/>
<HasResources Value="True"/>

2
components/jvcllaz/examples/JvThumbnail/JvThumbnailDemo.lpr
View File

@ -3,7 +3,7 @@ program JvThumbnailDemo;
uses
Forms, Interfaces, JvThumbnailMainFormU, JvThumbnailChildFormU, JvThumbnailDatamodule {JvThumbnailMainForm};
{$R *.RES}
{$R *.res}
begin
Application.Scaled := True;

42
components/jvcllaz/examples/JvThumbnail/JvThumbnailMainFormU.lfm
View File

@ -30,19 +30,19 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
ClientWidth = 923
object Splitter1: TSplitter
Left = 205
Height = 546
Top = 58
Height = 544
Top = 60
Width = 3
end
object Panel1: TPanel
Left = 0
Height = 58
Height = 60
Top = 0
Width = 923
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 58
ClientHeight = 60
ClientWidth = 923
TabOrder = 0
object LblThumbSize: TLabel
@ -234,11 +234,11 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
AnchorSideRight.Side = asrBottom
Left = 449
Height = 25
Top = 2
Top = 4
Width = 135
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 2
BorderSpacing.Top = 4
Caption = 'Stop Loading'
Enabled = False
OnClick = BtnStopLoadingClick
@ -251,7 +251,7 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
AnchorSideTop.Side = asrBottom
Left = 449
Height = 25
Top = 29
Top = 31
Width = 135
AutoSize = True
BorderSpacing.Left = 16
@ -264,18 +264,18 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
end
object Panel2: TPanel
Left = 0
Height = 546
Top = 58
Height = 544
Top = 60
Width = 205
Align = alLeft
BevelOuter = bvNone
Caption = 'Panel2'
ClientHeight = 546
ClientHeight = 544
ClientWidth = 205
TabOrder = 1
object ShellTreeView: TShellTreeView
Left = 0
Height = 376
Height = 374
Hint = 'Set directory where your images are located and watch the thumbview creating the thumbs'
Top = 0
Width = 205
@ -294,7 +294,7 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
Left = 0
Height = 77
Hint = 'Change the AlignView property to either use the thumbGup (VTNormal) autocalculate the empty space to equall parts(VTSPACEEQUAL) or Cender the thumbs in the using the htumbgup between them.'
Top = 384
Top = 382
Width = 205
Align = alBottom
AutoFill = True
@ -323,7 +323,7 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
Left = 0
Height = 77
Hint = 'Change the ScrollMode to change the direction the thumb are scrolling in the screen SMVertical You will see a vertical scrollbar SMHorizontal For A horizontal ScrollBar or SMBoth to create a square view '
Top = 469
Top = 467
Width = 205
Align = alBottom
AutoFill = True
@ -351,20 +351,20 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
end
object Panel3: TPanel
Left = 208
Height = 546
Top = 58
Height = 544
Top = 60
Width = 715
Align = alClient
BevelOuter = bvNone
Caption = 'Panel3'
ClientHeight = 546
ClientHeight = 544
ClientWidth = 715
TabOrder = 2
object DirInfoPanel: TPanel
Left = 0
Height = 16
Hint = 'Read the selectedFile property to get the path+filename of the selected thumb'
Top = 530
Top = 528
Width = 715
Align = alBottom
BevelOuter = bvLowered
@ -374,7 +374,7 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
end
object ThumbView: TJvThumbView
Left = 0
Height = 530
Height = 528
Top = 0
Width = 553
HorzScrollBar.Page = 1
@ -408,14 +408,14 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
end
object Panel4: TPanel
Left = 561
Height = 530
Height = 528
Top = 0
Width = 146
Align = alRight
BorderSpacing.Left = 8
BorderSpacing.Right = 8
BevelOuter = bvNone
ClientHeight = 530
ClientHeight = 528
ClientWidth = 146
TabOrder = 2
object GroupBox1: TGroupBox
@ -469,11 +469,13 @@ object JvThumbnailMainForm: TJvThumbnailMainForm
end
object CbTitleColor: TColorButton
AnchorSideLeft.Control = CbThumbColor
AnchorSideTop.Control = CbThumbColor
AnchorSideTop.Side = asrBottom
Left = 90
Height = 25
Top = 27
Width = 27
BorderSpacing.Top = 2
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
BorderWidth = 2

2
components/jvcllaz/examples/JvThumbnail/JvThumbnailMainFormU.pas
View File

@ -33,7 +33,7 @@ interface
uses
Classes, Controls, Graphics, Forms, StdCtrls, ExtCtrls, ComCtrls, Dialogs,
Spin, ShellCtrls,
JvThumbNails, JvThumbViews, {%H-}JvThumbnailDatamodule;
JvThumbnails, JvThumbViews, {%H-}JvThumbnailDatamodule;
{JvSpecialProgress,
JvListBox, JvDriveCtrls, JvCombobox, JvExControls, JvComponent,

29
components/jvcllaz/examples/JvXPBar/MainFrm.lfm
View File

@ -51,6 +51,9 @@ object frmMain: TfrmMain
BorderStyle = bsNone
ClientHeight = 345
ClientWidth = 204
Font.Color = clWindowText
Font.Height = -11
ParentFont = False
TabOrder = 0
object JvXPContainer1: TJvXPContainer
Left = 0
@ -98,12 +101,8 @@ object frmMain: TfrmMain
item
end>
RollImages = ilWhiteButtons
Font.Color = 17877
Font.Height = -13
Font.Name = 'MS Shell Dlg 2'
HeaderFont.Color = clWindowText
HeaderFont.Height = -13
HeaderFont.Name = 'MS Shell Dlg 2'
Font.Color = 8650752
HeaderFont.Color = 8650752
HeaderFont.Style = [fsBold]
HotTrackColor = 4227327
OwnerDraw = False
@ -138,7 +137,6 @@ object frmMain: TfrmMain
ShowItemFrame = False
RoundedItemFrame = 0
Align = alTop
ParentFont = False
object tvSelfView: TTreeView
Left = 4
Height = 0
@ -176,12 +174,8 @@ object frmMain: TfrmMain
ImageList = imlWinXPBar
end>
RollImages = ilRedButtons
Font.Color = 1573351
Font.Height = -13
Font.Name = 'MS Shell Dlg 2'
HeaderFont.Color = 1573351
HeaderFont.Height = -13
HeaderFont.Name = 'MS Shell Dlg 2'
Font.Color = clMaroon
HeaderFont.Color = 8650752
HeaderFont.Style = [fsBold]
HotTrackColor = clMaroon
OwnerDraw = False
@ -291,12 +285,8 @@ object frmMain: TfrmMain
Action = acHowDoI
end>
RollImages = ilWhiteButtons
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Shell Dlg 2'
HeaderFont.Color = clWhite
HeaderFont.Height = -13
HeaderFont.Name = 'MS Shell Dlg 2'
Font.Color = 8650752
HeaderFont.Color = 8650752
HeaderFont.Style = [fsBold]
HotTrackColor = clNone
OwnerDraw = False
@ -331,7 +321,6 @@ object frmMain: TfrmMain
ShowItemFrame = False
RoundedItemFrame = 0
Align = alTop
ParentFont = False
end
object dxWinXPBar2: TJvXPBar
Left = 4

1
components/jvcllaz/examples/JvXPBar/XPBarDemo.lpi
View File

@ -13,7 +13,6 @@
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>

2
components/jvcllaz/packages/jvcmpd.lpk → components/jvcllaz/packages/JvCmpD.lpk
View File

@ -20,7 +20,7 @@
<Version Major="1" Release="4"/>
<Files Count="1">
<Item1>
<Filename Value="..\design\JvCmp\jvcmpreg.pas"/>
<Filename Value="..\design\JvCmp\JvCmpReg.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="JvCmpReg"/>
</Item1>

0
components/jvcllaz/packages/jvcmpr.lpk → components/jvcllaz/packages/JvCmpR.lpk
View File

6
components/jvcllaz/packages/jvcustomlazd.lpk → components/jvcllaz/packages/JvCustomLazD.lpk
View File

@ -21,16 +21,16 @@
<Version Major="1" Release="4"/>
<Files Count="3">
<Item1>
<Filename Value="..\design\JvCustomControls\jvcustomreg.pas"/>
<Filename Value="..\design\JvCustomControls\JvCustomReg.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="JvCustomReg"/>
</Item1>
<Item2>
<Filename Value="..\design\JvCustomControls\jvtimelineeditor.pas"/>
<Filename Value="..\design\JvCustomControls\JvTimeLineEditor.pas"/>
<UnitName Value="JvTimeLineEditor"/>
</Item2>
<Item3>
<Filename Value="..\design\JvCustomControls\jvoutlookbareditors.pas"/>
<Filename Value="..\design\JvCustomControls\JvOutlookBarEditors.pas"/>
<UnitName Value="JvOutlookBarEditors"/>
</Item3>
</Files>

6
components/jvcllaz/packages/jvcustomlazr.lpk → components/jvcllaz/packages/JvCustomLazR.lpk
View File

@ -20,15 +20,15 @@
<Version Major="1" Release="4"/>
<Files Count="9">
<Item1>
<Filename Value="..\run\JvCustomControls\jvtimeline.pas"/>
<Filename Value="..\run\JvCustomControls\JvTimeLine.pas"/>
<UnitName Value="JvTimeLine"/>
</Item1>
<Item2>
<Filename Value="..\run\JvCustomControls\jvtmtimeline.pas"/>
<Filename Value="..\run\JvCustomControls\JvTMTimeLine.pas"/>
<UnitName Value="JvTMTimeLine"/>
</Item2>
<Item3>
<Filename Value="..\run\JvCustomControls\jvoutlookbar.pas"/>
<Filename Value="..\run\JvCustomControls\JvOutlookBar.pas"/>
<UnitName Value="JvOutlookBar"/>
</Item3>
<Item4>

4
components/jvcllaz/packages/jvjanslazd.lpk → components/jvcllaz/packages/JvJansLazD.lpk
View File

@ -20,7 +20,7 @@
<Version Major="1" Release="4"/>
<Files Count="1">
<Item1>
<Filename Value="..\design\JvJans\jvjansreg.pas"/>
<Filename Value="..\design\JvJans\JvJansReg.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="JvJansReg"/>
</Item1>
@ -30,7 +30,7 @@
<PackageName Value="JvCoreLazD"/>
</Item1>
<Item2>
<PackageName Value="jvjanslazr"/>
<PackageName Value="JvJansLazR"/>
</Item2>
<Item3>
<PackageName Value="FCL"/>

8
components/jvcllaz/packages/jvjanslazr.lpk → components/jvcllaz/packages/JvJansLazR.lpk
View File

@ -59,12 +59,12 @@
<UnitName Value="JvMarkupLabel"/>
</Item10>
<Item11>
<Filename Value="..\run\JvJans\jvjanled.pas"/>
<UnitName Value="JvJanLed"/>
<Filename Value="..\run\JvJans\JvJanLED.pas"/>
<UnitName Value="JvJanLED"/>
</Item11>
<Item12>
<Filename Value="..\run\JvJans\jvjantoggle.pas"/>
<UnitName Value="jvjantoggle"/>
<Filename Value="..\run\JvJans\JvJanToggle.pas"/>
<UnitName Value="JvJanToggle"/>
</Item12>
</Files>
<RequiredPkgs Count="2">

14
components/jvcllaz/packages/jvmmlazd.lpk → components/jvcllaz/packages/JvMMLazD.lpk
View File

@ -10,15 +10,23 @@
<PathDelim Value="\"/>
<SearchPaths>
<OtherUnitFiles Value="..\design\JvMM"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
</CompilerOptions>
<Files Count="1">
<Files Count="3">
<Item1>
<Filename Value="..\design\JvMM\jvmmreg.pas"/>
<Filename Value="..\design\JvMM\JvMMReg.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="JvMMReg"/>
</Item1>
<Item2>
<Filename Value="..\design\JvMM\JvId3v2EditorForm.pas"/>
<UnitName Value="JvId3v2EditorForm"/>
</Item2>
<Item3>
<Filename Value="..\design\JvMM\JvId3v2DefineForm.pas"/>
<UnitName Value="JvId3v2DefineForm"/>
</Item3>
</Files>
<RequiredPkgs Count="4">
<Item1>

2
components/jvcllaz/packages/jvmmlazr.lpk → components/jvcllaz/packages/JvMMLazR.lpk
View File

@ -37,7 +37,7 @@
<UnitName Value="JvId3v2Types"/>
</Item5>
<Item6>
<Filename Value="..\run\JvMM\JvID3v2Base.pas"/>
<Filename Value="..\run\JvMM\JvId3v2Base.pas"/>
<UnitName Value="JvID3v2Base"/>
</Item6>
<Item7>

2
components/jvcllaz/packages/JvPageCompsD.lpk
View File

@ -23,7 +23,7 @@
<UnitName Value="JvPageCompsReg"/>
</Item1>
<Item2>
<Filename Value="..\design\JvPageComps\jvnavpaneeditors.pas"/>
<Filename Value="..\design\JvPageComps\JvNavPaneEditors.pas"/>
<UnitName Value="JvNavPaneEditors"/>
</Item2>
<Item3>

0
components/jvcllaz/packages/jvruntimedesignlazd.lpk → components/jvcllaz/packages/JvRuntimeDesignLazD.lpk
View File

8
components/jvcllaz/packages/jvruntimedesignlazr.lpk → components/jvcllaz/packages/JvRuntimeDesignLazR.lpk
View File

@ -17,19 +17,19 @@
<Version Major="1" Release="4"/>
<Files Count="4">
<Item1>
<Filename Value="..\run\JvRuntimeDesign\jvdesignclip.pas"/>
<Filename Value="..\run\JvRuntimeDesign\JvDesignClip.pas"/>
<UnitName Value="JvDesignClip"/>
</Item1>
<Item2>
<Filename Value="..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Filename Value="..\run\JvRuntimeDesign\JvDesignImp.pas"/>
<UnitName Value="JvDesignImp"/>
</Item2>
<Item3>
<Filename Value="..\run\JvRuntimeDesign\jvdesignsurface.pas"/>
<Filename Value="..\run\JvRuntimeDesign\JvDesignSurface.pas"/>
<UnitName Value="JvDesignSurface"/>
</Item3>
<Item4>
<Filename Value="..\run\JvRuntimeDesign\jvdesignutils.pas"/>
<Filename Value="..\run\JvRuntimeDesign\JvDesignUtils.pas"/>
<UnitName Value="JvDesignUtils"/>
</Item4>
</Files>

14
components/jvcllaz/run/JvCmp/JvSpellChecker.pas
View File

@ -79,7 +79,10 @@ uses
const
WordTableSize = 10007; {a prime}
SoundexTableSize = 26 * 7 * 7 * 7; {the exact number of Soundexes}
cDelimiters: TSysCharSet = [#0..#32, '.', ',', '<', '>', '=', '!', '?', ':', ';', '"', '''', '(', ')', '[', ']', '{', '}', '+', '|'];
cDelimiters: TSysCharSet = [
#0..#32, '.', ',', '<', '>', '=', '!', '?', ':', ';', '"', '''',
'(', ')', '[', ']', '{', '}', '+', '|'
];
type
TSoundex = string[4];
@ -608,14 +611,5 @@ begin
SpellChecker.UserDictionary := Value;
end;
{$IFDEF UNITVERSIONING}
initialization
RegisterUnitVersion(HInstance, UnitVersioning);
{$ENDIF UNITVERSIONING}
{$IFDEF UNITVERSIONING}
finalization
UnregisterUnitVersion(HInstance);
{$ENDIF UNITVERSIONING}
end.

7
components/jvcllaz/run/JvCmp/JvSpellerForm.pas
View File

@ -407,12 +407,5 @@ begin
Result := (FWordEnd <= L);
end;
{$IFDEF UNITVERSIONING}
initialization
RegisterUnitVersion(HInstance, UnitVersioning);
finalization
UnregisterUnitVersion(HInstance);
{$ENDIF UNITVERSIONING}
end.

9
components/jvcllaz/run/JvCore/JvJCLUtils.pas
View File

@ -972,7 +972,8 @@ procedure SwitchToWindow(Wnd: THandle; Restore: Boolean);
procedure ActivateWindow(Wnd: THandle);
procedure ShowWinNoAnimate(Handle: THandle; CmdShow: Integer);
******************** NOT CONVERTED *)
procedure KillMessage(Wnd: THandle; Msg: Cardinal);
//procedure KillMessage(Wnd: THandle; Msg: Cardinal);
(******************** NOT CONVERTED
{ SetWindowTop put window to top without recreating window }
@ -8970,7 +8971,7 @@ begin
SWP_NOSIZE or SWP_NOZORDER);
end;
******************** NOT CONVERTED *)
(*
{ Delete the requested message from the queue, but throw back }
{ any WM_QUIT msgs that PeekMessage may also return. }
{ Copied from DbGrid.pas }
@ -8978,14 +8979,14 @@ procedure KillMessage(Wnd: THandle; Msg: Cardinal);
var
M: TMsg;
begin
M.Message := 0;
//M.Message := 0;
{ wp ---- PostQuitMessage does not exist in Lazarus
if PeekMessage(M, Wnd, Msg, Msg, PM_REMOVE) and (M.Message = LM_QUIT) then
PostQuitMessage(M.WParam);
}
end;
*)
(******************** NOT CONVERTED
procedure SetWindowTop(const Handle: THandle; const Top: Boolean);
const

4
components/jvcllaz/run/JvCustomControls/JvBaseThumbnail.pas
View File

@ -632,7 +632,9 @@ end;
procedure TJvFileName.SetName(NewName: string);
begin
FFileName := NewName;
{$IFDEF WINDOWS}
if (NewName <> LongName) and (NewName <> ShortName) then
{$ENDIF}
Init;
end;
@ -646,6 +648,7 @@ begin
begin
FindClose(sr);
{$IFDEF WINDOWS}
FLongName := sr.FindData.cFileName;
FShortName := sr.FindData.cAlternateFileName;
if FLongName = '' then
@ -671,6 +674,7 @@ begin
**************)
FFileSize := (sr.FindData.nFileSizeHigh * MAXDWORD) + sr.FindData.nFileSizeLow;
//FFileName:=NewName;
{$ENDIF}
end;
end;

4
components/jvcllaz/run/JvCustomControls/jvoutlookbar.pas → components/jvcllaz/run/JvCustomControls/JvOutlookBar.pas
View File

@ -324,9 +324,11 @@ type
procedure SetThemed(const Value: Boolean);
procedure SetWordWrap(const Value: Boolean);
protected
(*
{$IF LCL_FullVersion >= 1090000}
function DoEraseBackground(ACanvas: TCanvas; Param: LPARAM): Boolean; override;
{$ENDIF}
*)
procedure FontChanged; override;
function GetButtonHeight(PageIndex, ButtonIndex: Integer): Integer;
function GetButtonTopHeight(PageIndex, ButtonIndex: Integer): Integer;
@ -2605,6 +2607,7 @@ begin
Inc(Result, 4);
end;
(*
{$IF LCL_FullVersion >= 1090000}
function TJvCustomOutlookBar.DoEraseBackground(ACanvas: TCanvas; Param: LPARAM): Boolean;
begin
@ -2612,6 +2615,7 @@ begin
Result := True;
end;
{$ENDIF}
*)
procedure TJvCustomOutlookBar.RedrawRect(R: TRect; Erase: Boolean = False);
begin

0
components/jvcllaz/run/JvCustomControls/jvtmtimeline.pas → components/jvcllaz/run/JvCustomControls/JvTMTimeLine.pas
View File

0
components/jvcllaz/run/JvCustomControls/jvtimeline.pas → components/jvcllaz/run/JvCustomControls/JvTimeLine.pas
View File

2
components/jvcllaz/run/JvJans/jvjanled.pas → components/jvcllaz/run/JvJans/JvJanLED.pas
View File

@ -1,4 +1,4 @@
unit JvJanLed;
unit JvJanLED;
{$mode objfpc}{$H+}

0
components/jvcllaz/run/JvJans/jvjantoggle.pas → components/jvcllaz/run/JvJans/JvJanToggle.pas
View File

1
components/jvcllaz/run/JvJans/JvSimScope.pas
View File

@ -198,6 +198,7 @@ type
property Align;
property Anchors;
property BorderSpacing;
property ParentShowHint;
property ShowHint;
property Visible;

1
components/jvcllaz/run/JvJans/JvYearGrid.pas
View File

@ -258,6 +258,7 @@ type
property DefaultColWidth: Integer read GetDefaultColWidth write SetDefaultColWidth default 16;
property DefaultRowHeight default 18; //: Integer read GetDefaultRowHeight write SetDefaultRowHeihgt default 18;
property BorderSpacing;
property BorderStyle;
property Flat read GetFlat write SetFlat default true;
property ScrollBars;

2
components/jvcllaz/run/JvMM/JvID3v2Base.pas → components/jvcllaz/run/JvMM/JvId3v2Base.pas
View File

@ -27,7 +27,7 @@ Known Issues:
-----------------------------------------------------------------------------}
// $Id$
unit JvID3v2Base;
unit JvId3v2Base;
{$mode objfpc}{$H+}

0
components/jvcllaz/run/JvRuntimeDesign/jvdesignclip.pas → components/jvcllaz/run/JvRuntimeDesign/JvDesignClip.pas
View File

0
components/jvcllaz/run/JvRuntimeDesign/jvdesignimp.pas → components/jvcllaz/run/JvRuntimeDesign/JvDesignImp.pas
View File

0
components/jvcllaz/run/JvRuntimeDesign/jvdesignsurface.pas → components/jvcllaz/run/JvRuntimeDesign/JvDesignSurface.pas
View File

0
components/jvcllaz/run/JvRuntimeDesign/jvdesignutils.pas → components/jvcllaz/run/JvRuntimeDesign/JvDesignUtils.pas
View File