paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 14:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: use TPageControl.GetImageIndex to request ImageIndex for Tab (issue #10008)

Browse Source 
git-svn-id: trunk@12756 -
This commit is contained in:
paul 2007-11-06 09:22:44 +00:00
parent 2bc5188cb4
commit ff1fe14f18
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32wsextctrls.pp
View File

@ -404,7 +404,7 @@ begin
if PtrUInt(TCI.lParam)=PtrUInt(ACustomPage) then
begin
TCI.mask := TCIF_IMAGE;
TCI.iImage:=ACustomPage.ImageIndex;
TCI.iImage := TCustomNotebook(ACustomPage.Parent).GetImageIndex(PageIndex);
Windows.SendMessage(NotebookHandle, TCM_SETITEM, PageIndex, LPARAM(@TCI));
end;
@ -457,7 +457,7 @@ begin
TCI.Mask := TCIF_TEXT or TCIF_PARAM or TCIF_IMAGE;
// store object as extra, so we can verify we got the right page later
TCI.lParam := PtrUInt(AChild);
TCI.iImage := AChild.ImageIndex;
TCI.iImage := ANotebook.GetImageIndex(AIndex);
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS then
begin
@ -521,7 +521,7 @@ begin
begin
TCI.Mask := TCIF_TEXT or TCIF_PARAM or TCIF_IMAGE;
TCI.lParam := PtrUInt(lPage);
TCI.iImage := lPage.ImageIndex;
TCI.iImage := ANotebook.GetImageIndex(RealIndex);
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS then
begin