jvcllaz: Fix JvMM demos for Linux. Less hints and warnings.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6881 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2019-04-28 20:08:30 +00:00
parent d295accb2e
commit c04df98dba
29 changed files with 477 additions and 391 deletions
--- a/components/jvcllaz/examples/JvBmpAnimator/BmpAnimDemo.lpr
+++ b/components/jvcllaz/examples/JvBmpAnimator/BmpAnimDemo.lpr
@ -5,7 +5,7 @@ uses
  Forms,
  BmpAnimMainFormU in 'BmpAnimMainFormU.pas' {BmpAnimMainForm};

-{$R *.RES}
+{$R *.res}

 begin
  Application.Initialize;
--- a/components/jvcllaz/examples/JvFullColorCircleDialog/JvFullColorCircleDialogMainForm.lfm
+++ b/components/jvcllaz/examples/JvFullColorCircleDialog/JvFullColorCircleDialogMainForm.lfm
@ -1,7 +1,7 @@
 object JvFullColorCircleDlgMainFrm: TJvFullColorCircleDlgMainFrm
-  Left = 498
+  Left = 836
  Height = 394
-  Top = 236
+  Top = 214
  Width = 343
  BorderStyle = bsDialog
  Caption = 'JvFullColorCircleDlgMainFrm'
@ -14,34 +14,55 @@ object JvFullColorCircleDlgMainFrm: TJvFullColorCircleDlgMainFrm
  Position = poScreenCenter
  LCLVersion = '2.1.0.0'
  object Bevel: TBevel
-    Left = 16
+    AnchorSideLeft.Control = Memo
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = ComboBoxFileName
+    AnchorSideTop.Side = asrBottom
+    Left = 30
    Height = 108
-    Top = 48
+    Top = 39
    Width = 108
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
    Style = bsRaised
  end
  object Image: TImage
-    Left = 20
+    AnchorSideLeft.Control = Bevel
+    AnchorSideLeft.Side = asrCenter
+    AnchorSideTop.Control = Bevel
+    AnchorSideTop.Side = asrCenter
+    Left = 34
    Height = 100
-    Top = 52
+    Top = 43
    Width = 100
    Center = True
  end
  object LabelImage: TLabel
-    Left = 24
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = ComboBoxFileName
+    AnchorSideTop.Side = asrCenter
+    Left = 8
    Height = 15
-    Top = 16
+    Top = 12
    Width = 39
+    BorderSpacing.Left = 8
    Caption = 'Image :'
    Layout = tlCenter
    ParentColor = False
  end
  object Memo: TMemo
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Bevel
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = Bevel
+    AnchorSideRight.Side = asrBottom
    Left = 8
-    Height = 65
-    Top = 160
-    Width = 129
+    Height = 72
+    Top = 155
+    Width = 152
    Alignment = taCenter
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
    BorderStyle = bsNone
    Lines.Strings = (
      'Original image'
@ -52,10 +73,17 @@ object JvFullColorCircleDlgMainFrm: TJvFullColorCircleDlgMainFrm
    TabOrder = 0
  end
  object ComboBoxFileName: TComboBox
-    Left = 72
+    AnchorSideLeft.Control = LabelImage
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 55
    Height = 23
-    Top = 16
-    Width = 257
+    Top = 8
+    Width = 225
+    BorderSpacing.Left = 8
+    BorderSpacing.Top = 8
+    BorderSpacing.Right = 8
    DropDownCount = 24
    ItemHeight = 15
    OnClick = ComboBoxFileNameSelect
--- a/components/jvcllaz/examples/JvFullColorCircleDialog/JvFullColorCircleDialogMainForm.pas
+++ b/components/jvcllaz/examples/JvFullColorCircleDialog/JvFullColorCircleDialogMainForm.pas
@ -97,7 +97,7 @@ var
  Index: Integer;
  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);
--- a/components/jvcllaz/examples/JvFullColorCircleDialog/JvFullColorCircleDialogPrj.lpi
+++ b/components/jvcllaz/examples/JvFullColorCircleDialog/JvFullColorCircleDialogPrj.lpi
@ -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="JvFullColorCircleDialogPrj"/>
      <Scaled Value="True"/>
      <ResourceType Value="res"/>
