Discussion :

[ChPr]

Bonjour à toutes et à tous,

Pour obtenir un TBitMap, on utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  MonBmp:= TBitMap(CreateBitmapFromLazarusResource('monImage'));

L'un d'entre vous (honte à moi, je ne retrouve plus qui ) m'a donné la solution pour obtenir un TBGRABitmap :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
function BGRABitmapFromResource(NomRes: String): TBGRABitmap;
var
  Pict: TPicture;
begin
   Pict:= TPicture.Create;
   Pict.LoadFromLazarusResource(NomRes);
   Result:= TBGRABitmap.Create(Pict.Bitmap);
   Pict.Free;
end;

Malheureusement, aucune de ces deux méthodes ne permet d'obtenir un TBGLBitmap.

Avez-vous une idée de la manière de procéder ?

Cordialement.

Pierre

[circular17]

Et avec la fonction LoadFromResource de BGRABitmap?

[ChPr]

Et avec la fonction LoadFromResource de BGRABitmap?

Avec ma version 9.6.2, je n'ai pas trouvé cette fonction. De plus, je pense que ce devrait être une fonction de BGLBitmap ?

Cordialement.

Pierre

[circular17]

Ah oui c’est à partir de la version 9.9.3.
https://github.com/bgrabitmap/bgrabi...ses/tag/v9.9.3

Une fonction de TBGRABitmap se retrouve en principe dans TBGLBitmap puisque cette classe dérive de l’autre.

Cordialement

[ChPr]

Ah oui c’est à partir de la version 9.9.3.
https://github.com/bgrabitmap/bgrabi...ses/tag/v9.9.3

Une fonction de TBGRABitmap se retrouve en principe dans TBGLBitmap puisque cette classe dérive de l’autre.

Cordialement

J'ai téléchargé cette version et l'ai installé. Ça compile, mais à l'exécution, ça plante avec l'erreur "SIGSEGV".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    bmpNord.LoadFromResource('cap_bsl.PNG', [loBmpAutoOpaque]); //que je place 'cap_bsl' ou 'cap_bsl.png' ou cap_bsl.PNG', c'est la même chose

Par ailleurs :

