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

gtk2 intf: added createhandle for TEdit from Darek

Browse Source 
git-svn-id: trunk@9262 -
This commit is contained in:
mattias 2006-05-13 08:21:59 +00:00
parent 003ec5d0f6
commit 0470b902b2
2 changed files with 29 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/gtk2/gtk2wsextctrls.pp
View File

@ -28,7 +28,7 @@ interface
uses
// libs
GLib2, Gtk2, Gdk2, Gdk2pixbuf,
GLib2, Gtk2, Gdk2, Gtk2Int,gtkProc,GtkDef,
// LCL
ExtCtrls, Classes, Controls, LCLType,
// widgetset
@ -152,7 +152,7 @@ type
{ TGtk2WSCheckGroup }
TGtk2WSCheckGroup = class(TWSCheckGroup)
TGtk2WSCheckGroup = class(TGtkWSCheckGroup)
private
protected
public
@ -176,7 +176,7 @@ type
{ TGtk2WSLabeledEdit }
TGtk2WSLabeledEdit = class(TWSLabeledEdit)
TGtk2WSLabeledEdit = class(TGtkWSLabeledEdit)
private
protected
public
@ -184,7 +184,7 @@ type
{ TGtk2WSCustomPanel }
TGtk2WSCustomPanel = class(TWSCustomPanel)
TGtk2WSCustomPanel = class(TGtkWSCustomPanel)
private
protected
public
@ -192,7 +192,7 @@ type
{ TGtk2WSPanel }
TGtk2WSPanel = class(TWSPanel)
TGtk2WSPanel = class(TGtkWSPanel)
private
protected
public
@ -240,6 +240,7 @@ begin
Result := HWND(P);
end;
initialization
////////////////////////////////////////////////////
@ -269,4 +270,4 @@ initialization
// RegisterWSComponent(TCustomPanel, TGtk2WSCustomPanel);
// RegisterWSComponent(TPanel, TGtk2WSPanel);
////////////////////////////////////////////////////
end.
end.

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

@ -119,6 +119,7 @@ type
private
protected
public
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
class function GetSelStart(const ACustomEdit: TCustomEdit): integer; override;
class function GetSelLength(const ACustomEdit: TCustomEdit): integer; override;
end;
@ -569,6 +570,27 @@ end;
{ TGtk2WSCustomEdit }
function TGtk2WSCustomEdit.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): TLCLIntfHandle;
var
p: PGtkWidget; // ptr to the newly created GtkWidget
SetupProps : boolean;
begin
SetupProps := false;
p := gtk_entry_new();
gtk_editable_set_editable (PGtkEditable(P), not TCustomEdit(AWinControl).ReadOnly);
gtk_widget_show_all(P);
Result := TLCLIntfHandle(P);
if result = 0 then exit;
gtk2WidgetSet.FinishComponentCreate(AWinControl, P, SetupProps);
end;
function TGtk2WSCustomEdit.GetSelStart(const ACustomEdit: TCustomEdit
): integer;
var