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

tests: fixed compilation and 64bit, bug #25967

Browse Source 
git-svn-id: trunk@44597 -
This commit is contained in:
mattias 2014-04-03 21:29:00 +00:00
parent e9f865d7b8
commit 46d6c25c33
12 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/education/educomppalette.pas
View File

@ -21,7 +21,7 @@ uses
Classes, SysUtils, LCLProc, FileUtil, LResources, Forms, Controls, Graphics,
Dialogs, ComCtrls, ExtCtrls, StdCtrls, AvgLvlTree,
FormEditingIntf, LazConfigStorage, IDEOptionsIntf, ComponentReg,
IDEImagesIntf, LazIDEIntf,
IDEImagesIntf, LazIDEIntf, LCLType,
EduOptions;
type

2
examples/xmlresource/xmlresourcefile.pas
View File

@ -5,7 +5,7 @@ unit xmlresourcefile;
interface
uses
Classes, SysUtils,
Classes, Controls, SysUtils,
LCLMemManager, forms,
dom, XMLRead,XMLWrite,
ProjectIntf,

4
lcl/tests/test1_1simpleform1.lpr
View File

@ -38,7 +38,7 @@ type
procedure Form1Deactivate(Sender: TObject);
procedure Form1Enter(Sender: TObject);
procedure Form1Exit(Sender: TObject);
function Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
procedure Form1Hide(Sender: TObject);
procedure Form1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -114,7 +114,7 @@ begin
debugln('TForm1.Form1Exit ',DbgSName(Sender));
end;
function TForm1.Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function TForm1.Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
begin
debugln('TForm1.Form1Help Command=',dbgs(Command),' Data=',HexStr(Cardinal(Data),8),' CallHelp=',dbgs(CallHelp));

4
lcl/tests/test1_2button.lpr
View File

@ -56,7 +56,7 @@ type
procedure Form1Deactivate(Sender: TObject);
procedure Form1Enter(Sender: TObject);
procedure Form1Exit(Sender: TObject);
function Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
procedure Form1Hide(Sender: TObject);
procedure Form1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -228,7 +228,7 @@ begin
debugln('TForm1.Form1Exit ',DbgSName(Sender));
end;
function TForm1.Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function TForm1.Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
begin
debugln('TForm1.Form1Help Command=',dbgs(Command),' Data=',HexStr(Cardinal(Data),8),' CallHelp=',dbgs(CallHelp));

4
lcl/tests/test1_3label.lpr
View File

@ -54,7 +54,7 @@ type
procedure Form1Deactivate(Sender: TObject);
procedure Form1Enter(Sender: TObject);
procedure Form1Exit(Sender: TObject);
function Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
procedure Form1Hide(Sender: TObject);
procedure Form1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -218,7 +218,7 @@ begin
debugln('TForm1.Form1Exit ',DbgSName(Sender));
end;
function TForm1.Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function TForm1.Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
begin
debugln('TForm1.Form1Help Command=',dbgs(Command),' Data=',HexStr(Cardinal(Data),8),' CallHelp=',dbgs(CallHelp));

4
lcl/tests/test1_4edit.lpr
View File

@ -57,7 +57,7 @@ type
procedure Form1Deactivate(Sender: TObject);
procedure Form1Enter(Sender: TObject);
procedure Form1Exit(Sender: TObject);
function Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
procedure Form1Hide(Sender: TObject);
procedure Form1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -235,7 +235,7 @@ begin
debugln('TForm1.Form1Exit ',DbgSName(Sender));
end;
function TForm1.Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function TForm1.Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
begin
debugln('TForm1.Form1Help Command=',dbgs(Command),' Data=',HexStr(Cardinal(Data),8),' CallHelp=',dbgs(CallHelp));

4
lcl/tests/test1_5checkbox.lpr
View File

