paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-29 14:24:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: gtk2: less hints

Browse Source 
git-svn-id: trunk@54270 -
This commit is contained in:
mattias 2017-02-25 12:26:50 +00:00
parent 63b12d5281
commit 673bc11392
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/translations.pas
View File

@ -572,7 +572,7 @@ begin
end;
end;
function Translate (Name,Value : AnsiString; Hash : Longint; arg:pointer) : AnsiString;
function Translate (Name,Value : AnsiString; {%H-}Hash : Longint; arg:pointer) : AnsiString;
var
po: TPOFile;
begin

4
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -2721,14 +2721,14 @@ end;
function gtkPasteFromClip( widget: PGtkWidget; data: gPointer) : GBoolean; cdecl;
var
Mess : TLMessage;
Info: PWidgetInfo;
//Info: PWidgetInfo;
begin
EventTrace('Paste from clip', data);
// we must update cursor pos with delay otherwise selStart is wrong.issue #7243
if (Widget <> nil) and (GTK_IS_ENTRY(Widget)) then
begin
Info := GetWidgetInfo(Widget, False);
//Info := GetWidgetInfo(Widget, False);
//Include(Info^.Flags, wwiInvalidEvent);
// happy end is inside gtkchanged_editbox() above.
g_object_set_data(PGObject(Widget),'lcl-delay-cm_textchanged', data);

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

@ -157,7 +157,7 @@ function gtkMouseBtnPress(widget: PGtkWidget; event: pgdkEventButton;
data: gPointer): GBoolean; cdecl;
function gtkMouseBtnPressAfter(widget: PGtkWidget; event: pgdkEventButton;
data: gPointer): GBoolean; cdecl;
function ControlGetsMouseUpBefore(AControl: TControl): boolean;
function ControlGetsMouseUpBefore({%H-}AControl: TControl): boolean;
function DeliverMouseUpMessage(widget: PGtkWidget; event: pgdkEventButton;
AWinControl: TWinControl): boolean;
function gtkMouseBtnRelease(widget: PGtkWidget; event: pgdkEventButton;

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

@ -1048,7 +1048,7 @@ begin
bVisible := AWinControl.HandleObjectShouldBeVisible;
if bVisible then
gtk_window_set_type_hint(PGtkWindow(AWinControl.Handle), GDK_WINDOW_TYPE_HINT_TOOLTIP);
gtk_window_set_type_hint({%H-}PGtkWindow(AWinControl.Handle), GDK_WINDOW_TYPE_HINT_TOOLTIP);
Gtk2WidgetSet.SetVisible(AWinControl, bVisible);
InvalidateLastWFPResult(AWinControl, AWinControl.BoundsRect);
end;