--- a/components/jvcllaz/examples/JvFullColorDialog/JvFullColorDialogPrj.lpi
+++ b/components/jvcllaz/examples/JvFullColorDialog/JvFullColorDialogPrj.lpi
@ -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="JvFullColorDialogPrj"/>
      <Scaled Value="True"/>
      <ResourceType Value="res"/>
@ -16,7 +15,6 @@
      <XPManifest>
        <DpiAware Value="True"/>
      </XPManifest>
-      <Icon Value="0"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="Default" Default="True"/>
--- a/components/jvcllaz/examples/JvID3v1/JvID3v1Demo.lpi
+++ b/components/jvcllaz/examples/JvID3v1/JvID3v1Demo.lpi
@ -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="JvID3v1Demo"/>
      <ResourceType Value="res"/>
      <UseXPManifest Value="True"/>
--- a/components/jvcllaz/examples/JvID3v1/JvID3v1MainFormU.lfm
+++ b/components/jvcllaz/examples/JvID3v1/JvID3v1MainFormU.lfm
@ -18,7 +18,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
  OnDropFiles = FormDropFiles
  Position = poScreenCenter
  ShowHint = True
-  LCLVersion = '1.6.4.0'
+  LCLVersion = '2.1.0.0'
  object lblArtist: TLabel
    AnchorSideTop.Control = edtArtist
    AnchorSideTop.Side = asrCenter
@ -26,7 +26,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Side = asrBottom
    Left = 30
    Height = 15
-    Top = 131
+    Top = 141
    Width = 28
    Anchors = [akTop, akRight]
    Caption = '&Artist'
@ -40,7 +40,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Side = asrBottom
    Left = 22
    Height = 15
-    Top = 158
+    Top = 168
    Width = 36
    Anchors = [akTop, akRight]
    Caption = 'Al&bum'
@ -55,7 +55,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Side = asrBottom
    Left = 36
    Height = 15
-    Top = 185
+    Top = 195
    Width = 22
    Anchors = [akTop, akRight]
    Caption = '&Year'
@ -68,7 +68,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideTop.Side = asrCenter
    Left = 4
    Height = 15
-    Top = 212
+    Top = 222
    Width = 54
    BorderSpacing.Left = 4
    Caption = '&Comment'
@ -82,7 +82,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Control = cmbGenre
    Left = 132
    Height = 15
-    Top = 185
+    Top = 195
    Width = 51
    Alignment = taRightJustify
    Anchors = [akTop, akLeft, akRight]
@ -99,7 +99,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Side = asrBottom
    Left = 6
    Height = 15
-    Top = 77
+    Top = 87
    Width = 52
    Anchors = [akTop, akRight]
    Caption = 'lblHasTag'
@ -112,7 +112,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Side = asrBottom
    Left = 35
    Height = 15
-    Top = 104
+    Top = 114
    Width = 23
    Anchors = [akTop, akRight]
    Caption = '&Title'
@ -125,7 +125,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Control = sedTrack
    Left = 221
    Height = 15
-    Top = 77
+    Top = 87
    Width = 38
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 4
@ -141,7 +141,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Side = asrBottom
    Left = 4
    Height = 23
-    Top = 46
+    Top = 56
    Width = 308
    OnAcceptFileName = JvFilenameEdit1AcceptFileName
    FilterIndex = 0
@ -167,7 +167,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Side = asrBottom
    Left = 62
    Height = 23
-    Top = 100
+    Top = 110
    Width = 250
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 4
@ -184,7 +184,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Side = asrBottom
    Left = 62
    Height = 23
-    Top = 154
+    Top = 164
    Width = 250
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 4
@ -201,7 +201,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Side = asrBottom
    Left = 62
    Height = 23
-    Top = 127
+    Top = 137
    Width = 250
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 4
@ -216,7 +216,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideTop.Side = asrBottom
    Left = 62
    Height = 23
