paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 01:47:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk2: clean up

Browse Source 
git-svn-id: trunk@36791 -
This commit is contained in:
mattias 2012-04-15 11:46:16 +00:00
parent 22e37e0981
commit 1d8586a848
8 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/buttons.pp
View File

@ -114,7 +114,7 @@ type
public
constructor Create;
destructor Destroy; override;
procedure GetImageIndexAndEffect(State: TButtonState; var AIndex: Integer; var AEffect: TGraphicsDrawEffect);
procedure GetImageIndexAndEffect(State: TButtonState; out AIndex: Integer; out AEffect: TGraphicsDrawEffect);
function Draw(Canvas: TCanvas; const Client: TRect; const Offset: TPoint;
State: TButtonState; Transparent: Boolean;
BiDiFlags: Longint): TRect;

2
lcl/include/buttonglyph.inc
View File

@ -90,7 +90,7 @@ begin
end;
procedure TButtonGlyph.GetImageIndexAndEffect(State: TButtonState;
var AIndex: Integer; var AEffect: TGraphicsDrawEffect);
out AIndex: Integer; out AEffect: TGraphicsDrawEffect);
var
AStoredState: TButtonState;
begin

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

@ -143,7 +143,7 @@ type
{$ifdef Unix}
procedure InitSynchronizeSupport;
procedure ProcessChildSignal;
procedure PrepareSynchronize(AObject: TObject);
procedure PrepareSynchronize({%H-}AObject: TObject);
{$endif}
procedure HandlePipeEvent(AData: PtrInt; AFlags: dword);

1
lcl/interfaces/gtk2/gtk2wsbuttons.pp
View File

@ -1,4 +1,3 @@
{ $Id$}
{
*****************************************************************************
* Gtk2WSButtons.pp *

2
lcl/interfaces/gtk2/gtk2wscomctrls.pp
View File

@ -173,7 +173,7 @@ type
class procedure ItemSetText(const ALV: TCustomListView; const AIndex: Integer; const AItem: TListItem; const ASubIndex: Integer; const AText: String); override;
class procedure ItemShow(const ALV: TCustomListView; const AIndex: Integer; const AItem: TListItem; const PartialOK: Boolean); override;
class function ItemGetPosition(const ALV: TCustomListView; const AIndex: Integer): TPoint; override;
class procedure ItemUpdate(const ALV: TCustomListView; const {%H-}AIndex: Integer; const AItem: TListItem); override;
class procedure ItemUpdate(const ALV: TCustomListView; const {%H-}AIndex: Integer; const {%H-}AItem: TListItem); override;
// lv
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): HWND; override;

3
lcl/interfaces/gtk2/gtk2wscustomlistview.inc
View File

