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

IDEIntf: fixed typo

Browse Source 
git-svn-id: trunk@36965 -
This commit is contained in:
mattias 2012-04-21 20:57:35 +00:00
parent f9d8e01a08
commit e4ee4cd803
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ideintf/objectinspector.pp
View File

@ -396,8 +396,7 @@ type
procedure SetIdleEvent(Enable: boolean);
procedure WMVScroll(var Msg: TLMScroll); message LM_VSCROLL;
procedure WMMouseWheel(var Message: TLMMouseEvent); message
LM_MOUSEWHEEL;
procedure WMMouseWheel(var Message: TLMMouseEvent); message LM_MOUSEWHEEL;
procedure SetBackgroundColor(const AValue: TColor);
procedure SetReferences(const AValue: TColor);
procedure SetSubPropertiesColor(const AValue: TColor);
@ -443,7 +442,7 @@ type
function TopMax: integer;
procedure BuildPropertyList(OnlyIfNeeded: boolean = false);
procedure Clear;
procedure Paint; override;
procedure Paint; override;
procedure PropEditLookupRootChange;
procedure RefreshPropertyValues;
procedure ScrollToActiveItem;
@ -1083,7 +1082,7 @@ begin
then TopY := TopY -
(Message.WheelDelta * (ClientHeight - DefaultItemHeight)) div 120
// scrolling one line -> scroll half an item, see SB_LINEDOWN and SB_LINEUP
// handler in WMVScrol
// handler in WMVScroll
else TopY := TopY -
(Message.WheelDelta * Mouse.WheelScrollLines*DefaultItemHeight) div 240;
Message.Result := 1;