paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 19:17:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: less hints

Browse Source 
git-svn-id: trunk@64681 -
This commit is contained in:
mattias 2021-02-28 08:51:17 +00:00
parent 3956e7c461
commit f45d7ed2c4
10 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3394,7 +3394,7 @@ begin
if selection_data^.data <> nil then // data is list of uri
try
SetLength(Files, 0);
SetLength(Files{%H-}, 0);
S := TStringList.Create;
try
S.Text := PChar(selection_data^.data);

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

@ -875,7 +875,7 @@ function gtk_message_dialog_get_message_area(Dialog:PGtkMessageDialog):PGtkWidge
procedure set_message_text(Dialog:PGtkMessageDialog;const msg: string;const is_pango_markup:boolean=false);
var
ma:PGtkWidget;
mainList,ChildList:PgList;
mainList:PgList;
begin
if is_pango_markup then
gtk_message_dialog_set_markup(Dialog, PGChar(msg))

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

@ -3365,7 +3365,7 @@ begin
// get all values for this keycode for all groups and level
if not gdk_keymap_get_entries_for_keycode(GdkKeymap, KeyCode, KeymapKeys, KeyVals, @KeySymCount) then
Continue;
SetLength(KeySyms, KeySymCount);
SetLength(KeySyms{%H-}, KeySymCount);
Move(KeyVals^, KeySyms[0], SizeOf(KeySyms[0]) * KeySymCount);
g_free(KeymapKeys); // unused but we cannot pass a nil as param
g_free(KeyVals);

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

@ -103,7 +103,7 @@ procedure gtkchanged_editbox_delete_text(Widget: PGtkWidget;
procedure gtkchanged_editbox_insert_text(Widget: PGtkWidget; {%H-}ANewText: PgChar;
{%H-}ANewTextLength: gint; {%H-}APosition: pgint; {%H-}data: gPointer); cdecl;
function gtkchanged_editbox( widget: PGtkWidget; data: gPointer): GBoolean; cdecl;
function gtkchanged_editbox_delete(widget: PGtkWidget;
function gtkchanged_editbox_delete({%H-}widget: PGtkWidget;
{%H-}AType: TGtkDeleteType; {%H-}APos: gint; {%H-}data: gPointer): GBoolean; cdecl;
function gtkdaychanged(Widget: PGtkWidget; data: gPointer): GBoolean; cdecl;
function gtktoggledCB( widget: PGtkWidget; data: gPointer): GBoolean; cdecl;

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

@ -6454,7 +6454,7 @@ end;
{$IFDEF HASX}
{.$DEFINE DEBUGGTK2FRAMESIZE}
function Gtk2DummyWidgetEvent(AWidget: PGtkWidget; AEvent: PGdkEvent; AData: GPointer): gboolean; cdecl;
function Gtk2DummyWidgetEvent({%H-}AWidget: PGtkWidget; AEvent: PGdkEvent; AData: GPointer): gboolean; cdecl;
begin
Result := CallBackDefaultReturn;
if (AEvent^._type = GDK_EXPOSE) then

6
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -1317,7 +1317,7 @@ begin
// Choose a large enough amount of points
n_points := Max(X2-X1,Y2-Y1) * 4;
SetLength(points, n_points);
SetLength(points{%H-}, n_points);
// And fill them iterating through the ellipse
for i := 0 to n_points - 1 do
begin
@ -2726,7 +2726,7 @@ begin
Exit;
end;
SetLength(AStr,Count);
SetLength(AStr{%H-},Count);
if Count>0 then
System.Move(Str^,AStr[1],Count);
@ -6908,7 +6908,7 @@ begin
if NumPts <= 0 then Exit(True);
//Create a copy of the points so we can freely alter them
SetLength(ThePoints, NumPts);
SetLength(ThePoints{%H-}, NumPts);
for i := 0 to NumPts - 1 do ThePoints[i] := Points[i];
PThePoints := @ThePoints[0];

3
lcl/interfaces/gtk2/gtk2wscalendar.pp
View File

@ -95,13 +95,12 @@ type
function SetCalendarDisplayOptionsTimer(data: gpointer): gboolean; cdecl;
Var
AGtkCalendarInternalTimer : PGtkCalendarInternalTimer absolute data;
Agboolean : gboolean;
AGtkCalendar: PGtkCalendar;
begin
Result := False;
AGtkCalendar := TGtk2WSCustomCalendar.GetCalendar(AGtkCalendarInternalTimer^.ACalendar);
gtk_Calendar_Display_options(AGtkCalendar, AGtkCalendarInternalTimer^.gtkcalendardisplayoptions);
Agboolean := g_source_remove(AGtkCalendarInternalTimer^.ATimerSourceID);
g_source_remove(AGtkCalendarInternalTimer^.ATimerSourceID);
Dispose(AGtkCalendarInternalTimer);
end;

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

@ -154,7 +154,7 @@ type
class procedure ColumnSetWidth(const ALV: TCustomListView; const AIndex: Integer; const {%H-}AColumn: TListColumn; const AWidth: Integer); override;
class procedure ColumnSetVisible(const ALV: TCustomListView; const AIndex: Integer; const {%H-}AColumn: TListColumn; const AVisible: Boolean); override;
class procedure ColumnSetSortIndicator(const ALV: TCustomListView; const AIndex: Integer;
const AColumn: TListColumn; const ASortIndicator: TSortIndicator);
const {%H-}AColumn: TListColumn; const ASortIndicator: TSortIndicator);
override;
// items

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

@ -412,7 +412,7 @@ begin
Result := nil;
end;
procedure gtkDefaultPopupMenuDeactivate(Widget: PGtkWidget; data: gPointer); cdecl;
procedure gtkDefaultPopupMenuDeactivate({%H-}Widget: PGtkWidget; {%H-}data: gPointer); cdecl;
begin
LastMouse.Button := 0;
LastMouse.ClickCount := 0;
@ -422,9 +422,10 @@ begin
LastMouse.WinControl := nil;
end;
function gtkDefaultPopupMenuCloseFix(Widget: PGtkWidget; Menu: PGtkMenu;
data: gPointer): gboolean; cdecl;
function gtkDefaultPopupMenuCloseFix({%H-}Widget: PGtkWidget; Menu: PGtkMenu;
{%H-}data: gPointer): gboolean; cdecl;
begin
Result:=CallBackDefaultReturn;
// needed because closing popup menu without clicking on any menu item
// freezes various controls, eg SpeedButton
g_signal_connect(PGtkObject(Menu), 'deactivate',

4
lcl/lclproc.pas
View File

@ -673,13 +673,13 @@ const
function CompareDebugLCLItemInfos(Data1, Data2: Pointer): integer;
begin
Result:=ComparePointers(TDebugLCLItemInfo(Data1).Item,
Result:={%H-}ComparePointers(TDebugLCLItemInfo(Data1).Item,
TDebugLCLItemInfo(Data2).Item);
end;
function CompareItemWithDebugLCLItemInfo(Item, DebugItemInfo: Pointer): integer;
begin
Result:=ComparePointers(Item,TDebugLCLItemInfo(DebugItemInfo).Item);
Result:={%H-}ComparePointers(Item,TDebugLCLItemInfo(DebugItemInfo).Item);
end;
function KeyCodeToKeyString(Key: TShortCut; Localized: boolean): string;