jvcllaz: Fix JvId3v2 demo for Linux (Replace PageControl by NoteBook because Pagecontrol tabs with TabVisible=false are not shown at all in Linux).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6325 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/examples/JvID3v2/JvId3v2Demo.lpi

@@ -13,7 +13,6 @@
       <XPManifest>
         <DpiAware Value="True"/>
       </XPManifest>
-      <Icon Value="0"/>
     </General>
     <BuildModes Count="1">
       <Item1 Name="Default" Default="True"/>
@@ -41,18 +40,16 @@
       <Unit1>
         <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"/>
         <IsPartOfProject Value="True"/>
-        <ComponentName Value="JvId3v2MainForm"/>
+        <ComponentName Value="JvID3v2MainForm"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
-        <UnitName Value="JvId3v2MainFormU"/>
       </Unit2>
     </Units>
   </ProjectOptions>

components/jvcllaz/examples/JvID3v2/JvId3v2EditFormU.pas

@@ -37,13 +37,17 @@ uses
   JvID3v2Base, JvId3v2; //, JvComponent, ImgList, ToolWin; //, JvComponentBase;
 
 type
+
+  { TJvID3v2EditForm }
+
   TJvID3v2EditForm = class(TForm)
-    PageControl1: TPageControl;
+    Notebook1: TNotebook;
+    PgWinAmpTags: TPage;
+    PgLyrics: TPage;
+    PgPicture: TPage;
+    PgAllFrames: TPage;
     lsbNavigator: TListBox;
     ToolBar1: TToolBar;
-    tshWinampTags: TTabSheet;
-    tshLyrics: TTabSheet;
-    tshPictures: TTabSheet;
     lblTitle: TLabel;
     lblArtist: TLabel;
     lblAlbum: TLabel;
@@ -91,7 +95,6 @@ type
     lblPictureType: TLabel;
     edtPictureName: TEdit;
     cmbPictureType: TComboBox;
-    tshAllFrames: TTabSheet;
     lsvAllFrames: TListView;
     btnChange: TButton;
     actChangePicture: TAction;
@@ -108,6 +111,7 @@ type
     procedure actAddPictureExecute(Sender: TObject);
     procedure actDeletePictureExecute(Sender: TObject);
     procedure actSavePictureExecute(Sender: TObject);
+    procedure FormShow(Sender: TObject);
     procedure lsvPicturesClick(Sender: TObject);
     procedure lsbNavigatorClick(Sender: TObject);
     procedure actChangePictureExecute(Sender: TObject);
@@ -354,15 +358,11 @@ end;
 procedure TJvID3v2EditForm.Init;
 begin
   Caption := Format('Edit ''%s''', [ExtractFileName(JvID3v21.FileName)]);
-
   JvID3v21.Open;
-
   TagToCtrls;
-
   imgPicture.Picture.Assign(nil);
-
   lsbNavigator.ItemIndex := 0;
-  PageControl1.ActivePage := tshWinampTags;
+  Notebook1.PageIndex := lsbNavigator.ItemIndex;
 end;
 
 function ChangeYear(const ADateTime: TDateTime; const NewYear: Word): TDateTime;
@@ -553,6 +553,15 @@ begin
     end;
 end;
 
+procedure TJvID3v2EditForm.FormShow(Sender: TObject);
+var
+  P: TPoint;
+begin
+  P := Point(0, EdtEncodedBy.Top + EdtEncodedby.Height + EdtEncodedBy.BorderSpacing.Bottom);
+  P := ScreenToClient(EdtEncodedBy.Parent.ClientToScreen(P));
+  Height := P.Y;
+end;
+
 procedure TJvID3v2EditForm.lsvPicturesClick(Sender: TObject);
 var
   Frame: TJvID3PictureFrame;
@@ -574,12 +583,7 @@ end;
 
 procedure TJvID3v2EditForm.lsbNavigatorClick(Sender: TObject);
 begin
-  case lsbNavigator.ItemIndex of
+  Notebook1.PageIndex := lsbNavigator.ItemIndex;
-    0: PageControl1.ActivePage := tshWinampTags;
-    1: PageControl1.ActivePage := tshLyrics;
-    2: PageControl1.ActivePage := tshPictures;
-    3: PageControl1.ActivePage := tshAllFrames;
-  end;
 end;
 
 procedure TJvID3v2EditForm.FillPictureTypes(Strings: TStrings);

components/jvcllaz/examples/JvID3v2/JvId3v2MainFormU.lfm

@@ -49,6 +49,7 @@ object JvID3v2MainForm: TJvID3v2MainForm
       end>
     ReadOnly = True
     RowSelect = True
+    SortType = stText
     TabOrder = 0
     ViewStyle = vsReport
     OnDblClick = ListView1DblClick
@@ -68,7 +69,7 @@ object JvID3v2MainForm: TJvID3v2MainForm
       Top = 1
       Width = 183
       Align = alClient
-      FileSortType = fstNone
+      FileSortType = fstAlphabet
       Images = ImageList1
       ReadOnly = True
       TabOrder = 0