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

fixed TTabSheet.SetPageControl

Browse Source 
git-svn-id: trunk@6496 -
This commit is contained in:
mattias 2005-01-07 17:40:59 +00:00
parent 23511e1f13
commit 7fc8c7bc73
5 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/main.pp
View File

@ -1050,6 +1050,7 @@ begin
// free IDE parts
FreeFormEditor;
FreeThenNil(AnchorDesigner);
FreeThenNil(ObjectInspector1);
FreeThenNil(GlobalDesignHook);
FreeThenNil(PkgBoss);
@ -11324,6 +11325,9 @@ end.
{ =============================================================================
$Log$
Revision 1.821 2005/01/07 17:40:59 mattias
fixed TTabSheet.SetPageControl
Revision 1.820 2005/01/07 01:31:44 mattias
implemented TCheckBox.State=cbGrayed for gtk intf without visual representation

5
lcl/comctrls.pp
View File

@ -146,6 +146,8 @@ type
// TTabPosition is in extctrls.pas
TTabStyle = (tsTabs, tsButtons, tsFlatButtons);
{ TTabSheet }
TTabSheet = class(TCustomPage)
private
FOnHide: TNotifyEvent;
@ -2286,6 +2288,9 @@ end.
{ =============================================================================
$Log$
Revision 1.157 2005/01/07 17:40:59 mattias
fixed TTabSheet.SetPageControl
Revision 1.156 2005/01/03 11:54:37 micha
add TStatusBar.Canvas

4
lcl/graphics.pp
View File

@ -496,6 +496,7 @@ type
procedure SetFlags(Index: integer; AValue: boolean); override;
procedure SetName(AValue: string); override;
procedure SetSize(AValue: integer); override;
procedure SetFPColor(AValue: TFPColor); override;
{$ELSE}
procedure SetName(const AValue: string);
procedure SetSize(AValue: Integer);
@ -1873,6 +1874,9 @@ end.
{ =============================================================================
$Log$
Revision 1.166 2005/01/07 17:40:59 mattias
fixed TTabSheet.SetPageControl
Revision 1.165 2004/12/26 22:39:56 mattias
updated finnish translation from Seppo

6
lcl/include/font.inc
View File

@ -759,6 +759,9 @@ begin
if FColor <> Value
then begin
FColor := Value;
{$IFDEF UseFPCanvas}
inherited SetFPColor(TColorToFPColor(FColor));
{$ENDIF}
Changed;
end;
end;
@ -1071,6 +1074,9 @@ end;
{ =============================================================================
$Log$
Revision 1.24 2005/01/07 17:40:59 mattias
fixed TTabSheet.SetPageControl
Revision 1.23 2004/12/22 23:54:21 mattias
started TControl.AnchorSide

4
lcl/include/tabsheet.inc
View File

@ -29,7 +29,7 @@ end;
function TTabSheet.GetPageControl: TPageControl;
begin
if (Parent<>nil) and (Parent is TPageControl) then
if (Parent is TPageControl) then
Result:=TPageControl(Parent)
else
Result:=nil;
@ -38,7 +38,7 @@ end;
procedure TTabSheet.SetPageControl(APageControl: TPageControl);
begin
if PageControl=APageControl then exit;
Parent:=PageControl;
Parent:=APageControl;
end;
procedure TTabSheet.SetTabIndex(const AValue: Integer);