paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-24 17:51:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix compilation for {$T+}

Browse Source 
git-svn-id: trunk@10042 -
This commit is contained in:
micha 2006-10-05 16:55:43 +00:00
parent 4ec93f00e4
commit ad37c9edfd
4 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -88,7 +88,7 @@ begin
{$IFDEF DirectPaintMsg}
PaintMsg:= GtkPaintMessageToPaintMessage(Msg,true);
Result := DeliverMessage(Target,PaintMsg) = 0;
FinalizePaintMessage(@PaintMsg);
FinalizePaintMessage(PLMessage(@PaintMsg));
{$ELSE}
Result:=DeliverPostMessage(Target,Msg);
{$ENDIF}
@ -3049,7 +3049,7 @@ begin
BufLength:=0;
gdk_string_to_compound_text(P,
@SelectionData^.{$ifdef GTK2}_Type{$ELSE}theType{$ENDIF},
@SelectionData^.Format,pguchar(@Buffer),@BufLength);
@SelectionData^.Format,ppguchar(@Buffer),@BufLength);
StrDispose(P);
gtk_selection_data_set(SelectionData,SelectionData^.Target,
SelectionData^.Format,Buffer,BufLength);

2
lcl/interfaces/gtk2/gtk2int.pas
View File

@ -35,7 +35,7 @@ uses
Types, Classes, SysUtils,
{$IfNDef GTK2_2}
{$IfNDef Win32}
XLib, //X, XUtil,
XLib, X, //XUtil,
{$EndIf}
{$EndIf}

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

@ -400,7 +400,7 @@ function TGtk2WidgetSet.GetCursorPos(var lpPoint: TPoint ): Boolean;
{$IfnDef GTK2_2} //we need a GTK2_2 FLAG somehow
{$IfNDef Win32}
var
root, child: pointer;
root, child: TWindow;
winx, winy: Integer;
xmask: Cardinal;
TopList, List: PGList;

14
lcl/interfaces/gtk2/gtk2wscustomlistview.inc
View File

@ -47,7 +47,7 @@ begin
NM.iSubItem := 0;
NM.uNewState := LVIS_FOCUSED;
NM.uChanged := LVIF_STATE;
msg.NMHdr := @NM;
msg.NMHdr := @NM.hdr;
DeliverMessage(WidgetInfo^.LCLObject, msg);
end;
@ -65,7 +65,7 @@ begin
NM.hdr.hwndfrom := PtrInt(WidgetInfo^.CoreWidget);
NM.hdr.code := LVN_DELETEITEM;
NM.iItem := StrToInt(gtk_tree_path_to_string(path));
msg.NMHdr := @NM;
msg.NMHdr := @NM.hdr;
DeliverMessage(WidgetInfo^.LCLObject, msg);
ALV := TLVHack(WidgetInfo^.LCLObject);
@ -89,7 +89,7 @@ begin
NM.hdr.hwndfrom := PtrInt(WidgetInfo^.CoreWidget);
NM.hdr.code := LVN_INSERTITEM;
NM.iItem := StrToInt(gtk_tree_path_to_string(path));
msg.NMHdr := @NM;
msg.NMHdr := @NM.hdr;
DeliverMessage(WidgetInfo^.LCLObject, msg);
end;
@ -126,7 +126,7 @@ begin
NM.hdr.code := LVN_COLUMNCLICK;
NM.iItem := -1;
NM.iSubItem := AColumn.Index;
msg.NMHdr := @NM;
msg.NMHdr := @NM.hdr;
DeliverMessage(WidgetInfo^.LCLObject, msg);
end;
@ -160,7 +160,7 @@ begin
else
NM.uNewState := LVIS_SELECTED;
NM.uChanged := LVIF_STATE;
msg.NMHdr := @NM;
msg.NMHdr := @NM.hdr;
DeliverMessage(WidgetInfo^.LCLObject, msg);
@ -193,7 +193,7 @@ begin
NM.iSubItem := 0;//AColumn;
NM.uNewState := LVIS_SELECTED;
NM.uChanged := LVIF_STATE;
msg.NMHdr := @NM;
msg.NMHdr := @NM.hdr;
{Result := }DeliverMessage(WidgetInfo^.LCLObject, msg){ = 0};
if not Result then Exit;
@ -1041,7 +1041,7 @@ class function TGtk2WSCustomListView.GetSelection(const ALV: TCustomListView
): Integer;
var
Widgets: PTVWidgets;
Iter: PGtkTreeIter;
Iter: TGtkTreeIter;
Path: PGtkTreePath;
begin
Result := -1;