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

fixed toolbar

Browse Source 
git-svn-id: trunk@3721 -
This commit is contained in:
mattias 2002-12-22 22:55:45 +00:00
parent e420bedf9c
commit c583badd37
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/toolbar.inc
View File

@ -972,11 +972,12 @@ begin
Inc(Result);
end;
{ Find button on Row closest to ALeft }
for TempIndex := Head to Tail do
if (TempIndex <> OldIndex) then
if FButtons[Result] <> nil then
if (ALeft <= TControl(FButtons[Result]).Left) then
Break;
if Result=FButtons.Count then dec(Result);
if FButtons[Result] <> nil then
for TempIndex := Head to Tail do
if (TempIndex <> OldIndex) then
if (ALeft <= TControl(FButtons[Result]).Left) then
Break;
{ Return old position if new position is last on the row and old position
was already the last on the row. }
if (TempIndex = OldIndex + 1) and (OldIndex in [Head..Tail]) then
@ -1502,6 +1503,9 @@ end;
{ =============================================================================
$Log$
Revision 1.9 2002/12/22 22:55:45 mattias
fixed toolbar
Revision 1.8 2002/11/12 10:16:17 lazarus
MG: fixed TMainMenu creation