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

AJ: Fixed forms <-> stdctrls circular uses

Browse Source 
git-svn-id: trunk@3553 -
This commit is contained in:
lazarus 2002-10-24 19:35:34 +00:00
parent f24444ce29
commit 17b6fecb78
2 changed files with 7 additions and 5 deletions

4
lcl/forms.pp
View File

@ -47,10 +47,6 @@ type
TWindowState = (wsNormal, wsMinimized, wsMaximized);
TCloseAction = (caNone, caHide, caFree, caMinimize);
TScrollBarKind = (sbHorizontal, sbVertical);
TScrollBarInc = 1..32768;
TScrollBarStyle = (ssRegular, ssFlat, ssHotTrack);
TScrollingWinControl = class;
TControlScrollBar = class(TPersistent)

8
lcl/stdctrls.pp
View File

@ -38,12 +38,15 @@ interface
uses
VCLGlobals, Classes, SysUtils, LCLType, Graphics, GraphType, LMessages,
Controls, Forms, ExtendedStrings, LCLLinux, GraphicsMath;
Controls, ExtendedStrings, LCLLinux, GraphicsMath;
type
{ TScrollBar }
TScrollBarKind = (sbHorizontal, sbVertical);
TScrollBarInc = 1..32768;
TScrollBarStyle = (ssRegular, ssFlat, ssHotTrack);
TScrollStyle = (ssNone, ssHorizontal, ssVertical, ssBoth,
ssAutoHorizontal, ssAutoVertical, ssAutoBoth);
@ -1406,6 +1409,9 @@ end.
{ =============================================================================
$Log$
Revision 1.61 2002/10/24 19:35:34 lazarus
AJ: Fixed forms <-> stdctrls circular uses
Revision 1.60 2002/10/24 10:05:51 lazarus
MG: broke graphics.pp <-> clipbrd.pp circle