paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 07:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: image support, TScrollBox, and many other things from Andrew

Browse Source 
git-svn-id: trunk@3277 -
This commit is contained in:
lazarus 2002-09-03 09:03:07 +00:00
parent 539b2d26ca
commit c63ab4f76d
2 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -641,6 +641,7 @@ lcl/include/reginifile.inc svneol=native#text/pascal
lcl/include/registry.inc svneol=native#text/pascal
lcl/include/screen.inc svneol=native#text/pascal
lcl/include/scrollbar.inc svneol=native#text/pascal
lcl/include/scrollbox.inc svneol=native#text/pascal
lcl/include/scrolledwindow.inc svneol=native#text/pascal
lcl/include/shape.inc svneol=native#text/pascal
lcl/include/sharedimage.inc svneol=native#text/pascal

31
lcl/include/scrollbox.inc Normal file
View File

@ -0,0 +1,31 @@
Procedure TScrollBox.SetAutoScroll(Value : Boolean);
begin
end;
Procedure TScrollBox.DoAutoSize;
begin
Inherited DoAutoSize;
If AutoSize then begin
AutoSizing := True;
Height := ClientHeight + 4;
AutoSizing := False;
end;
end;
constructor TScrollBox.Create(AOwner: TComponent);
begin
Inherited Create(AOwner);
fCompStyle:= csScrollBox;
AutoSize := False;
AutoScroll := True;
ControlStyle := [csAcceptsControls, csClickEvents, csDoubleClicks];
Left := 0;
Top := 0;
Width := 200;
Height := 200;
Visible := True;
ParentColor := False;
ParentFont := False;
Ctl3D := True;
Color := clWhite;
end;