@ -63,7 +63,7 @@ type
procedure Form1Deactivate(Sender: TObject);
procedure Form1Enter(Sender: TObject);
procedure Form1Exit(Sender: TObject);
function Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
procedure Form1Hide(Sender: TObject);
procedure Form1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -291,7 +291,7 @@ begin
debugln('TForm1.Form1Exit ',DbgSName(Sender));
end;
function TForm1.Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function TForm1.Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
begin
debugln('TForm1.Form1Help Command=',dbgs(Command),' Data=',HexStr(Cardinal(Data),8),' CallHelp=',dbgs(CallHelp));

4
lcl/tests/test1_6checkgroup.lpr
View File

@ -58,7 +58,7 @@ type
procedure Form1Deactivate(Sender: TObject);
procedure Form1Enter(Sender: TObject);
procedure Form1Exit(Sender: TObject);
function Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
procedure Form1Hide(Sender: TObject);
procedure Form1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -225,7 +225,7 @@ begin
debugln('TForm1.Form1Exit ',DbgSName(Sender));
end;
function TForm1.Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function TForm1.Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
begin
debugln('TForm1.Form1Help Command=',dbgs(Command),' Data=',HexStr(Cardinal(Data),8),' CallHelp=',dbgs(CallHelp));

4
lcl/tests/test2_1buttonnavigation.lpr
View File

@ -54,7 +54,7 @@ type
procedure Form1Deactivate(Sender: TObject);
procedure Form1Enter(Sender: TObject);
procedure Form1Exit(Sender: TObject);
function Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
procedure Form1Hide(Sender: TObject);
procedure Form1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -236,7 +236,7 @@ begin
debugln('TForm1.Form1Exit ',DbgSName(Sender));
end;
function TForm1.Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function TForm1.Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
begin
debugln('TForm1.Form1Help Command=',dbgs(Command),' Data=',HexStr(Cardinal(Data),8),' CallHelp=',dbgs(CallHelp));

4
lcl/tests/test2_2labelattributes.lpr
View File

@ -58,7 +58,7 @@ type
procedure Form1Deactivate(Sender: TObject);
procedure Form1Enter(Sender: TObject);
procedure Form1Exit(Sender: TObject);
function Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
procedure Form1Hide(Sender: TObject);
procedure Form1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -253,7 +253,7 @@ begin
debugln('TForm1.Form1Exit ',DbgSName(Sender));
end;
function TForm1.Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
function TForm1.Form1Help(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
begin
debugln('TForm1.Form1Help Command=',dbgs(Command),' Data=',HexStr(Cardinal(Data),8),' CallHelp=',dbgs(CallHelp));

4
lcl/tests/test2_3twosimpleforms1.lpr
View File

@ -38,7 +38,7 @@ type
procedure FormDeactivate(Sender: TObject);
procedure FormEnter(Sender: TObject);
procedure FormExit(Sender: TObject);
function FormHelp(Command: Word; Data: Longint; var CallHelp: Boolean
function FormHelp(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
procedure FormHide(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -118,7 +118,7 @@ begin
debugln('TForm1And2.FormExit ',DbgSName(Sender));
end;
function TForm1And2.FormHelp(Command: Word; Data: Longint; var CallHelp: Boolean
function TForm1And2.FormHelp(Command: Word; Data: PtrInt; var CallHelp: Boolean
): Boolean;
begin
debugln('TForm1And2.FormHelp Command=',dbgs(Command),' Data=',HexStr(Cardinal(Data),8),' CallHelp=',dbgs(CallHelp));

4
test/bugs/12204/bug12204.pas
View File

@ -6,8 +6,8 @@ var
begin
s1 := 's1';
WriteLn('s1 = ', s1, ' : ', SizeOf(s1));
WriteLn('s1 = ', s1, ' : ', SizeOf(s1)+4-SizeOf(pointer));
s2 := 's2';
WriteLn('s2 = ', s2, ' : ', SizeOf(s2));
WriteLn('s2 = ', s2, ' : ', SizeOf(s2)+4-SizeOf(pointer));
end.