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
This commit is contained in:
wp_xxyyzz
2019-04-28 20:08:30 +00:00
parent d295accb2e
commit c04df98dba
29 changed files with 477 additions and 391 deletions

View File

@ -32,7 +32,7 @@ interface
uses
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
//DesignEditors, DesignIntf, DesignMenus, DesignWindows,
JvId3v2Base, JvId3v2Types, JvComponent;
JvId3v2Base, JvId3v2Types;
type

View File

@ -373,7 +373,7 @@ end;
procedure TJvID3FramesEditor.NewFrameClick(Sender: TObject);
var
Selection: TStringList;
//Selection: TStringList;
Frame: TJvID3Frame;
begin
Frame := DoNewFrame;
@ -478,8 +478,8 @@ end;
procedure TJvID3FramesEditor.UpdateFrameList;
var
ItemIndex, TopIndex: Integer;
Selection: TStringList;
//ItemIndex, TopIndex: Integer;
//Selection: TStringList;
EnableList: Boolean;
I: Integer;
Frame: TJvID3Frame;