You've already forked lazarus-ccr
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:
@ -32,7 +32,7 @@ interface
|
||||
uses
|
||||
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
|
||||
//DesignEditors, DesignIntf, DesignMenus, DesignWindows,
|
||||
JvId3v2Base, JvId3v2Types, JvComponent;
|
||||
JvId3v2Base, JvId3v2Types;
|
||||
|
||||
type
|
||||
|
||||
|
@ -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;
|
||||
|
Reference in New Issue
Block a user