From c271a7106018c7acc056a2ef6bc01b0836923f1a Mon Sep 17 00:00:00 2001 From: nickysn Date: Sun, 21 Feb 2021 06:38:06 +0000 Subject: [PATCH] - removed ifdefs from TStatusLine.HandleEvent git-svn-id: branches/unicodekvm@48740 - --- packages/fv/src/menus.inc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/fv/src/menus.inc b/packages/fv/src/menus.inc index efe180b48d..c150d2d8d3 100644 --- a/packages/fv/src/menus.inc +++ b/packages/fv/src/menus.inc @@ -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 }