paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 03:51:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed ifdefs from TStatusLine.HandleEvent

Browse Source 
git-svn-id: branches/unicodekvm@48740 -
This commit is contained in:
nickysn 2021-02-21 06:38:06 +00:00
parent 0d171d91ae
commit c271a71060
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fv/src/menus.inc
View File

@ -1461,9 +1461,9 @@ VAR Mouse: TPoint; T, Tt: PStatusItem;
X := 0; { Zero x position }
T := Items; { Start at first item }
While (T <> Nil) Do Begin { While item valid }
If (T^.Text <> {$ifdef FV_UNICODE}''{$else}Nil{$endif}) Then Begin { Check valid text }
If (T^.Text <> Sw_PString_Empty) Then Begin { Check valid text }
Xi := X; { Hold initial x value }
X := Xi + CTextWidth(' ' + T^.Text{$ifndef FV_UNICODE}^{$endif} + ' '); { Add text width }
X := Xi + CTextWidth(' ' + T^.Text Sw_PString_Deref + ' '); { Add text width }
If (Mouse.X >= Xi) AND (Mouse.X < X)
Then Begin
ItemMouseIsIn := T; { Selected item }