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

Keith: Fixed form size for listviewtest.pp, kind changing for scrollbar.pp

Browse Source 
git-svn-id: trunk@678 -
This commit is contained in:
lazarus 2002-02-08 00:44:06 +00:00
parent 0f315a6dbc
commit 284d6555a1
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/listviewtest.pp
View File

@ -44,8 +44,8 @@ begin
inherited Create(AOwner); inherited Create(AOwner);
Caption := 'List View Test'; Caption := 'List View Test';
Width := 200; Width := 175;
Height := 300; Height := 195;
ListView := TListView.Create(Self); ListView := TListView.Create(Self);
ListView.Parent := Self; ListView.Parent := Self;
@ -86,6 +86,9 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2002/02/08 00:44:06 lazarus
Keith: Fixed form size for listviewtest.pp, kind changing for scrollbar.pp
Revision 1.1 2002/02/04 10:54:33 lazarus Revision 1.1 2002/02/04 10:54:33 lazarus
Keith: Keith:
* Fixes for Win32 * Fixes for Win32

4
examples/scrollbar.pp
View File

@ -121,11 +121,11 @@ End;
Procedure TForm1.Button1Clicked(sender : tobject); Procedure TForm1.Button1Clicked(sender : tobject);
Begin Begin
{Writeln('[Button1cvlikced]'); Writeln('[Button1cvlikced]');
if ScrollBar1.Kind = sbHorizontal then if ScrollBar1.Kind = sbHorizontal then
Scrollbar1.Kind := sbVertical else Scrollbar1.Kind := sbVertical else
Scrollbar1.kind := sbHorizontal; Scrollbar1.kind := sbHorizontal;
}
end; end;
Procedure TForm1.Button2Clicked(sender : tobject); Procedure TForm1.Button2Clicked(sender : tobject);