paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 07:09:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Improve examples/DragImageList. Issue #20164, patch from Flávio Etrusco

Browse Source 
git-svn-id: trunk@32356 -
This commit is contained in:
juha 2011-09-15 17:22:30 +00:00
parent ae9dead608
commit 5cae5f037f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/dragimagelist/unit1.pas
View File

@ -95,7 +95,7 @@ begin
FDragImages.Width := Bitmap.Width; FDragImages.Width := Bitmap.Width;
FDragImages.Height := Bitmap.Height; FDragImages.Height := Bitmap.Height;
FDragImages.Add(Bitmap, nil); FDragImages.Add(Bitmap, nil);
FDragImages.DragHotspot := Point(Bitmap.Width, Bitmap.Height); FDragImages.DragHotspot := Point(Bitmap.Width div 2, Bitmap.Height div 2);
Bitmap.Free; Bitmap.Free;
end; end;