paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 12:30:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Amiga-likes: set the window/screen title with IDE version information

Browse Source 
git-svn-id: trunk@29336 -
This commit is contained in:
Károly Balogh 2014-12-26 23:30:54 +00:00
parent 0f10a71fa0
commit 4d9881c2b4
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/fp.pas
View File

@ -328,7 +328,15 @@ procedure InitCompilerSwitches;
default_settings.localswitches:=[cs_typed_const_writable]; default_settings.localswitches:=[cs_typed_const_writable];
end; end;
{$IFDEF HASAMIGA}
procedure SetAmigaWindowTitle;
begin
{ window title first, then screen title, shown when the window is active }
Video.SetWindowTitle(
'Free Pascal IDE',
'Free Pascal IDE '+VersionStr+' ['+{$i %date%}+'] - Compiler '+Full_Version_String);
end;
{$ENDIF}
{The square bullet needs an MS-DOS code page. On Unix it is for sure the code {The square bullet needs an MS-DOS code page. On Unix it is for sure the code
page is not available before video is initialized. (And only in certain page is not available before video is initialized. (And only in certain
circumstances after that, so, use a plain ascii character as bullet on Unix.)} circumstances after that, so, use a plain ascii character as bullet on Unix.)}
@ -424,6 +432,10 @@ BEGIN
from command line PM } from command line PM }
ParseUserScreen; ParseUserScreen;
{$IFDEF HASAMIGA}
SetAmigaWindowTitle;
{$ENDIF}
{ Update IDE } { Update IDE }
IDEApp.Update; IDEApp.Update;
IDEApp.UpdateMode; IDEApp.UpdateMode;