-    Top = 181
+    Top = 191
    Width = 58
    BorderSpacing.Left = 4
    BorderSpacing.Top = 4
@ -232,7 +232,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Side = asrBottom
    Left = 62
    Height = 23
-    Top = 208
+    Top = 218
    Width = 250
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 4
@ -248,7 +248,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Side = asrBottom
    Left = 187
    Height = 23
-    Top = 181
+    Top = 191
    Width = 125
    Anchors = [akTop, akRight]
    BorderSpacing.Top = 4
@ -259,12 +259,12 @@ object JvID3v1MainForm: TJvID3v1MainForm
  end
  object ToolBar1: TToolBar
    Left = 0
-    Height = 42
+    Height = 52
    Top = 0
    Width = 316
    AutoSize = True
-    ButtonHeight = 40
-    ButtonWidth = 44
+    ButtonHeight = 50
+    ButtonWidth = 50
    Caption = 'ToolBar1'
    EdgeBorders = [ebBottom]
    Images = ImageList1
@ -282,7 +282,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
      ShowHint = True
    end
    object ToolButton2: TToolButton
-      Left = 48
+      Left = 51
      Hint = 'Save changes of the tag to the file'
      Top = 0
      Action = actSave
@ -290,7 +290,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
      ShowHint = True
    end
    object ToolButton3: TToolButton
-      Left = 92
+      Left = 101
      Hint = 'Erase the tag of the file'
      Top = 0
      Action = actErase
@ -298,7 +298,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
      ShowHint = True
    end
    object ToolButton4: TToolButton
-      Left = 136
+      Left = 151
      Hint = 'Toggle ''Always on Top'''
      Top = 0
      Action = actOnTop
@ -306,7 +306,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
      ShowHint = True
    end
    object ToolButton5: TToolButton
-      Left = 184
+      Left = 201
      Hint = 'Show ''About'' dialog'
      Top = 0
      Action = actAbout
@ -314,7 +314,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
      ShowHint = True
    end
    object ToolButton6: TToolButton
-      Left = 228
+      Left = 251
      Hint = 'Close program'
      Top = 0
      Action = actExit
@ -329,7 +329,7 @@ object JvID3v1MainForm: TJvID3v1MainForm
    AnchorSideRight.Side = asrBottom
    Left = 263
    Height = 23
-    Top = 73
+    Top = 83
    Width = 49
    Alignment = taRightJustify
    Anchors = [akTop, akRight]
@ -381,8 +381,8 @@ object JvID3v1MainForm: TJvID3v1MainForm
  object ImageList1: TImageList
    Height = 20
    Width = 20
