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

win32: preserver image index information on moving tab of tabcontrol

Browse Source 
git-svn-id: trunk@37700 -
This commit is contained in:
paul 2012-06-20 07:05:04 +00:00
parent 30520f2b0f
commit 6a416d091f
1 changed files with 35 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
lcl/interfaces/win32/win32pagecontrol.inc
View File

@ -361,9 +361,42 @@ end;
class procedure TWin32WSCustomTabControl.MovePage(const ATabControl: TCustomTabControl; class procedure TWin32WSCustomTabControl.MovePage(const ATabControl: TCustomTabControl;
const AChild: TCustomPage; const NewIndex: integer); const AChild: TCustomPage; const NewIndex: integer);
var
Index: Integer;
TCI: TC_ITEM;
begin begin
RemovePage(ATabControl, AChild.PageIndex); if not ATabControl.ShowTabs then
AddPage(ATabControl,AChild,NewIndex); Exit;
Index := AChild.PageIndex;
TCI.Mask := TCIF_IMAGE or TCIF_PARAM;
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS then
Windows.SendMessage(ATabControl.Handle, TCM_GETITEMW, Windows.WPARAM(Index), LParam(@TCI))
else
Windows.SendMessage(ATabControl.Handle, TCM_GETITEM, Windows.WPARAM(Index), LParam(@TCI));
{$else}
Windows.SendMessage(ATabControl.Handle, TCM_GETITEM, Windows.WPARAM(Index), LParam(@TCI));
{$endif}
Windows.SendMessage(ATabControl.Handle, TCM_DELETEITEM, Windows.WPARAM(Index), 0);
TCI.Mask := TCI.Mask or TCIF_TEXT;
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS then
begin
TCI.pszText := PChar(PWideChar(UTF8ToUTF16(AChild.Caption)));
Windows.SendMessage(ATabControl.Handle, TCM_INSERTITEMW, NewIndex, LPARAM(@TCI));
end
else
begin
TCI.pszText := PChar(Utf8ToAnsi(AChild.Caption));
Windows.SendMessage(ATabControl.Handle, TCM_INSERTITEM, NewIndex, LPARAM(@TCI));
end;
{$else}
TCI.pszText := PChar(AChild.Caption);
Windows.SendMessage(ATabControl.Handle, TCM_INSERTITEM, NewIndex, LPARAM(@TCI));
{$endif}
if LCLControlSizeNeedsUpdate(ATabControl, True) then
AdjustSizeTabControlPages(ATabControl);
end; end;
class procedure TWin32WSCustomTabControl.RemovePage(const ATabControl: TCustomTabControl; class procedure TWin32WSCustomTabControl.RemovePage(const ATabControl: TCustomTabControl;