diff --git a/components/gradcontrols/gradcontrols.lpk b/components/gradcontrols/gradcontrols.lpk index ca99ac025..06354068b 100644 --- a/components/gradcontrols/gradcontrols.lpk +++ b/components/gradcontrols/gradcontrols.lpk @@ -1,10 +1,11 @@ - + + - + @@ -57,10 +58,7 @@ - - - - + diff --git a/components/gradcontrols/src/dummylogger.pas b/components/gradcontrols/src/dummylogger.pas index ea1937e20..7528e6471 100644 --- a/components/gradcontrols/src/dummylogger.pas +++ b/components/gradcontrols/src/dummylogger.pas @@ -17,8 +17,8 @@ type procedure ExitMethod(AStr: string); procedure EnterMethod(AObj: TObject; AStr: string); procedure ExitMethod(AObj: TObject; AStr: string); - procedure Send(AStr: string; AVar: Variant = 0); - procedure Watch(AStr: string; AVar: Variant = 0); + procedure Send(AStr: string; AVar: Variant); + procedure Watch(AStr: string; AVar: Variant); end; var diff --git a/components/gradcontrols/src/gradtabcontroleditor.pas b/components/gradcontrols/src/gradtabcontroleditor.pas index bcd40223f..8fe5471da 100644 --- a/components/gradcontrols/src/gradtabcontroleditor.pas +++ b/components/gradcontrols/src/gradtabcontroleditor.pas @@ -5,7 +5,7 @@ unit gradtabcontroleditor; interface uses - Classes, SysUtils, ugradtabcontrol, ComponentEditors, Menus, PropEdits; + Classes, SysUtils, ComCtrls, ugradtabcontrol, ComponentEditors, Menus, PropEdits; type { TGradTabControlComponentEditor @@ -111,7 +111,7 @@ begin if (OldIndex>=0) and (OldIndex