paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 05:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

Remove some redundant code

Browse Source
This commit is contained in:
Margers 2025-01-09 21:45:39 +00:00 committed by Michael Van Canneyt
parent c464f4d58e
commit 550fd24d29
1 changed files with 1 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
packages/ide/wviews.pas
View File

@ -1245,10 +1245,6 @@ begin
Message(Owner,evBroadcast,cmDefault,nil); Message(Owner,evBroadcast,cmDefault,nil);
end; end;
end; end;
if assigned(VScrollBar) then
VScrollBar^.HandleEvent(Event);
if assigned(HScrollBar) then
HScrollBar^.HandleEvent(Event);
inherited HandleEvent(Event); inherited HandleEvent(Event);
end; end;
@ -1526,13 +1522,6 @@ end;
procedure TLocalMenuListBox.HandleEvent(var Event: TEvent); procedure TLocalMenuListBox.HandleEvent(var Event: TEvent);
var DontClear: boolean; var DontClear: boolean;
P: TPoint; P: TPoint;
PROCEDURE MoveFocus (Req: Sw_Integer);
BEGIN
FocusItemNum(Req); { Focus req item }
DrawView; { Redraw focus box }
END;
begin begin
case Event.What of case Event.What of
evMouseDown : evMouseDown :
@ -1543,17 +1532,7 @@ begin
MakeLocal(Event.Where,P); Inc(P.X); Inc(P.Y); MakeLocal(Event.Where,P); Inc(P.X); Inc(P.Y);
LocalMenu(P); LocalMenu(P);
ClearEvent(Event); ClearEvent(Event);
end else end;
if (Event.Buttons=mbScrollUp) then { mouse scroll up}
begin
if Event.Double then MoveFocus(Focused+6) else MoveFocus(Focused+1);
ClearEvent(Event);
end else
if (Event.Buttons=mbScrollDown) then { mouse scroll down }
begin
if Event.Double then MoveFocus(Focused-6) else MoveFocus(Focused-1);
ClearEvent(Event);
end;
end; end;
evKeyDown : evKeyDown :
begin begin