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

* move HandleGtkKeyUpDown to gtkProc.inc make it visible to gtk2

Browse Source 
this allow saving a call in a hevely called callback

git-svn-id: trunk@5715 -
This commit is contained in:
mazen 2004-07-30 14:26:11 +00:00
parent adc4b3d21f
commit cf925ed5a5
4 changed files with 317 additions and 308 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

260
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -554,262 +554,6 @@ begin
EventTrace('map', data); EventTrace('map', data);
end; end;
function HandleGTKKeyUpDown(Widget: PGtkWidget; Event: PGdkEventKey;
Data: gPointer; BeforeEvent: boolean) : GBoolean; cdecl;
{off $DEFINE VerboseKeyboard}
var
Msg: TLMKey;
EventStopped: Boolean;
EventString: PChar; // GTK1 and GTK2 workaround
// (and easy access to bytes)
procedure StopKeyEvent(const AnEventName: PChar);
begin
{$IFDEF VerboseKeyboard}
DebugLn('StopKeyEvent AnEventName="',AnEventName,'"');
{$ENDIF}
if not EventStopped
then begin
g_signal_stop_emission_by_name(PGtkObject(Widget), AnEventName);
EventStopped := True;
end;
//MWE: still need to skip on win32 ?
{MWE:.$IfNDef Win32}
if EventString <> nil
then begin
EventString^ := #0;
// MG: should we set Event^.length := 0; or is this used for mem allocation?
gdk_event_key_set_string(Event,EventString);
end;
{MWE:.$EndIf}
Event^.KeyVal := 0;
end;
function CanSendChar: Boolean;
begin
Result := False;
if Event^.Length > 1 then Exit;
// to be delphi compatible we should not send a space here
if Event^.KeyVal = GDK_KEY_KP_SPACE then Exit;
// Check if CTRL is pressed
if ((Event^.State and GDK_CONTROL_MASK) <> 0)
then begin
// Check if we pressed ^@
if (Event^.Length = 0)
and (Event^.KeyVal = GDK_KEY_AT)
then begin
Result := True;
Exit;
end;
// check if we send the ^Char subset
if (Event^.Length = 1) and (EventString <> nil)
then begin
Result := (EventString^ > #0) and (EventString^ < ' ');
end;
Exit;
end;
Result := (Event^.Length = 1) and (EventString <> nil);
end;
var
VKey: TVKeyRecord;
CommonKeyData: Integer;
Flags: Integer;
SysKey: Boolean;
//TopLevel: PGtkWidget;
FocusedWidget: PGtkWidget;
LCLObject: TObject;
FocusedWinControl: TWinControl;
HandledByLCL: Boolean;
TargetWidget: PGtkWidget;
TargetData: gPointer;
begin
Result := True;
EventStopped := False;
HandledByLCL:=KeyEventWasHandledByLCL(Event,BeforeEvent);
{$IFDEF VerboseKeyboard}
DebugLn('[HandleGTKKeyUpDown] ',TControl(Data).Name,':',TControl(Data).ClassName,
' ',dbgs(Event^.theType),' Widget=',GetWidgetClassName(Widget),
' Before=',dbgs(BeforeEvent),' HandledByLCL=',dbgs(HandledByLCL));
{$ENDIF}
// handle every key event only once
if HandledByLCL then exit;
TargetWidget:=Widget;
TargetData:=Data;
// The gtk sends keys first to the gtkwindow and then to the focused control.
// The LCL expects only once to the focused control.
// And some gtk widgets (combo) eats keys, so that the LCL has no chance to
// handle it. Therefore keys to the form are immediately redirected to the
// focused control without changing the normal gtk event path.
if GtkWidgetIsA(Widget,gtk_window_get_type) then begin
FocusedWidget:=PGtkWindow(Widget)^.focus_widget;
if FocusedWidget<>nil then begin
LCLObject:=GetNearestLCLObject(FocusedWidget);
if LCLObject is TWinControl then begin
FocusedWinControl:=TWinControl(LCLObject);
if FocusedWidget<>Widget then begin
{$IFDEF VerboseKeyboard}
DebugLn('[HandleGTKKeyUpDown] REDIRECTING ',
' FocusedWidget=',GetWidgetClassName(FocusedWidget),
' Control=',FocusedWinControl.Name,':',FocusedWinControl.ClassName);
{$ENDIF}
// redirect key to lcl control
TargetWidget:=FocusedWidget;
TargetData:=FocusedWinControl;
end;
end;
end;
end;
// remember this event
RememberKeyEventWasHandledByLCL(Event,BeforeEvent);
if TargetWidget=nil then exit;
gdk_event_key_get_string(Event, EventString);
FillChar(Msg,SizeOf(Msg),0);
VKey := KeySymToVKey(Event^.keyval);
Flags := 0;
if (VKey.Flags and VKEY_FLAG_EXT) <> 0
then Flags := KF_EXTENDED;
SysKey := False;
if (VKey.Flags and VKEY_FLAG_ALT) = 0
then begin
// VKey is without ALT so Alt is syskey
SysKey := (Event^.State and GDK_MOD1_MASK) <> 0;
end
else begin
// VKey is with ALT so SHIFT Alt is syskey
SysKey := (Event^.State and (GDK_MOD1_MASK or GDK_SHIFT_MASK))
= (GDK_MOD1_MASK or GDK_SHIFT_MASK);
end;
if SysKey
then Flags := Flags or KF_ALTDOWN;
CommonKeyData := MVKeyInfo[VKey.VKey].KeyCode shl 16; // ScanCode
case gdk_event_get_type(Event) of
GDK_KEY_RELEASE:
begin
{$IFDEF VerboseKeyboard}
DebugLn('[HandleGTKKeyUpDown] GDK_KEY_RELEASE VKey=',dbgs(VKey.VKey));
{$ENDIF}
Msg.CharCode := VKey.VKey;
if BeforeEvent then begin
if SysKey
then Msg.msg := CN_SYSKEYUP
else Msg.msg := CN_KEYUP;
end else begin
if SysKey
then Msg.msg := LM_SYSKEYUP
else Msg.msg := LM_KEYUP;
end;
Flags := Flags or KF_UP or KF_REPEAT;
Msg.KeyData := CommonKeyData or (Flags shl 16) or $0001 {always};
// send the message directly to the LCL
Msg.Result:=0;
NotifyApplicationUserInput(Msg.Msg);
Result := DeliverMessage(TargetData, Msg) = 0;
if Msg.CharCode <> VKey.VKey
then begin
// key was handled by LCL
StopKeyEvent('key_release_event');
end;
end;
GDK_KEY_PRESS:
begin
{$IFDEF VerboseKeyboard}
DebugLn('[HandleGTKKeyUpDown] GDK_KEY_PRESS VKey=',dbgs(VKey.VKey));
{$ENDIF}
Msg.CharCode := VKey.VKey;
if BeforeEvent then begin
if SysKey
then Msg.msg := CN_SYSKEYDOWN
else Msg.msg := CN_KEYDOWN;
end else begin
if SysKey
then Msg.msg := LM_SYSKEYDOWN
else Msg.msg := LM_KEYDOWN;
end;
// todo repeat
// Flags := Flags or KF_REPEAT;
Msg.KeyData := CommonKeyData or (Flags shl 16) or $0001 {TODO: repeatcount};
// send the message directly to the LCL
NotifyApplicationUserInput(Msg.Msg);
Result := DeliverMessage(TargetData, Msg) = 0;
if Msg.CharCode <> Vkey.Vkey
then begin
// key was changed by LCL
StopKeyEvent('key_press_event');
end;
if not EventStopped and CanSendChar
then begin
EventTrace('char', data);
FillChar(Msg,SizeOf(Msg),0);
Msg.KeyData := CommonKeyData;
if BeforeEvent then begin
if SysKey
then Msg.msg := CN_SYSCHAR
else Msg.msg := CN_CHAR;
end else begin
if SysKey
then Msg.msg := LM_SYSCHAR
else Msg.msg := LM_CHAR;
end;
if Event^.Length = 0
then Msg.CharCode := 0 // ^@ was pressed
else Msg.CharCode := ord(EventString^);
Msg.Result:=0;
// send the message directly (not queued) to the LCL
Result := DeliverMessage(TargetData, Msg) = 0;
if (EventString<>nil) and (Msg.CharCode <> ord(EventString^))
then begin
//writeln('HandleGTKKeyUpDown A ',Msg.CharCode,' BeforeEvent=',BeforeEvent);
// key was changed by lcl
if Msg.CharCode=0 then
StopKeyEvent('key_press_event')
else begin
EventString^:=chr(Msg.CharCode);
EventString[1]:=#0;
gdk_event_key_set_string(Event,EventString);
end;
end;
end;
end;
end;
//DebugLn('[HandleGTKKeyUpDown] ',TControl(Data).Name,':',TControl(Data).ClassName,' Result=',Result);
end;
function GTKKeyUpDown(Widget: PGtkWidget; Event: PGdkEventKey; function GTKKeyUpDown(Widget: PGtkWidget; Event: PGdkEventKey;
Data: gPointer) : GBoolean; cdecl; Data: gPointer) : GBoolean; cdecl;
begin begin
@ -3127,6 +2871,10 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.241 2004/07/30 14:26:11 mazen
* move HandleGtkKeyUpDown to gtkProc.inc make it visible to gtk2
this allow saving a call in a hevely called callback
Revision 1.240 2004/07/16 21:49:00 mattias Revision 1.240 2004/07/16 21:49:00 mattias
added RTTI controls added RTTI controls

267
lcl/interfaces/gtk/gtkproc.inc
View File

@ -24,8 +24,8 @@
{$IFOPT C-} {$IFOPT C-}
// Uncomment for local trace // Uncomment for local trace
// {$C+} //{$C+}
// {$DEFINE ASSERT_IS_ON} //{$DEFINE ASSERT_IS_ON}
{$ENDIF} {$ENDIF}
function gtk_widget_get_xthickness(Style : PGTKStyle) : gint; function gtk_widget_get_xthickness(Style : PGTKStyle) : gint;
@ -1819,6 +1819,261 @@ begin
end; end;
end; end;
function HandleGTKKeyUpDown(Widget: PGtkWidget; Event: PGdkEventKey;
Data: gPointer; BeforeEvent: boolean) : GBoolean;
{off $DEFINE VerboseKeyboard}
var
Msg: TLMKey;
EventStopped: Boolean;
EventString: PChar; // GTK1 and GTK2 workaround
// (and easy access to bytes)
procedure StopKeyEvent(const AnEventName: PChar);
begin
{$IFDEF VerboseKeyboard}
DebugLn('StopKeyEvent AnEventName="',AnEventName,'"');
{$ENDIF}
if not EventStopped
then begin
g_signal_stop_emission_by_name(PGtkObject(Widget), AnEventName);
EventStopped := True;
end;
//MWE: still need to skip on win32 ?
{MWE:.$IfNDef Win32}
if EventString <> nil
then begin
EventString^ := #0;
// MG: should we set Event^.length := 0; or is this used for mem allocation?
gdk_event_key_set_string(Event,EventString);
end;
{MWE:.$EndIf}
Event^.KeyVal := 0;
end;
function CanSendChar: Boolean;
begin
Result := False;
if Event^.Length > 1 then Exit;
// to be delphi compatible we should not send a space here
if Event^.KeyVal = GDK_KEY_KP_SPACE then Exit;
// Check if CTRL is pressed
if ((Event^.State and GDK_CONTROL_MASK) <> 0)
then begin
// Check if we pressed ^@
if (Event^.Length = 0)
and (Event^.KeyVal = GDK_KEY_AT)
then begin
Result := True;
Exit;
end;
// check if we send the ^Char subset
if (Event^.Length = 1) and (EventString <> nil)
then begin
Result := (EventString^ > #0) and (EventString^ < ' ');
end;
Exit;
end;
Result := (Event^.Length = 1) and (EventString <> nil);
end;
var
VKey: TVKeyRecord;
CommonKeyData: Integer;
Flags: Integer;
SysKey: Boolean;
//TopLevel: PGtkWidget;
FocusedWidget: PGtkWidget;
LCLObject: TObject;
FocusedWinControl: TWinControl;
HandledByLCL: Boolean;
TargetWidget: PGtkWidget;
TargetData: gPointer;
begin
Result := True;
EventStopped := False;
HandledByLCL:=KeyEventWasHandledByLCL(Event,BeforeEvent);
{$IFDEF VerboseKeyboard}
DebugLn('[HandleGTKKeyUpDown] ',TControl(Data).Name,':',TControl(Data).ClassName,
' ',dbgs(Event^.theType),' Widget=',GetWidgetClassName(Widget),
' Before=',dbgs(BeforeEvent),' HandledByLCL=',dbgs(HandledByLCL));
{$ENDIF}
// handle every key event only once
if HandledByLCL then exit;
TargetWidget:=Widget;
TargetData:=Data;
// The gtk sends keys first to the gtkwindow and then to the focused control.
// The LCL expects only once to the focused control.
// And some gtk widgets (combo) eats keys, so that the LCL has no chance to
// handle it. Therefore keys to the form are immediately redirected to the
// focused control without changing the normal gtk event path.
if GtkWidgetIsA(Widget,gtk_window_get_type) then begin
FocusedWidget:=PGtkWindow(Widget)^.focus_widget;
if FocusedWidget<>nil then begin
LCLObject:=GetNearestLCLObject(FocusedWidget);
if LCLObject is TWinControl then begin
FocusedWinControl:=TWinControl(LCLObject);
if FocusedWidget<>Widget then begin
{$IFDEF VerboseKeyboard}
DebugLn('[HandleGTKKeyUpDown] REDIRECTING ',
' FocusedWidget=',GetWidgetClassName(FocusedWidget),
' Control=',FocusedWinControl.Name,':',FocusedWinControl.ClassName);
{$ENDIF}
// redirect key to lcl control
TargetWidget:=FocusedWidget;
TargetData:=FocusedWinControl;
end;
end;
end;
end;
// remember this event
RememberKeyEventWasHandledByLCL(Event,BeforeEvent);
if TargetWidget=nil then exit;
gdk_event_key_get_string(Event, EventString);
FillChar(Msg,SizeOf(Msg),0);
VKey := KeySymToVKey(Event^.keyval);
Flags := 0;
if (VKey.Flags and VKEY_FLAG_EXT) <> 0
then Flags := KF_EXTENDED;
SysKey := False;
if (VKey.Flags and VKEY_FLAG_ALT) = 0
then begin
// VKey is without ALT so Alt is syskey
SysKey := (Event^.State and GDK_MOD1_MASK) <> 0;
end
else begin
// VKey is with ALT so SHIFT Alt is syskey
SysKey := (Event^.State and (GDK_MOD1_MASK or GDK_SHIFT_MASK))
= (GDK_MOD1_MASK or GDK_SHIFT_MASK);
end;
if SysKey
then Flags := Flags or KF_ALTDOWN;
CommonKeyData := MVKeyInfo[VKey.VKey].KeyCode shl 16; // ScanCode
case gdk_event_get_type(Event) of
GDK_KEY_RELEASE:
begin
{$IFDEF VerboseKeyboard}
DebugLn('[HandleGTKKeyUpDown] GDK_KEY_RELEASE VKey=',dbgs(VKey.VKey));
{$ENDIF}
Msg.CharCode := VKey.VKey;
if BeforeEvent then begin
if SysKey
then Msg.msg := CN_SYSKEYUP
else Msg.msg := CN_KEYUP;
end else begin
if SysKey
then Msg.msg := LM_SYSKEYUP
else Msg.msg := LM_KEYUP;
end;
Flags := Flags or KF_UP or KF_REPEAT;
Msg.KeyData := CommonKeyData or (Flags shl 16) or $0001 {always};
// send the message directly to the LCL
Msg.Result:=0;
NotifyApplicationUserInput(Msg.Msg);
Result := DeliverMessage(TargetData, Msg) = 0;
if Msg.CharCode <> VKey.VKey
then begin
// key was handled by LCL
StopKeyEvent('key_release_event');
end;
end;
GDK_KEY_PRESS:
begin
{$IFDEF VerboseKeyboard}
DebugLn('[HandleGTKKeyUpDown] GDK_KEY_PRESS VKey=',dbgs(VKey.VKey));
{$ENDIF}
Msg.CharCode := VKey.VKey;
if BeforeEvent then begin
if SysKey
then Msg.msg := CN_SYSKEYDOWN
else Msg.msg := CN_KEYDOWN;
end else begin
if SysKey
then Msg.msg := LM_SYSKEYDOWN
else Msg.msg := LM_KEYDOWN;
end;
// todo repeat
// Flags := Flags or KF_REPEAT;
Msg.KeyData := CommonKeyData or (Flags shl 16) or $0001 {TODO: repeatcount};
// send the message directly to the LCL
NotifyApplicationUserInput(Msg.Msg);
Result := DeliverMessage(TargetData, Msg) = 0;
if Msg.CharCode <> Vkey.Vkey
then begin
// key was changed by LCL
StopKeyEvent('key_press_event');
end;
if not EventStopped and CanSendChar
then begin
EventTrace('char', data);
FillChar(Msg,SizeOf(Msg),0);
Msg.KeyData := CommonKeyData;
if BeforeEvent then begin
if SysKey
then Msg.msg := CN_SYSCHAR
else Msg.msg := CN_CHAR;
end else begin
if SysKey
then Msg.msg := LM_SYSCHAR
else Msg.msg := LM_CHAR;
end;
if Event^.Length = 0
then Msg.CharCode := 0 // ^@ was pressed
else Msg.CharCode := ord(EventString^);
Msg.Result:=0;
// send the message directly (not queued) to the LCL
Result := DeliverMessage(TargetData, Msg) = 0;
if (EventString<>nil) and (Msg.CharCode <> ord(EventString^))
then begin
//writeln('HandleGTKKeyUpDown A ',Msg.CharCode,' BeforeEvent=',BeforeEvent);
// key was changed by lcl
if Msg.CharCode=0 then
StopKeyEvent('key_press_event')
else begin
EventString^:=chr(Msg.CharCode);
EventString[1]:=#0;
gdk_event_key_set_string(Event,EventString);
end;
end;
end;
end;
end;
//DebugLn('[HandleGTKKeyUpDown] ',TControl(Data).Name,':',TControl(Data).ClassName,' Result=',Result);
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Procedure: InitKeyboardTables Procedure: InitKeyboardTables
Params: none Params: none
@ -3923,8 +4178,8 @@ begin
gtk_menu_set_accel_group(PGtkMenu(Widget), AnAccelGroup) gtk_menu_set_accel_group(PGtkMenu(Widget), AnAccelGroup)
else begin else begin
{$IfDef GTK2} {$IfDef GTK2}
// Gtk2ToDo Assert(GtkWidgetIsA(Widget,GTK_TYPE_WINDOW));
DebugLn('ToDo: gtkproc.inc SetAccelGroup'); gtk_window_add_accel_group(GTK_WINDOW(widget), AnAccelGroup)
{$else} {$else}
gtk_accel_group_attach(AnAccelGroup, PGtkObject(Widget)); gtk_accel_group_attach(AnAccelGroup, PGtkObject(Widget));
{$endif} {$endif}
@ -6847,6 +7102,10 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.289 2004/07/30 14:26:11 mazen
* move HandleGtkKeyUpDown to gtkProc.inc make it visible to gtk2
this allow saving a call in a hevely called callback
Revision 1.288 2004/07/10 18:17:30 mattias Revision 1.288 2004/07/10 18:17:30 mattias
added Delphi ToDo support, Application.WndProc, small bugfixes from Colin added Delphi ToDo support, Application.WndProc, small bugfixes from Colin

27
lcl/interfaces/gtk/gtkproc.pp
View File

@ -217,22 +217,22 @@ function gtkListBoxSelectionChangedCB(widget: PGtkWidget;
// gtkDragCallback.inc headers // gtkDragCallback.inc headers
Function edit_drag_data_received(widget: pgtkWidget; Function edit_drag_data_received(widget: pgtkWidget;
Context: pGdkDragContext; Context: pGdkDragContext;
X: Integer; X: Integer;
Y: Integer; Y: Integer;
seldata: pGtkSelectionData; seldata: pGtkSelectionData;
info: Integer; info: Integer;
time: Integer; time: Integer;
data: pointer): GBoolean; cdecl; data: pointer): GBoolean; cdecl;
Function edit_source_drag_data_get(widget: pgtkWidget; Function edit_source_drag_data_get(widget: pgtkWidget;
Context: pGdkDragContext; Context: pGdkDragContext;
Selection_data: pGtkSelectionData; Selection_data: pGtkSelectionData;
info: Integer; info: Integer;
time: Integer; time: Integer;
data: pointer): GBoolean; cdecl; data: pointer): GBoolean; cdecl;
Function Edit_source_drag_data_delete (widget: pGtkWidget; Function Edit_source_drag_data_delete (widget: pGtkWidget;
context: pGdkDragContext; context: pGdkDragContext;
data: gpointer): gBoolean ; cdecl; data: gpointer): gBoolean ; cdecl;
// gtklistviewcallbacks.inc headers // gtklistviewcallbacks.inc headers
function gtkLVHScroll(AList: PGTKCList; AData: gPointer): GBoolean; cdecl; function gtkLVHScroll(AList: PGTKCList; AData: gPointer): GBoolean; cdecl;
@ -409,6 +409,9 @@ procedure RememberKeyEventWasHandledByLCL(Event: PGdkEventKey;
BeforeEvent: boolean); BeforeEvent: boolean);
function KeyEventWasHandledByLCL(Event: PGdkEventKey; function KeyEventWasHandledByLCL(Event: PGdkEventKey;
BeforeEvent: boolean): boolean; BeforeEvent: boolean): boolean;
function HandleGTKKeyUpDown(Widget: PGtkWidget; Event: PGdkEventKey;
Data: gPointer; BeforeEvent: boolean) : GBoolean;
// ---- // ----
// common dialogs // common dialogs

71
lcl/interfaces/gtk2/gtk2object.inc
View File

@ -62,15 +62,10 @@ end;
function GTK2KeyUpDown(Widget: PGtkWidget; Event : pgdkeventkey; function GTK2KeyUpDown(Widget: PGtkWidget; Event : pgdkeventkey;
Data: gPointer) : GBoolean; cdecl; Data: gPointer) : GBoolean; cdecl;
var
Status : gBoolean;
begin begin
Status := GTKKeyUpDown(Widget, Event, Data); Result := GtkWidgetIsA(Widget,GTK_APIWIDGETCLIENT_TYPE) and
HandleGtkKeyUpDown(Widget, Event, Data, True) and
if GtkWidgetIsA(Widget,GTK_APIWIDGETCLIENT_TYPE) then HandleGtkKeyUpDown(Widget, Event, Data, False);
Result := Status
else
Result := False;
end; end;
function GTK2KillFocusCB(widget: PGtkWidget; event:PGdkEventFocus; function GTK2KillFocusCB(widget: PGtkWidget; event:PGdkEventFocus;
@ -190,7 +185,7 @@ begin
case TWinControl(Sender).fCompStyle of case TWinControl(Sender).fCompStyle of
csMemo: csMemo:
begin begin
Widget:= GetWidgetInfo(Pointer(TWinControl(Sender).Handle), True)^.CoreWidget; Widget:= GetWidgetInfo(Pointer(TWinControl(Sender).Handle), True)^.CoreWidget;
aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(Widget)); aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(Widget));
gtk_text_buffer_begin_user_action(aTextBuffer); gtk_text_buffer_begin_user_action(aTextBuffer);
gtk_text_buffer_get_bounds(aTextBuffer, @aTextIter1, @aTextIter2); gtk_text_buffer_get_bounds(aTextBuffer, @aTextIter1, @aTextIter2);
@ -267,11 +262,11 @@ begin
gtk_tree_view_append_column (GTK_TREE_VIEW (TempWidget), column); gtk_tree_view_append_column (GTK_TREE_VIEW (TempWidget), column);
gtk_tree_view_column_set_clickable (GTK_TREE_VIEW_COLUMN (column), TRUE); gtk_tree_view_column_set_clickable (GTK_TREE_VIEW_COLUMN (column), TRUE);
g_signal_connect (renderer, 'toggled', g_signal_connect (renderer, 'toggled',
G_CALLBACK (@gtk_clb_toggle), G_CALLBACK (@gtk_clb_toggle),
Sender); Sender);
g_signal_connect (TempWidget, 'row_activated', g_signal_connect (TempWidget, 'row_activated',
G_CALLBACK (@gtk_clb_toggle_row_activated), G_CALLBACK (@gtk_clb_toggle_row_activated),
Sender); Sender);
TempInt := 1; TempInt := 1;
end; end;
@ -346,7 +341,7 @@ begin
end; end;
csMemo : begin csMemo : begin
Widget:= GetWidgetInfo(Pointer(TWinControl(Sender).Handle), True)^.CoreWidget; Widget:= GetWidgetInfo(Pointer(TWinControl(Sender).Handle), True)^.CoreWidget;
aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(Widget)); aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(Widget));
gtk_text_buffer_get_bounds(aTextBuffer, @aTextIter1, @aTextIter2); gtk_text_buffer_get_bounds(aTextBuffer, @aTextIter1, @aTextIter2);
CS := gtk_text_buffer_get_text(aTextBuffer, @aTextIter1, @aTextIter2, True); CS := gtk_text_buffer_get_text(aTextBuffer, @aTextIter1, @aTextIter2, True);
@ -378,15 +373,15 @@ begin
SetCallback(LM_PASTEFROMCLIP, AGTKObject,ALCLObject); SetCallback(LM_PASTEFROMCLIP, AGTKObject,ALCLObject);
end; end;
csMemo: csMemo:
begin begin
// SetCallback(LM_CHANGED, AGTKObject,ALCLObject); // SetCallback(LM_CHANGED, AGTKObject,ALCLObject);
//SetCallback(LM_ACTIVATE, AGTKObject,ALCLObject); //SetCallback(LM_ACTIVATE, AGTKObject,ALCLObject);
SetCallback(LM_CUTTOCLIP, AGTKObject,ALCLObject); SetCallback(LM_CUTTOCLIP, AGTKObject,ALCLObject);
SetCallback(LM_COPYTOCLIP, AGTKObject,ALCLObject); SetCallback(LM_COPYTOCLIP, AGTKObject,ALCLObject);
SetCallback(LM_PASTEFROMCLIP, AGTKObject,ALCLObject); SetCallback(LM_PASTEFROMCLIP, AGTKObject,ALCLObject);
//SetCallback(LM_INSERTTEXT, AGTKObject,ALCLObject); //SetCallback(LM_INSERTTEXT, AGTKObject,ALCLObject);
end; end;
end; //case end; //case
end end
else else
@ -578,14 +573,14 @@ begin
case TControl(Sender).fCompStyle of case TControl(Sender).fCompStyle of
csMemo: csMemo:
begin begin
Widget:= GetWidgetInfo(Pointer(Handle), true)^.CoreWidget; Widget:= GetWidgetInfo(Pointer(Handle), true)^.CoreWidget;
aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(Widget)); aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(Widget));
gtk_text_buffer_get_selection_bounds(aTextBuffer, @aTextIter1, nil); gtk_text_buffer_get_selection_bounds(aTextBuffer, @aTextIter1, nil);
result := gtk_text_iter_get_offset(@aTextIter1); result := gtk_text_iter_get_offset(@aTextIter1);
end; end;
csEdit: csEdit:
begin begin
Widget:= GTK_WIDGET(Pointer(Handle)); Widget:= GTK_WIDGET(Pointer(Handle));
if not gtk_editable_get_selection_bounds(GTK_EDITABLE(Widget),@result, nil) then if not gtk_editable_get_selection_bounds(GTK_EDITABLE(Widget),@result, nil) then
result := gtk_editable_get_position(GTK_EDITABLE(Widget)); result := gtk_editable_get_position(GTK_EDITABLE(Widget));
end; end;
@ -625,15 +620,15 @@ begin
if (Sender is TControl) then begin if (Sender is TControl) then begin
case TControl(Sender).fCompStyle of case TControl(Sender).fCompStyle of
csMemo: csMemo:
begin begin
Widget:= GetWidgetInfo(Pointer(Handle), true)^.CoreWidget; Widget:= GetWidgetInfo(Pointer(Handle), true)^.CoreWidget;
aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(Widget)); aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(Widget));
gtk_text_buffer_get_selection_bounds(aTextBuffer, @aTextIter1, @aTextIter2); gtk_text_buffer_get_selection_bounds(aTextBuffer, @aTextIter1, @aTextIter2);
result:= Abs(gtk_text_iter_get_offset(@aTextIter2) - gtk_text_iter_get_offset(@aTextIter1)); result:= Abs(gtk_text_iter_get_offset(@aTextIter2) - gtk_text_iter_get_offset(@aTextIter1));
end; end;
csEdit: csEdit:
begin begin
Widget:= GTK_WIDGET(Pointer(Handle)); Widget:= GTK_WIDGET(Pointer(Handle));
if gtk_editable_get_selection_bounds(GTK_EDITABLE(Widget),@result, @TempInt) then if gtk_editable_get_selection_bounds(GTK_EDITABLE(Widget),@result, @TempInt) then
result := TempInt - Result result := TempInt - Result
else else
@ -723,7 +718,7 @@ begin
case TControl(Sender).fCompStyle of case TControl(Sender).fCompStyle of
csMemo: csMemo:
begin begin
Widget:= GetWidgetInfo(Pointer(Handle), true)^.CoreWidget; Widget:= GetWidgetInfo(Pointer(Handle), true)^.CoreWidget;
aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(Widget)); aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(Widget));
Debugln('TODO(GTK2): IntSendMessage3, LM_SETSELSTART, csMemo'); Debugln('TODO(GTK2): IntSendMessage3, LM_SETSELSTART, csMemo');
{gtk_text_buffer_get_selection_bounds(aTextBuffer, @aTextIter1, nil); {gtk_text_buffer_get_selection_bounds(aTextBuffer, @aTextIter1, nil);
@ -732,7 +727,7 @@ begin
csEdit: csEdit:
begin begin
Widget:= GTK_WIDGET(Pointer(Handle)); Widget:= GTK_WIDGET(Pointer(Handle));
if gtk_editable_get_selection_bounds(GTK_EDITABLE(Widget),nil, @TempInt) then if gtk_editable_get_selection_bounds(GTK_EDITABLE(Widget),nil, @TempInt) then
If (Integer(Data) >= 0) and (Integer(Data)<=TempInt) then If (Integer(Data) >= 0) and (Integer(Data)<=TempInt) then
gtk_editable_select_region(GTK_EDITABLE(Widget), Integer(Data), TempInt+1); gtk_editable_select_region(GTK_EDITABLE(Widget), Integer(Data), TempInt+1);
@ -753,17 +748,17 @@ begin
if (Sender is TControl) then begin if (Sender is TControl) then begin
case TControl(Sender).fCompStyle of case TControl(Sender).fCompStyle of
csMemo: csMemo:
begin begin
Widget:= GetWidgetInfo(Pointer(Handle), true)^.CoreWidget; Widget:= GetWidgetInfo(Pointer(Handle), true)^.CoreWidget;
aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(Widget)); aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(Widget));
Debugln('TODO(GTK2): IntSendMessage3, LM_SETSELLEN, csMemo'); Debugln('TODO(GTK2): IntSendMessage3, LM_SETSELLEN, csMemo');
{gtk_text_buffer_get_selection_bounds(aTextBuffer, @aTextIter1, @aTextIter2); {gtk_text_buffer_get_selection_bounds(aTextBuffer, @aTextIter1, @aTextIter2);
result:= Abs(gtk_text_iter_get_offset(@aTextIter2) - gtk_text_iter_get_offset(@aTextIter1));} result:= Abs(gtk_text_iter_get_offset(@aTextIter2) - gtk_text_iter_get_offset(@aTextIter1));}
end; end;
csEdit: csEdit:
begin begin
Widget:= GTK_WIDGET(Pointer(Handle)); Widget:= GTK_WIDGET(Pointer(Handle));
if gtk_editable_get_selection_bounds(GTK_EDITABLE(Widget),@TempInt, nil) then if gtk_editable_get_selection_bounds(GTK_EDITABLE(Widget),@TempInt, nil) then
gtk_editable_select_region(GTK_EDITABLE(Widget), TempInt, TempInt+Integer(Data)+1) gtk_editable_select_region(GTK_EDITABLE(Widget), TempInt, TempInt+Integer(Data)+1)
else else
@ -1033,15 +1028,15 @@ begin
AccelKey:= gtk_label_get_mnemonic_keyval(pGtkLabel(Widget)); AccelKey:= gtk_label_get_mnemonic_keyval(pGtkLabel(Widget));
Accelerate(TComponent(Sender),Widget,AccelKey,0,'grab_focus'); Accelerate(TComponent(Sender),Widget,AccelKey,0,'grab_focus');
finally finally
StrDispose(aLabel); StrDispose(aLabel);
end; end;
end else begin end else begin
If TLabel(sender).WordWrap then begin If TLabel(sender).WordWrap then begin
DC := GetDC(TLabel(Sender).Handle); DC := GetDC(TLabel(Sender).Handle);
aLabel := ForceLineBreaks(DC, pLabel, TLabel(Sender).Width, False); aLabel := ForceLineBreaks(DC, pLabel, TLabel(Sender).Width, False);
gtk_label_set_label(PGtkLabel(Widget), aLabel); gtk_label_set_label(PGtkLabel(Widget), aLabel);
StrDispose(aLabel); StrDispose(aLabel);
DeleteDC(DC); DeleteDC(DC);
end end
else else
@ -1158,12 +1153,12 @@ begin
If (TCustomMemo(Sender).MaxLength >= 0) then begin If (TCustomMemo(Sender).MaxLength >= 0) then begin
aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(ImplWidget)); aTextBuffer := gtk_text_view_get_buffer(GTK_TEXT_VIEW(ImplWidget));
i:= gtk_text_buffer_get_char_count(aTextBuffer); i:= gtk_text_buffer_get_char_count(aTextBuffer);
if i > TCustomMemo(Sender).MaxLength then begin if i > TCustomMemo(Sender).MaxLength then begin
gtk_text_buffer_get_bounds(aTextBuffer, nil, @aTextIter2); gtk_text_buffer_get_bounds(aTextBuffer, nil, @aTextIter2);
gtk_text_buffer_get_iter_at_offset(aTextBuffer, @aTextIter1, i); gtk_text_buffer_get_iter_at_offset(aTextBuffer, @aTextIter1, i);
gtk_text_buffer_delete(aTextBuffer, @aTextIter1, @aTextIter2); gtk_text_buffer_delete(aTextBuffer, @aTextIter1, @aTextIter2);
end; end;
end; end;
end; end;
else else
@ -1380,6 +1375,10 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.14 2004/07/30 14:26:11 mazen
* move HandleGtkKeyUpDown to gtkProc.inc make it visible to gtk2
this allow saving a call in a hevely called callback
Revision 1.13 2004/07/15 10:43:39 mattias Revision 1.13 2004/07/15 10:43:39 mattias
added TCustomButton, TCustomBitBtn, TCustomSpeedButton added TCustomButton, TCustomBitBtn, TCustomSpeedButton