-    left = 72
-    top = 32
+    left = 80
+    top = 48
    Bitmap = {
      4C69060000001400000014000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
--- a/components/jvcllaz/examples/JvID3v2/JvId3v2Demo.lpi
+++ b/components/jvcllaz/examples/JvID3v2/JvId3v2Demo.lpi
@ -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="JvId3v2Demo"/>
      <ResourceType Value="res"/>
      <UseXPManifest Value="True"/>
--- a/components/jvcllaz/examples/JvID3v2/JvId3v2EditFormU.lfm
+++ b/components/jvcllaz/examples/JvID3v2/JvId3v2EditFormU.lfm
@ -12,11 +12,11 @@ object JvID3v2EditForm: TJvID3v2EditForm
  OnCreate = FormCreate
  OnShow = FormShow
  Position = poMainFormCenter
-  LCLVersion = '1.6.4.0'
+  LCLVersion = '2.1.0.0'
  object lsbNavigator: TListBox
    Left = 4
-    Height = 483
-    Top = 40
+    Height = 479
+    Top = 44
    Width = 121
    Align = alLeft
    BorderSpacing.Left = 4
@ -33,10 +33,11 @@ object JvID3v2EditForm: TJvID3v2EditForm
  end
  object ToolBar1: TToolBar
    Left = 0
-    Height = 40
+    Height = 44
    Top = 0
    Width = 599
-    ButtonHeight = 36
+    AutoSize = True
+    ButtonHeight = 42
    ButtonWidth = 72
    Caption = 'ToolBar1'
    Images = iml16
@ -70,10 +71,10 @@ object JvID3v2EditForm: TJvID3v2EditForm
  end
  object Notebook1: TNotebook
    Left = 125
-    Height = 487
-    Top = 40
+    Height = 483
+    Top = 44
    Width = 474
-    PageIndex = 1
+    PageIndex = 0
    Align = alClient
    TabOrder = 2
    object PgWinAmpTags: TPage
--- a/components/jvcllaz/examples/JvPicClip/JvPicClipDemo.lpi
+++ b/components/jvcllaz/examples/JvPicClip/JvPicClipDemo.lpi
@ -4,6 +4,9 @@
    <Version Value="12"/>
    <PathDelim Value="\"/>
    <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
      <SessionStorage Value="InProjectDir"/>
      <Title Value="JvPicClipDemo"/>
      <Scaled Value="True"/>
@ -14,8 +17,8 @@
      </XPManifest>
      <Icon Value="0"/>
    </General>
-    <BuildModes>
-      <Item Name="Default" Default="True"/>
+    <BuildModes Count="1">
+      <Item1 Name="Default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
@ -33,18 +36,18 @@
        <PackageName Value="LCL"/>
      </Item2>
    </RequiredPackages>
-    <Units>
-      <Unit>
+    <Units Count="2">
+      <Unit0>
        <Filename Value="JvPicClipDemo.lpr"/>
        <IsPartOfProject Value="True"/>
-      </Unit>
-      <Unit>
+      </Unit0>
+      <Unit1>
        <Filename Value="main.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
-      </Unit>
+      </Unit1>
    </Units>
  </ProjectOptions>
  <CompilerOptions>
--- a/components/jvcllaz/examples/JvPicClip/main.pas
+++ b/components/jvcllaz/examples/JvPicClip/main.pas
@ -87,13 +87,11 @@ end;

 procedure TForm1.CreateCombinedImage(ABitmap: TBitmap;
  out ANumCols, ANumRows: Integer);
-const
-  W = 24;
-  H = 24;
 var
  pic: TPicture;
  c, r, i: Integer;
  L: TStrings;
+  W, H: Integer;
 begin
  L := TStringList.Create;
  try
@ -132,6 +130,16 @@ begin
    L.Add('../design/JvCustomControls/images/tjvvalidateedit.png');    // 32
    ANumCols := 8;
    ANumRows := 4;
+
+    pic := TPicture.Create;
+    try
+      pic.LoadFromFile(L[0]);
+      W := pic.Width;
+      H := pic.Height;
+    finally
+      pic.Free;
+    end;
+
    ABitmap.SetSize(ANumCols * W, ANumRows * H);
    ABitmap.Canvas.Brush.Color := clWhite;
    Abitmap.Canvas.FillRect(0, 0, ABitmap.Width, ABitmap.Height);
--- a/components/jvcllaz/examples/JvSpecialProgress/main.lfm
+++ b/components/jvcllaz/examples/JvSpecialProgress/main.lfm
@ -7,7 +7,7 @@ object MainForm: TMainForm
  ClientHeight = 358
  ClientWidth = 459
  OnCreate = FormCreate
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '2.1.0.0'
  object Bevel1: TBevel
    Left = 20
    Height = 44
@ -15,9 +15,11 @@ object MainForm: TMainForm
    Width = 176
  end
  object JvSpecialProgress1: TJvSpecialProgress
+    AnchorSideTop.Control = Bevel1
+    AnchorSideTop.Side = asrCenter
    Left = 32
    Height = 15
-    Top = 24
+    Top = 27
    Width = 150
    Caption = 'JvSpecialProgress1'
    Position = 50
--- a/components/jvcllaz/examples/JvSpecialProgress/specialprogress_demo.lpi
+++ b/components/jvcllaz/examples/JvSpecialProgress/specialprogress_demo.lpi
@ -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="specialprogress_demo"/>
      <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"/>