From a93abd6d818a150bc1cc8926dd4fea91b51ea22e Mon Sep 17 00:00:00 2001 From: mattias Date: Sun, 15 Apr 2012 00:56:30 +0000 Subject: [PATCH] gtk2: clean up git-svn-id: trunk@36783 - --- lcl/include/interfacebase.inc | 5 +++++ lcl/interfacebase.pp | 2 +- lcl/interfaces/gtk2/gtk2int.pas | 1 - lcl/interfaces/gtk2/gtk2widgetset.inc | 5 ----- 4 files changed, 6 insertions(+), 7 deletions(-) diff --git a/lcl/include/interfacebase.inc b/lcl/include/interfacebase.inc index 9b317fd65b..94ad8b5d44 100644 --- a/lcl/include/interfacebase.inc +++ b/lcl/include/interfacebase.inc @@ -109,3 +109,8 @@ procedure TWidgetSet.DCSetAntialiasing(CanvasHandle: HDC; AEnabled: Boolean); begin end; +procedure TWidgetSet.SetDesigning(AComponent: TComponent); +begin + +end; + diff --git a/lcl/interfacebase.pp b/lcl/interfacebase.pp index c97b52bce6..f282b7561b 100644 --- a/lcl/interfacebase.pp +++ b/lcl/interfacebase.pp @@ -168,7 +168,7 @@ type procedure DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor); virtual; abstract; procedure DCRedraw(CanvasHandle: HDC); virtual; abstract; procedure DCSetAntialiasing(CanvasHandle: HDC; AEnabled: Boolean); virtual; - procedure SetDesigning(AComponent: TComponent); virtual; abstract; + procedure SetDesigning(AComponent: TComponent); virtual; function InitStockFont(AFont: TObject; AStockFont: TStockFont): Boolean; virtual; function IsHelpKey(Key: Word; Shift: TShiftState): Boolean; virtual; diff --git a/lcl/interfaces/gtk2/gtk2int.pas b/lcl/interfaces/gtk2/gtk2int.pas index f92e60f110..314225743e 100644 --- a/lcl/interfaces/gtk2/gtk2int.pas +++ b/lcl/interfaces/gtk2/gtk2int.pas @@ -255,7 +255,6 @@ type function DCGetPixel(CanvasHandle: HDC; X, Y: integer): TGraphicsColor; override; procedure DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor); override; procedure DCRedraw(CanvasHandle: HDC); override; - procedure SetDesigning(AComponent: TComponent); override; {used by 3rd party components eg. opengl implementation} procedure FinishCreateHandle(const AWinControl: TWinControl; Widget: PGtkWidget; const AParams: TCreateParams); diff --git a/lcl/interfaces/gtk2/gtk2widgetset.inc b/lcl/interfaces/gtk2/gtk2widgetset.inc index 0e79afc310..e25cf58a3a 100644 --- a/lcl/interfaces/gtk2/gtk2widgetset.inc +++ b/lcl/interfaces/gtk2/gtk2widgetset.inc @@ -5081,11 +5081,6 @@ begin end; -procedure TGtk2WidgetSet.SetDesigning(AComponent: TComponent); -begin - // ToDo: Implement -end; - {------------------------------------------------------------------------------ Method: TGtk2WidgetSet.SetPixel Params: Sender : the lcl object which called this func via SendMessage