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

LCL and IDE, gtk, TArrow now is sensible to mouse events, fixes ProjectOptions->Forms arrows

Browse Source 
git-svn-id: trunk@11418 -
This commit is contained in:
jesus 2007-07-04 06:21:45 +00:00
parent 26224b2923
commit 7bae212259
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk/gtkobject.inc
View File

@ -4953,7 +4953,11 @@ begin
csArrow :
begin
p := gtk_arrow_new(gtk_arrow_left,gtk_shadow_etched_in);
P := gtk_event_box_new();
TempWidget := gtk_arrow_new(gtk_arrow_left, gtk_shadow_etched_in);
gtk_container_add(p, TempWidget);
gtk_widget_show(TempWidget);
gtk_object_set_data(P, 'arrow', TempWidget);
end;
csBitBtn,

6
lcl/interfaces/gtk/gtkwsarrow.pp
View File

@ -56,6 +56,7 @@ class procedure TGtkWSArrow.SetType(const AArrow: TArrow; const AArrowType: TArr
var
ArrowType : TGTKArrowType;
ShadowType : TGTKShadowType;
ArrowWidget: PGtkArrow;
begin
case AArrowType of
atUp: ArrowType := GTK_ARROW_UP;
@ -75,7 +76,8 @@ begin
ShadowType := GTK_SHADOW_NONE;
end;
gtk_arrow_set(PGtkArrow(AArrow.Handle), ArrowType, ShadowType);
ArrowWidget := gtk_object_get_data(PGtkObject(AArrow.Handle), 'arrow');
gtk_arrow_set(ArrowWidget, ArrowType, ShadowType);
end;
initialization
@ -88,4 +90,4 @@ initialization
////////////////////////////////////////////////////
RegisterWSComponent(TArrow, TGtkWSArrow);
////////////////////////////////////////////////////
end.
end.