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

LCL-GTK3: Cleanup for TGtk3Panel. Issue , patch from CudaText man.

Browse Source 
git-svn-id: trunk@62570 -
This commit is contained in:
juha 2020-01-17 22:55:34 +00:00
parent 5a402d6cdc
commit 146d5408d0
2 changed files with 0 additions and 8 deletions

6
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -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);

2
lcl/interfaces/gtk3/gtk3wsextctrls.pp
View File

@ -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);