fpc r32025 lazarus r50043 qtx64

/opt/lazarus/lcl/interfaces/qt/qtobjects.pas
line 3088

     //if vFont  nil then
     if Assigned(vFont)then
     begin
       if vFont.FHandle  nil then  <-- ?n orjinal code I get access

voilation , while debuging, move mouse on vFont its viewing "nil" but if condition work TRUE, I changed to Assigned then work normal?

/opt/lazarus/lcl/interfaces/qt/qtobjects.pas
line 3116
//if (AFont.FHandle  nil) and (Widget  nil)  then
if (AFont.FHandle  nil) and (Widget  nil) and Assigned(vFont) then

if this is normal I'll make pacth for this two changing

note:
after this error, in editor toolbar I have "Open packages of current unit" icon, its start blink.?

[...] note: after this error, in editor toolbar I have "Open packages of current unit" icon, its start blink.?

I see this too under Linux/Gtk2.

Juha?

Mattias

Probably my problem.

Ondrej

Since freeman hasn't created a bug report and I am too lazy to write one myself, I sent the patch here.

Ondrej
-------------- next part --------------
Index: ide/main.pp
===================================================================
--- ide/main.pp	(revision 50059)
+++ ide/main.pp	(working copy)
@@ -3729,16 +3729,19 @@
   CanOpenPkgOfFile, CanAddCurFile: Boolean;
 begin
   GetCurrentUnit(ASrcEdit,AUnitInfo);
-  if Assigned(AUnitInfo) and (AUnitInfo.Filename  FLastUnitInfoFileName) then
+  if Assigned(AUnitInfo) then
   begin
-    PkgFile:=PackageGraph.FindFileInAllPackages(AUnitInfo.Filename,true,
-                                          not AUnitInfo.IsPartOfProject);
-    CanOpenPkgOfFile:=Assigned(PkgFile);
-    CanAddCurFile:=(not AUnitInfo.IsVirtual) and FileExistsUTF8(AUnitInfo.Filename)
-          and not AUnitInfo.IsPartOfProject;
-    MainIDEBar.itmPkgOpenPackageOfCurUnit.Enabled:=CanOpenPkgOfFile;
-    MainIDEBar.itmPkgAddCurFileToPkg.Enabled:=CanAddCurFile;
-    FLastUnitInfoFileName := AUnitInfo.Filename;
+    if (AUnitInfo.Filename  FLastUnitInfoFileName) then
+    begin
+      PkgFile:=PackageGraph.FindFileInAllPackages(AUnitInfo.Filename,true,
+                                            not AUnitInfo.IsPartOfProject);
+      CanOpenPkgOfFile:=Assigned(PkgFile);
+      CanAddCurFile:=(not AUnitInfo.IsVirtual) and FileExistsUTF8(AUnitInfo.Filename)
+            and not AUnitInfo.IsPartOfProject;
+      MainIDEBar.itmPkgOpenPackageOfCurUnit.Enabled:=CanOpenPkgOfFile;
+      MainIDEBar.itmPkgAddCurFileToPkg.Enabled:=CanAddCurFile;
+      FLastUnitInfoFileName := AUnitInfo.Filename;
+    end;
   end else
   begin
     MainIDEBar.itmPkgOpenPackageOfCurUnit.Enabled:=False;

Ondrej Pokorny wrote

Since freeman hasn't created a bug report and I am too lazy to write one myself, I sent the patch here.

Applied in r50063, thanks.

Juha