@ -1,6 +1,5 @@
{%MainUnit gtk2wscomctrls.pp}
{ $Id$
{
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *

2
lcl/interfaces/gtk2/gtk2wscustommemo.inc
View File

@ -265,7 +265,7 @@ end;
class procedure TGtk2WSCustomMemo.SetCharCase(const ACustomEdit: TCustomEdit;
NewCase: TEditCharCase);
begin
// TODO: implement me!
// TODO: TGtk2WSCustomMemo.SetCharCase: implement me!
end;
class procedure TGtk2WSCustomMemo.SetScrollbars(const ACustomMemo: TCustomMemo;

20
lcl/interfaces/gtk2/gtk2wsstdctrls.pp
View File

@ -124,8 +124,8 @@ type
class function GetMaxLength(const ACustomComboBox: TCustomComboBox): integer; override;
class function GetText(const AWinControl: TWinControl; var AText: String): Boolean; override;
class procedure SetArrowKeysTraverseList(const ACustomComboBox: TCustomComboBox;
NewTraverseList: boolean); override;
class procedure SetArrowKeysTraverseList(const {%H-}ACustomComboBox: TCustomComboBox;
{%H-}NewTraverseList: boolean); override;
class procedure SetDroppedDown(const ACustomComboBox: TCustomComboBox; ADroppedDown: Boolean); override;
class procedure SetSelStart(const ACustomComboBox: TCustomComboBox; NewStart: integer); override;
class procedure SetSelLength(const ACustomComboBox: TCustomComboBox; NewLength: integer); override;
@ -199,7 +199,7 @@ type
class function GetSelLength(const ACustomEdit: TCustomEdit): integer; override;
class procedure SetCaretPos(const ACustomEdit: TCustomEdit; const NewPos: TPoint); override;
class procedure SetCharCase(const ACustomEdit: TCustomEdit; NewCase: TEditCharCase); override;
class procedure SetCharCase(const {%H-}ACustomEdit: TCustomEdit; {%H-}NewCase: TEditCharCase); override;
class procedure SetEchoMode(const ACustomEdit: TCustomEdit; NewMode: TEchoMode); override;
class procedure SetMaxLength(const ACustomEdit: TCustomEdit; NewLength: integer); override;
class procedure SetPasswordChar(const ACustomEdit: TCustomEdit; {%H-}NewChar: char); override;
@ -239,11 +239,11 @@ type
class procedure SetSelStart(const ACustomEdit: TCustomEdit; NewStart: integer); override;
class procedure SetSelLength(const ACustomEdit: TCustomEdit; NewLength: integer); override;
class procedure SetWantTabs(const ACustomMemo: TCustomMemo; const NewWantTabs: boolean); override;
class procedure SetEchoMode(const ACustomEdit: TCustomEdit; NewMode: TEchoMode); override;
class procedure SetPasswordChar(const ACustomEdit: TCustomEdit; NewChar: char); override;
class procedure SetEchoMode(const {%H-}ACustomEdit: TCustomEdit; {%H-}NewMode: TEchoMode); override;
class procedure SetPasswordChar(const {%H-}ACustomEdit: TCustomEdit; {%H-}NewChar: char); override;
class procedure SetWordWrap(const ACustomMemo: TCustomMemo; const NewWordWrap: boolean); override;
class procedure SetCharCase(const ACustomEdit: TCustomEdit; NewCase: TEditCharCase); override;
class procedure SetCharCase(const {%H-}ACustomEdit: TCustomEdit; {%H-}NewCase: TEditCharCase); override;
class procedure SetMaxLength(const ACustomEdit: TCustomEdit; NewLength: integer); override;
class procedure SetReadOnly(const ACustomEdit: TCustomEdit; NewReadOnly: boolean); override;
class procedure SetText(const AWinControl: TWinControl; const AText: string); override;
@ -437,6 +437,8 @@ begin
Widget := GetWidgetInfo({%H-}Pointer(ACustomListBox.Handle), True)^.CoreWidget;
if GtkWidgetIsA(Widget, gtk_tree_view_get_type) then
begin
Path:=nil;
Column:=nil;
gtk_tree_view_get_cursor(PGtkTreeView(Widget), Path, column);
if Path <> nil then
@ -778,6 +780,8 @@ begin
aTreeView :=
GTK_TREE_VIEW(GetWidgetInfo({%H-}Pointer(ACustomListBox.Handle), True)^.CoreWidget);
aTreePath:=nil;
aTreeColumn:=nil;
if gtk_tree_view_get_path_at_pos(aTreeView, 0, Y, aTreePath, aTreeColumn,
nil, nil)
then begin
@ -1076,7 +1080,7 @@ end;
class procedure TGtk2WSCustomEdit.SetCharCase(const ACustomEdit: TCustomEdit;
NewCase: TEditCharCase);
begin
// TODO: implement me!
// TODO: TGtk2WSCustomEdit.SetCharCase: implement me!
end;
class procedure TGtk2WSCustomEdit.SetMaxLength(const ACustomEdit: TCustomEdit;
@ -1827,7 +1831,7 @@ end;
class procedure TGtk2WSCustomComboBox.SetArrowKeysTraverseList(
const ACustomComboBox: TCustomComboBox; NewTraverseList: boolean);
begin
// TODO
// TODO: TGtk2WSCustomComboBox.SetArrowKeysTraverseList: not supported
// This is not an option that is available for this widget
// we will have to eat the keystrokes to set this to false
end;