mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-13 00:08:13 +02:00
gtk2: clean up
git-svn-id: trunk@36783 -
This commit is contained in:
parent
4a95e3a711
commit
a93abd6d81
@ -109,3 +109,8 @@ procedure TWidgetSet.DCSetAntialiasing(CanvasHandle: HDC; AEnabled: Boolean);
|
|||||||
begin
|
begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TWidgetSet.SetDesigning(AComponent: TComponent);
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
@ -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;
|
||||||
|
@ -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);
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user