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

gtk2: clean up

Browse Source 
git-svn-id: trunk@36783 -
This commit is contained in:
mattias 2012-04-15 00:56:30 +00:00
parent 4a95e3a711
commit a93abd6d81
4 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/interfacebase.inc
View File

@ -109,3 +109,8 @@ procedure TWidgetSet.DCSetAntialiasing(CanvasHandle: HDC; AEnabled: Boolean);
begin begin
end; end;
procedure TWidgetSet.SetDesigning(AComponent: TComponent);
begin
end;

2
lcl/interfacebase.pp
View File

@ -168,7 +168,7 @@ type
procedure DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor); virtual; abstract; procedure DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor); virtual; abstract;
procedure DCRedraw(CanvasHandle: HDC); virtual; abstract; procedure DCRedraw(CanvasHandle: HDC); virtual; abstract;
procedure DCSetAntialiasing(CanvasHandle: HDC; AEnabled: Boolean); virtual; 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 InitStockFont(AFont: TObject; AStockFont: TStockFont): Boolean; virtual;
function IsHelpKey(Key: Word; Shift: TShiftState): Boolean; virtual; function IsHelpKey(Key: Word; Shift: TShiftState): Boolean; virtual;

1
lcl/interfaces/gtk2/gtk2int.pas
View File

@ -255,7 +255,6 @@ type
function DCGetPixel(CanvasHandle: HDC; X, Y: integer): TGraphicsColor; override; function DCGetPixel(CanvasHandle: HDC; X, Y: integer): TGraphicsColor; override;
procedure DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor); override; procedure DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor); override;
procedure DCRedraw(CanvasHandle: HDC); override; procedure DCRedraw(CanvasHandle: HDC); override;
procedure SetDesigning(AComponent: TComponent); override;
{used by 3rd party components eg. opengl implementation} {used by 3rd party components eg. opengl implementation}
procedure FinishCreateHandle(const AWinControl: TWinControl; procedure FinishCreateHandle(const AWinControl: TWinControl;
Widget: PGtkWidget; const AParams: TCreateParams); Widget: PGtkWidget; const AParams: TCreateParams);

5
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -5081,11 +5081,6 @@ begin
end; end;
procedure TGtk2WidgetSet.SetDesigning(AComponent: TComponent);
begin
// ToDo: Implement
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TGtk2WidgetSet.SetPixel Method: TGtk2WidgetSet.SetPixel
Params: Sender : the lcl object which called this func via SendMessage Params: Sender : the lcl object which called this func via SendMessage