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

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

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6325 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-20 11:21:14 +00:00
parent a78e0acf2f
commit f4b8e9b51c
4 changed files with 640 additions and 651 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/jvcllaz/examples/JvID3v2/JvId3v2Demo.lpi
View File

@ -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>

1245
components/jvcllaz/examples/JvID3v2/JvId3v2EditFormU.lfm
View File

File diff suppressed because it is too large Load Diff

36
components/jvcllaz/examples/JvID3v2/JvId3v2EditFormU.pas
View File

@ -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
0: PageControl1.ActivePage := tshWinampTags;
1: PageControl1.ActivePage := tshLyrics;
2: PageControl1.ActivePage := tshPictures;
3: PageControl1.ActivePage := tshAllFrames;
end;
Notebook1.PageIndex := lsbNavigator.ItemIndex;
end;
procedure TJvID3v2EditForm.FillPictureTypes(Strings: TStrings);

3
components/jvcllaz/examples/JvID3v2/JvId3v2MainFormU.lfm
View File

@ -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