paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 11:20:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

AJ: Started Form Scrolling

Browse Source 
Started StaticText FocusControl
    Fixed Misc Dialog Problems
    Added TApplication.Title

git-svn-id: trunk@1231 -
This commit is contained in:
lazarus 2002-02-09 01:48:08 +00:00
parent caec2bc4ad
commit f606c68078
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/include/application.inc
View File

@ -297,11 +297,17 @@ end;
Returns: title of application
------------------------------------------------------------------------------}
function TApplication.GetTitle: string;
var
ext : string;
begin
if FMainForm<>nil then
Result:=FMainForm.Caption
If FTitle = '' then begin
Result := ExtractFileName(GetExeName);
Ext := ExtractFileExt(Result);
If Ext <> '' then
Delete(Result, Length(Result) - Length(Ext) - 1, Length(Ext) + 1);
end
else
Result:='';
Result := FTitle;
end;
{------------------------------------------------------------------------------
@ -411,6 +417,12 @@ end;
{ =============================================================================
$Log$
Revision 1.26 2002/10/23 20:47:26 lazarus
AJ: Started Form Scrolling
Started StaticText FocusControl
Fixed Misc Dialog Problems
Added TApplication.Title
Revision 1.25 2002/08/31 11:37:09 lazarus
MG: fixed destroying combobox