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

Removed some fpc 1.9.4 workarounds

Browse Source 
git-svn-id: trunk@6559 -
This commit is contained in:
vincents 2005-01-12 21:03:48 +00:00
parent 76cf624f43
commit a66dd7eb21
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/jitforms.pp
View File

@ -1204,12 +1204,9 @@ procedure TJITComponentList.ReaderPropertyNotFound(Reader: TReader;
Instance: TPersistent; var PropName: string; IsPath: Boolean;
var Handled, Skip: Boolean);
begin
// FCL in VER1_9_4 and below creates this event for DefineProperties too
{$IFNDEF VER1_9_4}
DebugLn('TJITComponentList.ReaderPropertyNotFound ',Instance.ClassName,'.',PropName);
if Assigned(OnPropertyNotFound) then
OnPropertyNotFound(Self,Reader,Instance,PropName,IsPath,Handled,Skip);
{$ENDIF}
end;
procedure TJITComponentList.ReaderSetMethodProperty(Reader: TReader;

2
ide/customformeditor.pp
View File

@ -39,7 +39,7 @@ uses
MemCheck,
{$ENDIF}
// LCL+FCL
{$IFNDEF Ver1_0}{$IFNDEF VER1_9_4}Variants,{$ENDIF}{$ENDIF}
{$IFNDEF Ver1_0}Variants,{$ENDIF}
Classes, SysUtils, TypInfo, Math, LCLProc, Graphics, Controls, Forms, Menus,
Dialogs,
// components

5
ide/main.pp
View File

@ -6483,7 +6483,7 @@ procedure TMainIDE.DoRestart;
exit;
end;
StartLazProcess.CommandLine := format('%s --lazarus-pid=%d',
[ExeName, {$IFDEF VER1_9_4}ProcessID{$ELSE}GetProcessID{$ENDIF}]);
[ExeName, GetProcessID]);
StartLazProcess.Execute;
finally
StartLazProcess.Free;
@ -11376,6 +11376,9 @@ end.
{ =============================================================================
$Log$
Revision 1.828 2005/01/12 21:03:48 vincents
Removed some fpc 1.9.4 workarounds
Revision 1.827 2005/01/11 19:01:51 mattias
fixed adding main file in gtk filediaog twice