mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-08 04:56:02 +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/stringhashlist.pas svneol=native#text/pascal
|
||||||
lcl/templates/template.inc svneol=native#text/pascal
|
lcl/templates/template.inc svneol=native#text/pascal
|
||||||
lcl/templates/template.pp 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/textstrings.pas svneol=native#text/pascal
|
||||||
lcl/toolwin.pp svneol=native#text/pascal
|
lcl/toolwin.pp svneol=native#text/pascal
|
||||||
lcl/utrace.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