paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 21:40:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ unicode fixes in TMenuBox.Draw

Browse Source 
git-svn-id: branches/unicodekvm@48775 -
This commit is contained in:
nickysn 2021-02-21 23:31:28 +00:00
parent 75e42870ae
commit b6d2c6ccb7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1106,7 +1106,7 @@ BEGIN
Byte(Color), 1) else Byte(Color), 1) else
If (P^.Command <> 0) AND(P^.Param <> Sw_PString_Empty) Then If (P^.Command <> 0) AND(P^.Param <> Sw_PString_Empty) Then
Begin Begin
MoveCStr(B[Size.X - 3 - Length(P^.Param Sw_PString_Deref)], P^.Param Sw_PString_Deref, Color); { Add param chars } MoveCStr(B[Size.X - 3 - CTextWidth(P^.Param Sw_PString_Deref)], P^.Param Sw_PString_Deref, Color); { Add param chars }
S := S + ' - ' + P^.Param Sw_PString_Deref; { Add to string } S := S + ' - ' + P^.Param Sw_PString_Deref; { Add to string }
End; End;
If (OldItem = Nil) OR (OldItem = P) OR If (OldItem = Nil) OR (OldItem = P) OR