bonjour

j'ai porté TFormresizer sous lazarus.
il se compile très bien en ajoutant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
{$MODE DELPHI}
et s'installe sans erreur.
j'ai crée un exemple et je l'ai ajouté mais lorsque je ferme la form sur lequelle il est, j'ai une violation d'accès dans TFormresizer

je n'ai pas l'erreur lorsque le programme tourne en dehors de lazarus.

j'ai essayé de compiler en mode fpc mais la j'ai une erreur a la compilation

/home/claude/Documents/eri/lazarus/a_porter/easysize/lazarus/easysize.pas(119,17) Error: Illegal type conversion: "Int64" to "TFont"

sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Result := TFont(GetOrdProp(Component, ptrPropInfo)));
de la fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
function GetCompFont(Component : TComponent) : TFont;
var ptrPropInfo : PPropInfo;
begin
  ptrPropInfo := GetPropInfo(Component.ClassInfo, 'Font');
  if ptrPropInfo = nil then
     Result := nil
  else
      Result := TFont(GetOrdProp(Component, ptrPropInfo)));
end;

quelqu'un a il une idée?
merci
cordialement
Claude