paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 15:29:11 +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); procedure TDialog.ChangeTitle (ANewTitle : TTitleStr);
begin begin
{$ifdef FV_UNICODE}
Title := ANewTitle;
{$else FV_UNICODE}
if (Title <> nil) then if (Title <> nil) then
DisposeStr(Title); DisposeStr(Title);
Title := NewStr(ANewTitle); Title := NewStr(ANewTitle);
{$endif FV_UNICODE}
Frame^.DrawView; Frame^.DrawView;
end; end;