mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-03 02:58:14 +02:00
added first lcl intf test
git-svn-id: trunk@6796 -
This commit is contained in:
mattias
parent
dde69e0c91
commit
814301f984
2
.gitattributes
vendored
2
.gitattributes
vendored
@ -1673,6 +1673,8 @@ lcl/stdctrls.pp svneol=native#text/pascal
|
||||
lcl/stringhashlist.pas svneol=native#text/pascal
|
||||
lcl/templates/template.inc svneol=native#text/pascal
|
||||
lcl/templates/template.pp svneol=native#text/pascal
|
||||
lcl/tests/test1_1simpleform1.lpi svneol=native#text/plain
|
||||
lcl/tests/test1_1simpleform1.lpr svneol=native#text/pascal
|
||||
lcl/textstrings.pas svneol=native#text/pascal
|
||||
lcl/toolwin.pp svneol=native#text/pascal
|
||||
lcl/utrace.pp svneol=native#text/pascal
|
||||
|
||||
62
lcl/tests/test1_1simpleform1.lpi
Normal file
62
lcl/tests/test1_1simpleform1.lpi
Normal file
@ -0,0 +1,62 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="/"/>
|
||||
<Version Value="5"/>
|
||||
<General>
|
||||
<Flags>
|
||||
<SaveClosedFiles Value="False"/>
|
||||
<SaveOnlyProjectUnits Value="True"/>
|
||||
</Flags>
|
||||
<MainUnit Value="0"/>
|
||||
<ActiveEditorIndexAtStart Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=""/>
|
||||
<Title Value="test1_1simpleform1"/>
|
||||
</General>
|
||||
<Units Count="1">
|
||||
<Unit0>
|
||||
<CursorPos X="18" Y="26"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<Filename Value="test1_1simpleform1.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<Loaded Value="True"/>
|
||||
<TopLine Value="1"/>
|
||||
<UnitName Value="Test1_1SimpleForm1"/>
|
||||
<UsageCount Value="26"/>
|
||||
</Unit0>
|
||||
</Units>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="1">
|
||||
<Item1>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item1>
|
||||
</RequiredPackages>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="4"/>
|
||||
<CodeGeneration>
|
||||
<Checks>
|
||||
<IOChecks Value="True"/>
|
||||
<RangeChecks Value="True"/>
|
||||
<OverflowChecks Value="True"/>
|
||||
<StackChecks Value="True"/>
|
||||
</Checks>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</CONFIG>
|
||||
273
lcl/tests/test1_1simpleform1.lpr
Normal file
273
lcl/tests/test1_1simpleform1.lpr
Normal file
@ -0,0 +1,273 @@
|
||||
{
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.LCL, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
LCL Test 1_1
|
||||
|
||||
Showing a form at 0,0,320,240
|
||||
}
|
||||
|
||||
program Test1_1SimpleForm1;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
Interfaces, FPCAdds, LCLProc, LCLType, Classes, Controls, Forms, TypInfo,
|
||||
LMessages;
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
procedure Form1Activate(Sender: TObject);
|
||||
procedure Form1ChangeBounds(Sender: TObject);
|
||||
procedure Form1Click(Sender: TObject);
|
||||
procedure Form1Close(Sender: TObject; var CloseAction: TCloseAction);
|
||||
procedure Form1CloseQuery(Sender: TObject; var CanClose: boolean);
|
||||
procedure Form1Create(Sender: TObject);
|
||||
procedure Form1Deactivate(Sender: TObject);
|
||||
procedure Form1Enter(Sender: TObject);
|
||||
procedure Form1Exit(Sender: TObject);
|
||||
function Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
|
||||
): Boolean;
|
||||
procedure Form1Hide(Sender: TObject);
|
||||
procedure Form1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
|
||||
procedure Form1KeyPress(Sender: TObject; var Key: char);
|
||||
procedure Form1MouseDown(Sender: TOBject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure Form1MouseEnter(Sender: TObject);
|
||||
procedure Form1MouseLeave(Sender: TObject);
|
||||
procedure Form1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer
|
||||
);
|
||||
procedure Form1MouseUp(Sender: TOBject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure Form1MouseWheel(Sender: TObject; Shift: TShiftState;
|
||||
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
|
||||
procedure Form1MouseWheelDown(Sender: TObject; Shift: TShiftState;
|
||||
MousePos: TPoint; var Handled: Boolean);
|
||||
procedure Form1MouseWheelUp(Sender: TObject; Shift: TShiftState;
|
||||
MousePos: TPoint; var Handled: Boolean);
|
||||
procedure Form1Paint(Sender: TObject);
|
||||
procedure Form1Resize(Sender: TObject);
|
||||
procedure Form1Shortcut(var Msg: TLMKey; var Handled: Boolean);
|
||||
procedure Form1Show(Sender: TObject);
|
||||
procedure Form1UTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
|
||||
procedure Form1WindowStateChanged(Sender: TObject);
|
||||
public
|
||||
constructor Create(TheOwner: TComponent); override;
|
||||
end;
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
procedure TForm1.Form1Activate(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1Activate ',DbgSName(Sender));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1ChangeBounds(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1ChangeBounds ',DbgSName(Sender),' Bounds=',dbgs(BoundsRect));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1Click(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1Click ',DbgSName(Sender));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1Close(Sender: TObject; var CloseAction: TCloseAction);
|
||||
begin
|
||||
debugln('TForm1.Form1Close ',DbgSName(Sender),' CloseAction=',
|
||||
GetEnumName(TypeInfo(TCloseAction),ord(CloseAction)));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1CloseQuery(Sender: TObject; var CanClose: boolean);
|
||||
begin
|
||||
debugln('TForm1.Form1CloseQuery ',DbgSName(Sender),' CanClose',dbgs(CanClose));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1Create(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1Create ',DbgSName(Sender));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1Deactivate(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1Deactivate ',DbgSName(Sender));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1Enter(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1Enter ',DbgSName(Sender));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1Exit(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1Exit ',DbgSName(Sender));
|
||||
end;
|
||||
|
||||
function TForm1.Form1Help(Command: Word; Data: Longint; var CallHelp: Boolean
|
||||
): Boolean;
|
||||
begin
|
||||
debugln('TForm1.Form1Help Command=',dbgs(Command),' Data=',HexStr(Cardinal(Data),8),' CallHelp=',dbgs(CallHelp));
|
||||
Result:=false;
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1Hide(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1Hide ',DbgSName(Sender));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
|
||||
);
|
||||
begin
|
||||
Debugln('TForm1.Form1KeyDown ',DbgSName(Sender),' Key=',dbgs(Key),
|
||||
' Shift=',dbgs(Shift));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1KeyPress(Sender: TObject; var Key: char);
|
||||
begin
|
||||
debugln('TForm1.Form1KeyPress ',DbgSName(Sender),' Key=',DbgStr(Key));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1MouseDown(Sender: TOBject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
debugln('TForm1.Form1MouseDown ',DbgSName(Sender),
|
||||
' Button=',GetEnumName(TypeInfo(TMouseButton),ord(Button)),
|
||||
' X=',dbgs(X),' Y=',dbgs(Y),' Shift=',dbgs(Shift));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1MouseEnter(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1MouseEnter ',DbgSName(Sender));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1MouseLeave(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1MouseLeave ',DbgSName(Sender));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1MouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
begin
|
||||
debugln('TForm1.Form1MouseMove ',DbgSName(Sender),
|
||||
' X=',dbgs(X),' Y=',dbgs(Y),' Shift=',dbgs(Shift));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1MouseUp(Sender: TOBject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
debugln('TForm1.Form1MouseUp ',DbgSName(Sender),
|
||||
' Button=',GetEnumName(TypeInfo(TMouseButton),ord(Button)),
|
||||
' X=',dbgs(X),' Y=',dbgs(Y),' Shift=',dbgs(Shift));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1MouseWheel(Sender: TObject; Shift: TShiftState;
|
||||
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
|
||||
begin
|
||||
debugln('TForm1.Form1MouseWheel ',DbgSName(Sender),
|
||||
' WheelDelta=',dbgs(WheelDelta),' MousePos=',dbgs(MousePos),
|
||||
' Handled=',dbgs(Handled),' Shift=',dbgs(Shift));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1MouseWheelDown(Sender: TObject; Shift: TShiftState;
|
||||
MousePos: TPoint; var Handled: Boolean);
|
||||
begin
|
||||
debugln('TForm1.Form1MouseWheelDown ',DbgSName(Sender),
|
||||
' MousePos=',dbgs(MousePos),
|
||||
' Handled=',dbgs(Handled),' Shift=',dbgs(Shift));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1MouseWheelUp(Sender: TObject; Shift: TShiftState;
|
||||
MousePos: TPoint; var Handled: Boolean);
|
||||
begin
|
||||
debugln('TForm1.Form1MouseWheelUp ',DbgSName(Sender),
|
||||
' MousePos=',dbgs(MousePos),
|
||||
' Handled=',dbgs(Handled),' Shift=',dbgs(Shift));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1Paint(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1Paint ',DbgSName(Sender));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1Resize(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1Resize ',DbgSName(Sender),' Bounds=',dbgs(BoundsRect));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1Shortcut(var Msg: TLMKey; var Handled: Boolean);
|
||||
begin
|
||||
debugln('TForm1.Form1Shortcut Msg.CharCode=',dbgs(Msg.CharCode),
|
||||
' Handled=',dbgs(Handled));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1Show(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1Show ',DbgSName(Sender));
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1UTF8KeyPress(Sender: TObject; var UTF8Key: TUTF8Char);
|
||||
begin
|
||||
debugln('TForm1.Form1UTF8KeyPress ',DbgSName(Sender),' UTF8Key="',DbgStr(UTF8Key),'"');
|
||||
end;
|
||||
|
||||
procedure TForm1.Form1WindowStateChanged(Sender: TObject);
|
||||
begin
|
||||
debugln('TForm1.Form1WindowStateChanged ',DbgSName(Sender),
|
||||
' State=',GetEnumName(TypeInfo(TWindowState),ord(WindowState)));
|
||||
end;
|
||||
|
||||
constructor TForm1.Create(TheOwner: TComponent);
|
||||
begin
|
||||
OnActivate:=@Form1Activate;
|
||||
OnChangeBounds:=@Form1ChangeBounds;
|
||||
OnClick:=@Form1Click;
|
||||
OnClose:=@Form1Close;
|
||||
OnCloseQuery:=@Form1CloseQuery;
|
||||
OnCreate:=@Form1Create;
|
||||
OnDeactivate:=@Form1Deactivate;
|
||||
OnEnter:=@Form1Enter;
|
||||
OnExit:=@Form1Exit;
|
||||
OnHelp:=@Form1Help;
|
||||
OnHide:=@Form1Hide;
|
||||
OnKeyDown:=@Form1KeyDown;
|
||||
OnKeyDown:=@Form1KeyDown;
|
||||
OnKeyPress:=@Form1KeyPress;
|
||||
OnMouseDown:=@Form1MouseDown;
|
||||
OnMouseEnter:=@Form1MouseEnter;
|
||||
OnMouseLeave:=@Form1MouseLeave;
|
||||
OnMouseMove:=@Form1MouseMove;
|
||||
OnMouseUp:=@Form1MouseUp;
|
||||
OnMouseWheel:=@Form1MouseWheel;
|
||||
OnMouseWheelDown:=@Form1MouseWheelDown;
|
||||
OnMouseWheelUp:=@Form1MouseWheelUp;
|
||||
OnPaint:=@Form1Paint;
|
||||
OnResize:=@Form1Resize;
|
||||
OnShortcut:=@Form1Shortcut;
|
||||
OnShow:=@Form1Show;
|
||||
OnUTF8KeyPress:=@Form1UTF8KeyPress;
|
||||
OnWindowStateChanged:=@Form1WindowStateChanged;
|
||||
inherited Create(TheOwner);
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1,Form1);
|
||||
debugln('Form1.Bounds=',dbgs(Form1.BoundsRect));
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user