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

jvcllaz: Check packages and demos for Laz 1.8.4 / 2.0.0 / 2.0.2 / trunk and FPC 3.0.4 / FPC 3.2 / trunk. 32-bit, Laz 2.0.2/FPC 3.2 64 bit. Make fixes needed.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6971 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-29 23:35:34 +00:00
parent 35b4753bbc
commit a67a3f9d55
89 changed files with 441 additions and 327 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/jvcllaz/design/JvMM/jvid3v2defineform.pas
View File

@ -102,7 +102,7 @@ begin
Strings.AddObject(
Format('%s - %s',
[ID3_FrameIDToString(lFrameID), TFSDesigner(FSDesigner).FrameDescription[lFrameID]]),
TObject(lFrameID));
TObject(PtrInt(lFrameID)));
finally
Strings.EndUpdate;
end;
@ -128,7 +128,7 @@ function TJvID3DefineDlg.GetFrameID: TJvID3FrameID;
begin
with cmbFrames do
if ItemIndex >= 0 then
Result := TJvID3FrameID(Items.Objects[ItemIndex])
Result := TJvID3FrameID(PtrInt(Items.Objects[ItemIndex]))
else
Result := fiUnknownFrame;
end;