From f0cd2b8c58805219a2962c43fce854e2cf675025 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 19 Feb 2005 18:17:24 +0000 Subject: [PATCH] added lcl test for TLabel git-svn-id: trunk@6811 - --- .gitattributes | 2 + lcl/tests/test1_2button.lpi | 2 +- lcl/tests/test1_3label.lpi | 62 ++++++ lcl/tests/test1_3label.lpr | 375 ++++++++++++++++++++++++++++++++++++ 4 files changed, 440 insertions(+), 1 deletion(-) create mode 100644 lcl/tests/test1_3label.lpi create mode 100644 lcl/tests/test1_3label.lpr diff --git a/.gitattributes b/.gitattributes index 5506f6c129..441cbc8b09 100644 --- a/.gitattributes +++ b/.gitattributes @@ -1677,6 +1677,8 @@ lcl/tests/test1_1simpleform1.lpi svneol=native#text/plain lcl/tests/test1_1simpleform1.lpr svneol=native#text/pascal lcl/tests/test1_2button.lpi svneol=native#text/plain lcl/tests/test1_2button.lpr svneol=native#text/pascal +lcl/tests/test1_3label.lpi svneol=native#text/plain +lcl/tests/test1_3label.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 diff --git a/lcl/tests/test1_2button.lpi b/lcl/tests/test1_2button.lpi index 5dd533ace5..3cb41e723e 100644 --- a/lcl/tests/test1_2button.lpi +++ b/lcl/tests/test1_2button.lpi @@ -16,7 +16,7 @@ - + diff --git a/lcl/tests/test1_3label.lpi b/lcl/tests/test1_3label.lpi new file mode 100644 index 0000000000..27b89df2c8 --- /dev/null +++ b/lcl/tests/test1_3label.lpi @@ -0,0 +1,62 @@ + + + + + + + + + + + + + + + + </General> + <Units Count="1"> + <Unit0> + <CursorPos X="41" Y="78"/> + <EditorIndex Value="0"/> + <Filename Value="test1_3label.lpr"/> + <IsPartOfProject Value="True"/> + <Loaded Value="True"/> + <TopLine Value="49"/> + <UnitName Value="test1_3label"/> + <UsageCount Value="34"/> + </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> diff --git a/lcl/tests/test1_3label.lpr b/lcl/tests/test1_3label.lpr new file mode 100644 index 0000000000..1320aa0cb8 --- /dev/null +++ b/lcl/tests/test1_3label.lpr @@ -0,0 +1,375 @@ +{ + ***************************************************************************** + * * + * 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_3 + + Showing a form at 0,0,320,240 with a single label at 100,80,75x25 +} +program test1_3label; + +{$mode objfpc}{$H+} + +uses + Interfaces, FPCAdds, LCLProc, LCLType, Classes, Controls, Forms, TypInfo, + LMessages, StdCtrls; + +type + + { TForm1 } + + TForm1 = class(TForm) + Label1: TLabel; + procedure Label1ChangeBounds(Sender: TObject); + procedure Label1Click(Sender: TObject); + procedure Label1DblClick(Sender: TObject); + procedure Label1Enter(Sender: TObject); + procedure Label1Exit(Sender: TObject); + procedure Label1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure Label1MouseDown(Sender: TOBject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Label1MouseEnter(Sender: TObject); + procedure Label1MouseLeave(Sender: TObject); + procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); + procedure Label1MouseUp(Sender: TOBject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); + procedure Label1Resize(Sender: TObject); + 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.Label1ChangeBounds(Sender: TObject); +begin + debugln('TForm1.Label1ChangeBounds ',DbgSName(Sender),' Bounds=',dbgs(TControl(Sender).BoundsRect)); +end; + +procedure TForm1.Label1Click(Sender: TObject); +begin + debugln('TForm1.Label1Click ',DbgSName(Sender)); +end; + +procedure TForm1.Label1DblClick(Sender: TObject); +begin + debugln('TForm1.Label1DblClick ',DbgSName(Sender)); +end; + +procedure TForm1.Label1Enter(Sender: TObject); +begin + debugln('TForm1.Label1Enter ',DbgSName(Sender)); +end; + +procedure TForm1.Label1Exit(Sender: TObject); +begin + debugln('TForm1.Label1Exit ',DbgSName(Sender)); +end; + +procedure TForm1.Label1KeyDown(Sender: TObject; var Key: Word; + Shift: TShiftState); +begin + Debugln('TForm1.Label1KeyDown ',DbgSName(Sender),' Key=',dbgs(Key), + ' Shift=',dbgs(Shift)); +end; + +procedure TForm1.Label1MouseDown(Sender: TOBject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + debugln('TForm1.Label1MouseDown ',DbgSName(Sender), + ' Button=',GetEnumName(TypeInfo(TMouseButton),ord(Button)), + ' X=',dbgs(X),' Y=',dbgs(Y),' Shift=',dbgs(Shift)); +end; + +procedure TForm1.Label1MouseEnter(Sender: TObject); +begin + debugln('TForm1.Label1MouseEnter ',DbgSName(Sender)); +end; + +procedure TForm1.Label1MouseLeave(Sender: TObject); +begin + debugln('TForm1.Label1MouseLeave ',DbgSName(Sender)); +end; + +procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X, + Y: Integer); +begin + debugln('TForm1.Label1MouseMove ',DbgSName(Sender), + ' X=',dbgs(X),' Y=',dbgs(Y),' Shift=',dbgs(Shift)); +end; + +procedure TForm1.Label1MouseUp(Sender: TOBject; Button: TMouseButton; + Shift: TShiftState; X, Y: Integer); +begin + debugln('TForm1.Label1MouseUp ',DbgSName(Sender), + ' Button=',GetEnumName(TypeInfo(TMouseButton),ord(Button)), + ' X=',dbgs(X),' Y=',dbgs(Y),' Shift=',dbgs(Shift)); +end; + +procedure TForm1.Label1Resize(Sender: TObject); +begin ; + debugln('TForm1.Label1Resize ',DbgSName(Sender),' Bounds=',dbgs(TControl(Sender).BoundsRect)); +end; + +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)); + Label1:=TLabel.Create(Self); + with Label1 do begin + Name:='Label1'; + SetBounds(100,80,75,25); + Parent:=Self; + OnChangeBounds:=@Label1ChangeBounds; + OnClick:=@Label1Click; + OnDblClick:=@Label1DblClick; + OnEnter:=@Label1Enter; + OnExit:=@Label1Exit; + OnMouseDown:=@Label1MouseDown; + OnMouseEnter:=@Label1MouseEnter; + OnMouseLeave:=@Label1MouseLeave; + OnMouseMove:=@Label1MouseMove; + OnMouseUp:=@Label1MouseUp; + OnResize:=@Label1Resize; + OnKeyDown:=@Label1KeyDown; + end; +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(TControl(Sender).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); + Application.Run; +end. +