paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-09 18:19:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

* TGroup.ClipChildes added

Browse Source
This commit is contained in:
peter 2004-12-22 15:28:22 +00:00
parent bdc1d8e075
commit 20009e79f0
1 changed files with 18 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
fv/views.pas
View File

@ -470,6 +470,7 @@ TYPE
PROCEDURE ChangeBounds (Var Bounds: TRect); Virtual; PROCEDURE ChangeBounds (Var Bounds: TRect); Virtual;
PROCEDURE GetSubViewPtr (Var S: TStream; Var P); PROCEDURE GetSubViewPtr (Var S: TStream; Var P);
PROCEDURE PutSubViewPtr (Var S: TStream; P: PView); PROCEDURE PutSubViewPtr (Var S: TStream; P: PView);
function ClipChilds: boolean; virtual;
procedure BeforeInsert(P: PView); virtual; procedure BeforeInsert(P: PView); virtual;
procedure AfterInsert(P: PView); virtual; procedure AfterInsert(P: PView); virtual;
procedure BeforeDelete(P: PView); virtual; procedure BeforeDelete(P: PView); virtual;
@ -1835,10 +1836,13 @@ PROCEDURE TView.SizeLimits (Var Min, Max: TPoint);
BEGIN BEGIN
Min.X := 0; { Zero x minimum } Min.X := 0; { Zero x minimum }
Min.Y := 0; { Zero y minimum } Min.Y := 0; { Zero y minimum }
If (Owner = Nil) Then Begin If (Owner <> Nil) and(Owner^.ClipChilds) Then
Max.X := $7FFF; { Max possible x size } Max := Owner^.Size
Max.Y := $7FFF; { Max possible y size } else { Max owner size }
End Else Max := Owner^.Size; { Max owner size } Begin
Max.X := high(sw_integer); { Max possible x size }
Max.Y := high(sw_integer); { Max possible y size }
End;
END; END;
{--TView--------------------------------------------------------------------} {--TView--------------------------------------------------------------------}
@ -2215,6 +2219,12 @@ BEGIN
END; END;
function TGroup.ClipChilds: boolean;
begin
ClipChilds:=true;
end;
procedure TGroup.BeforeInsert(P: PView); procedure TGroup.BeforeInsert(P: PView);
begin begin
{ abstract } { abstract }
@ -4636,7 +4646,10 @@ END.
{ {
$Log$ $Log$
Revision 1.53 2004-12-21 18:53:41 peter Revision 1.54 2004-12-22 15:28:22 peter
* TGroup.ClipChildes added
Revision 1.53 2004/12/21 18:53:41 peter
cmCursorChange event cmCursorChange event
Revision 1.52 2004/12/19 20:20:48 hajny Revision 1.52 2004/12/19 20:20:48 hajny