paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* unicode fix in TDialog.ChangeTitle

Browse Source 
git-svn-id: branches/unicodekvm@48614 -
This commit is contained in:
nickysn 2021-02-10 16:11:55 +00:00
parent 25cf57b085
commit d5ef64fb91
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1205,9 +1205,13 @@ end;
{****************************************************************************}
procedure TDialog.ChangeTitle (ANewTitle : TTitleStr);
begin
{$ifdef FV_UNICODE}
Title := ANewTitle;
{$else FV_UNICODE}
if (Title <> nil) then
DisposeStr(Title);
Title := NewStr(ANewTitle);
{$endif FV_UNICODE}
Frame^.DrawView;
end;