paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 16:31:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed fpc 1.0.x compilation

Browse Source 
git-svn-id: trunk@6773 -
This commit is contained in:
vincents 2005-02-08 21:46:23 +00:00
parent 1a1bf02612
commit 8e64bd00ae
9 changed files with 32 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/controlselection.pp
View File

@ -814,7 +814,7 @@ begin
FRubberbandType:=rbtSelection;
FRubberbandCreationColor:=clMaroon;
FRubberbandSelectionColor:=clNavy;
Application.AddOnIdleHandler(@OnIdle);
Application.AddOnIdleHandler(@OnIdle {$IFDEF VER1_0}, true{$ENDIF});
end;
destructor TControlSelection.Destroy;

3
lcl/actnlist.pas
View File

@ -26,7 +26,8 @@ unit ActnList;
interface
uses
Classes, SysUtils, LCLStrConsts, LCLProc, ImgList, LCLClasses, LMessages;
Classes, SysUtils, FPCAdds,
LCLStrConsts, LCLProc, ImgList, LCLClasses, LMessages;
type

7
lcl/buttons.pp
View File

@ -38,8 +38,8 @@ interface
{$endif}
uses
Classes, SysUtils, LCLType, LCLProc, LCLIntf, LCLStrConsts, GraphType,
Graphics, ImgList, ActnList, Controls, StdCtrls, lMessages, Forms,
Classes, SysUtils, FPCAdds, LCLType, LCLProc, LCLIntf, LCLStrConsts,
GraphType, Graphics, ImgList, ActnList, Controls, StdCtrls, lMessages, Forms,
Menus {for ShortCut procedures};
type
@ -387,6 +387,9 @@ end.
{ =============================================================================
$Log$
Revision 1.87 2005/02/08 21:46:22 vincents
fixed fpc 1.0.x compilation
Revision 1.86 2005/01/14 00:27:05 mattias
fixed several dialogs to react on esacpe

9
lcl/controls.pp
View File

@ -40,9 +40,9 @@ interface
{$ENDIF}
uses
Classes, SysUtils, TypInfo, DynHashArray, LCLStrConsts, LCLType, LCLProc,
GraphType, Graphics, LMessages, LCLIntf, InterfaceBase, ImgList, UTrace,
PropertyStorage, Menus, ActnList, LCLClasses;
Classes, SysUtils, TypInfo, FPCAdds, DynHashArray, LCLStrConsts, LCLType,
LCLProc, GraphType, Graphics, LMessages, LCLIntf, InterfaceBase, ImgList,
UTrace, PropertyStorage, Menus, ActnList, LCLClasses;
const
@ -2899,6 +2899,9 @@ end.
{ =============================================================================
$Log$
Revision 1.281 2005/02/08 21:46:22 vincents
fixed fpc 1.0.x compilation
Revision 1.280 2005/02/05 16:09:52 marc
* first 64bit changes

9
lcl/forms.pp
View File

@ -55,7 +55,7 @@ interface
{$ENDIF}
uses
Classes, SysUtils, Math, LCLStrConsts, LCLType, LCLProc, LCLIntf,
Classes, SysUtils, Math, FPCAdds, LCLStrConsts, LCLType, LCLProc, LCLIntf,
InterfaceBase, LResources, GraphType, Graphics, Menus, LMessages, CustomTimer,
ActnList, ClipBrd, CustApp, LCLClasses, Controls;
@ -1241,6 +1241,8 @@ end;
procedure ExceptionOccurred(Sender: TObject; Addr,Frame: Pointer);
{$ELSE}
procedure ExceptionOccurred(Sender: TObject; Addr:Pointer; FrameCount:Longint; Frames: PPointer);
var
FrameNumber: integer;
{$ENDIF}
Begin
DebugLn('[FORMS.PP] ExceptionOccurred ');
@ -1250,6 +1252,11 @@ Begin
DebugLn(' Sender=',Sender.ClassName);
if Sender is Exception then begin
DebugLn(' Exception=',Exception(Sender).Message);
{$IFNDEF ExceptionHasNoFrames}
DebugLn(' Stack trace:');
for FrameNumber := 0 to FrameCount-1 do
DebugLn(BackTraceStrFunc(Frames[FrameNumber]));
{$ENDIF}
end;
end else
DebugLn(' Sender=nil');

1
lcl/fpcadds.pas
View File

@ -37,6 +37,7 @@ type
{$IFDEF VER1_0}
PCardinal = ^Cardinal;
PtrInt = Longint;
PtrUInt = Cardinal;
{$ENDIF}
PHandle = ^THandle;

2
lcl/grids.pas
View File

@ -41,7 +41,7 @@ unit Grids;
interface
uses
Classes, SysUtils, LCLStrConsts, LCLProc, LCLType, LCLIntf, Controls,
Classes, SysUtils, FPCAdds, LCLStrConsts, LCLProc, LCLType, LCLIntf, Controls,
GraphType, Graphics, Forms, DynamicArray, LMessages, XMLCfg, StdCtrls,
LResources, MaskEdit, Buttons;

5
lcl/lcltype.pp
View File

@ -52,7 +52,7 @@ uses
{$ifdef win32}
windows,
{$endif win32}
Classes, SysUtils;
Classes, SysUtils, FPCAdds;
type
{$IFDEF USE_UTF8BIDI_LCL}
@ -2320,6 +2320,9 @@ end.
{
$Log$
Revision 1.76 2005/02/08 21:46:23 vincents
fixed fpc 1.0.x compilation
Revision 1.75 2005/02/05 16:09:52 marc
* first 64bit changes

5
lcl/lmessages.pp
View File

@ -29,7 +29,7 @@ unit LMessages;
interface
uses Classes, SysUtils, LCLType, GraphType
uses Classes, SysUtils, FPCAdds, LCLType, GraphType
{$ifdef win32}
{$ifndef ver1_0}
,messages
@ -807,6 +807,9 @@ end.
{
$Log$
Revision 1.126 2005/02/08 21:46:23 vincents
fixed fpc 1.0.x compilation
Revision 1.125 2005/02/05 16:09:52 marc
* first 64bit changes