diff --git a/lcl/interfaces/gtk3/gtk3widgets.pas b/lcl/interfaces/gtk3/gtk3widgets.pas index 85ab79851c..2378d63e15 100755 --- a/lcl/interfaces/gtk3/gtk3widgets.pas +++ b/lcl/interfaces/gtk3/gtk3widgets.pas @@ -604,8 +604,6 @@ type TGtk3Panel = class(TGtk3Bin) private - FBevelInner: TBevelCut; - FBevelOuter: TBevelCut; FBorderStyle: TBorderStyle; FText: String; protected @@ -615,8 +613,6 @@ type function getText: String; override; procedure setText(const AValue: String); override; public - property BevelInner: TBevelCut read FBevelInner write FBevelInner; - property BevelOuter: TBevelCut read FBevelOuter write FBevelOuter; property BorderStyle: TBorderStyle read FBorderStyle write FBorderStyle; end; @@ -3046,8 +3042,6 @@ var begin FHasPaint := True; FBorderStyle := bsNone; - FBevelInner := bvNone; - FBevelOuter := bvNone; // wtLayout = using GtkLayout // FWidgetType := [wtWidget, wtLayout]; // Result := TGtkLayout.new(nil, nil); diff --git a/lcl/interfaces/gtk3/gtk3wsextctrls.pp b/lcl/interfaces/gtk3/gtk3wsextctrls.pp index b25d737b3c..51400f3f1d 100644 --- a/lcl/interfaces/gtk3/gtk3wsextctrls.pp +++ b/lcl/interfaces/gtk3/gtk3wsextctrls.pp @@ -170,8 +170,6 @@ begin APanel := TGtk3Panel.Create(AWinControl, AParams); APanel.BorderStyle := TCustomControl(AWinControl).BorderStyle; - APanel.BevelInner := TCustomPanel(AWinControl).BevelInner; - APanel.BevelOuter := TCustomPanel(AWinControl).BevelOuter; APanel.Text := AWinControl.Caption; Result := TLCLIntfHandle(APanel);