paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-26 12:42:09 +01: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} {$IFDEF DirectPaintMsg}
PaintMsg:= GtkPaintMessageToPaintMessage(Msg,true); PaintMsg:= GtkPaintMessageToPaintMessage(Msg,true);
Result := DeliverMessage(Target,PaintMsg) = 0; Result := DeliverMessage(Target,PaintMsg) = 0;
FinalizePaintMessage(@PaintMsg); FinalizePaintMessage(PLMessage(@PaintMsg));
{$ELSE} {$ELSE}
Result:=DeliverPostMessage(Target,Msg); Result:=DeliverPostMessage(Target,Msg);
{$ENDIF} {$ENDIF}
@ -3049,7 +3049,7 @@ begin
BufLength:=0; BufLength:=0;
gdk_string_to_compound_text(P, gdk_string_to_compound_text(P,
@SelectionData^.{$ifdef GTK2}_Type{$ELSE}theType{$ENDIF}, @SelectionData^.{$ifdef GTK2}_Type{$ELSE}theType{$ENDIF},
@SelectionData^.Format,pguchar(@Buffer),@BufLength); @SelectionData^.Format,ppguchar(@Buffer),@BufLength);
StrDispose(P); StrDispose(P);
gtk_selection_data_set(SelectionData,SelectionData^.Target, gtk_selection_data_set(SelectionData,SelectionData^.Target,
SelectionData^.Format,Buffer,BufLength); SelectionData^.Format,Buffer,BufLength);

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

@ -35,7 +35,7 @@ uses
Types, Classes, SysUtils, Types, Classes, SysUtils,
{$IfNDef GTK2_2} {$IfNDef GTK2_2}
{$IfNDef Win32} {$IfNDef Win32}
XLib, //X, XUtil, XLib, X, //XUtil,
{$EndIf} {$EndIf}
{$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 GTK2_2} //we need a GTK2_2 FLAG somehow
{$IfNDef Win32} {$IfNDef Win32}
var var
root, child: pointer; root, child: TWindow;
winx, winy: Integer; winx, winy: Integer;
xmask: Cardinal; xmask: Cardinal;
TopList, List: PGList; TopList, List: PGList;

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

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