Browse Source

+ unicode fix

git-svn-id: branches/unicodekvm@48636 -
nickysn 4 years ago
parent
commit
5d3d64b340
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fv/src/dialogs.inc

+ 1 - 1
packages/fv/src/dialogs.inc

@@ -2695,7 +2695,7 @@ PROCEDURE TMultiCheckBoxes.Draw;
 CONST Button = ' [ ] ';
 BEGIN
    Inherited Draw;
-   DrawMultiBox(Button, States^);                     { Draw the items }
+   DrawMultiBox(Button, States Sw_PString_DeRef);          { Draw the items }
 END;
 
 {--TMultiCheckBoxes---------------------------------------------------------}