paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 10:52:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed splash screen, fixed parser of resource strings

Browse Source 
git-svn-id: trunk@1572 -
This commit is contained in:
lazarus 2002-03-30 07:29:15 +00:00
parent 3cb9d2fdec
commit d41af48238
3 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/pascalparsertool.pas
View File

@ -2270,8 +2270,9 @@ begin
ReadNextAtom;
if not AtomIsStringConstant then
RaiseExceptionFmt(ctsUnexpectedKeyword,[ctsStringConstant,GetAtom]);
ReadConstant(true,false,[]);
// read ;
if not ReadNextAtomIsChar(';') then
if not AtomIsChar(';') then
RaiseExceptionFmt(ctsStrExpectedButAtomFound,[';',GetAtom]);
CurNode.EndPos:=CurPos.EndPos;
EndChildNode;

6
ide/lazarus.pp
View File

@ -20,7 +20,7 @@
***************************************************************************/
}
program lazarus;
program Lazarus;
{$mode objfpc}{$H+}
@ -52,6 +52,7 @@ begin
Show;
Paint;
end;
Application.ProcessMessages; // process splash paint messages
Application.CreateForm(TMainIDE, MainIDE);
{$IFDEF IDE_MEM_CHECK}
@ -71,6 +72,9 @@ end.
{
$Log$
Revision 1.30 2002/03/30 07:29:15 lazarus
MG: fixed splash screen, fixed parser of resource strings
Revision 1.29 2002/03/27 09:18:11 lazarus
MG: splitted main.pp: TMainIDE has now an ancestor TMainIDEBar

4
ide/splash.pp
View File

@ -328,7 +328,6 @@ begin
OnTimer := @HideFormTimer;
Enabled := False;
end;
Paint;
end;
destructor TSplashForm.Destroy;
@ -377,6 +376,9 @@ end.
{ =============================================================================
$Log$
Revision 1.9 2002/03/30 07:29:15 lazarus
MG: fixed splash screen, fixed parser of resource strings
Revision 1.8 2002/03/18 11:44:41 lazarus
MG: TForm.Position will now considered before creating form on 0,0