Mes cadrages sont changés (une demi-fenêtre d'affichage en X a priori) et l'affichage d'un texte me le rend la tête en bas et aussi décadré !

Cordialement.

Pierre

[circular17]

Ce sera plus facile de localiser le problème et de trouver une solution si tu utilises la dernière version. Comme ça tu pourrais me donner la ligne exacte où se produit l’erreur. Pour cela, il faudra désactiver les optimisations et activer les infos de déboggage. Mais déjà il faudrait voir si le problème arrive avec la dernière version.

[BeanzMaster]

Salut Pierre

Comment as tu formé ton fichier ressource LRS ?


Si jamais dans le dossier de Lazarus il y a un sous dossier Tools avec un utilitaire nommé GlazRes si non tu peux en trouver également un autre ici : https://sourceforge.net/projects/lrsexplorer/ et la https://github.com/adnan360/lrs-maker il te faudra juste copier l'utilitaire en ligne de commande Lazres dans le dossier des applications.
Il faut également faire attention à la casse des caractères (cap_bsl <> Cap_bsl) si je me souviens bien et évites peut-être les caractères spéciaux comme le underscore (capbsl)

Bon dimanche

[ChPr]

Avec la dernière version 10.2 :

• LoadfromResource plante avec la même erreur, et même avec le débogage actif et sans optimisation, je ne peux pas entrer dans cette procédure pour y voir ce qui se passe.
• Mon défaut de cadrage a disparu. Avec toutes ces modifs, j'ai dû faire une fausse manip,
• L'affichage de texte avec TextOut dans cette procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TAffCarte.Aff_Infos(Txt: String; STxt: Integer; PTxt: TPointF; ClTxt: TBGRAPixel);
var
  LText, HText: Extended;
begin
  TextGPS:= BGLFont('Arial', STxt, ClTxt, [fsBold]); // STxt est la taille du texte
  LText:= TextGPS.TextWidth(Txt);
  HText:= TextGPS.TextHeight(Txt);
  BGLCanvas.FillRoundRect(PTxt.X-LText/2-5, PTxt.Y-3, PTxt.X+LText/2+5, PTxt.Y+HText+3, 10, 10, ClFond, [rrDefault], True);
  TextGPS.TextOut(PTxt.X-LText/2, PTxt.Y, Txt, ClTxt);
end;

• me donne une écriture la tête en bas pour une taille de texte > 20 ?
• Sous Raspbian STRETCH (environnement linux pour Raspberry), la compilation du paquet BGRABitmap.pack.lpk plante à la ligne 1538 du fichier "unibitmap.inc" car il n'y a pas le bon nombre de paramètres pour la fonction Intersect.

Cordialement.

Pierre

[circular17]

Hmmm Pierre, as-tu pensé à allouer l’image avec Create avant de faire LoadFromResource?

[ChPr]

Hmmm Pierre, as-tu pensé à allouer l’image avec Create avant de faire LoadFromResource?

Belle erreur de ma part, je ne l'avais pas fait

j'ai écrit ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    BmpNord.Create(96, 96); // Taille de mon image

Ça compile, mais ça plante avec l'erreur "SIGSEGV".
J'écris alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    BmpNord.Create(96, 96, VGABlack);
    BmpNord.LoadFromResource('cap_bsl');

La création passe, mais ça plante au loadFromResource avec la même erreur.

Cordialement.

Pierre

[circular17]

Ah mais non c'est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

bmpNord := TBGLBitmap.Create;

[ChPr]

Ah mais non c'est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

bmpNord := TBGLBitmap.Create;

Oh oui, c'est vrai, je n'ai plus toute ma tête en ce moment. Merci.

Pour autant, restent les deux autres problèmes cités plus haut.

Cordialement.

Pierre

[circular17]

Ok.

Concernant l'erreur de compilation, si tu fais CTRL-Click sur le nom "Intersect" de la ligne 1538, est-ce que tu arrives dans l'unité "typshrdh.inc" et avec cela?

Code delph :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
       class function Intersect(R1: TRect; R2: TRect): TRect; static;
       procedure Intersect(R: TRect);

Sinon est-ce que remplacer la ligne 1538 par ces deux lignes résout la compilation?

Code delphi :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
actualRect := ARect;
actualRect.Intersect(rect(0,0,Width,Height));

[ChPr]

... Concernant l'erreur de compilation, si tu fais CTRL-Click sur le nom "Intersect" de la ligne 1538, est-ce que tu arrives dans l'unité "typshrdh.inc" et avec cela?

Code delph :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
       class function Intersect(R1: TRect; R2: TRect): TRect; static;
       procedure Intersect(R: TRect);

Non, j'arrive dans le fichier "geometrytypes.inc" à la ligne 62 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

procedure Intersect(const(ARect: TRect);

J'essaie néanmoins ce que tu me proposes, ça compile pour ce fichier, mais il faut que je fasse la même chose dans l'unité "BGRAGrayScaleMask" à la ligne 440. Ça passe, mais je me retrouve avec l'erreur suivante dans l'unité BGRATextBidi à la ligne 1457 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

identifier idents no member intersectswith

Je ne vais pas modifier tous ces fichiers.

Par ailleurs, sur mon PC, sous Windows et Ubuntu, j'ai Lazarus 1.6.4 et ça passe sans problème. Par contre, sur mon Raspberry Pi3 B+, j'ai Lazarus 1.6.2. Est-ce que le problème peut venir de là ?

Et toujours l'erreur de texte "up side down" pour une taille supérieure à 20.

Cordialement.

Pierre

[circular17]

Ok donc oui c'est une question de version de FPC. Oui ne t'embête pas à tout modifier parce que tu n'utilises pas Git alors je ne peux pas incorporer facilement tes changements.

Je vais essayer d'installer une ancienne version et colmater les trous dans la compilation.

Pour le texte à l'envers, je vais voir si je peux reproduire le problème ou trouver la raison.

[circular17]

Re,

J'ai résolu le problème de compilation avec FPC 3.0.0 et le bug d'inversion verticale du texte (sous Windows). C'est dans la version 10.3.

https://github.com/bgrabitmap/bgrabitmap/releases

Est-ce que cela fonctionne pour toi aussi ?

[ChPr]

Re,

J'ai résolu le problème de compilation avec FPC 3.0.0 et le bug d'inversion verticale du texte (sous Windows). C'est dans la version 10.3.

https://github.com/bgrabitmap/bgrabitmap/releases

Est-ce que cela fonctionne pour toi aussi ?

Oui, et encore oui , ça fonctionne sous Windows et avec mon Raspberry (pas encore essayé sous Ubuntu, mais je n'y vois a priori pas de problème).

Un grand merci, tu as été d'une efficacité redoutable !

Cordialement.

Pierre

[circular17]

Cool.

Merci de m’avoir aidé à trouver le problème.