Obtenir un TBGLBitmap à partir d'un fichier ressource

Bonjour à toutes et à tous,

Pour obtenir un TBitMap, on utilise :

Code:

---

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

---

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

Code:

---

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

Et avec la fonction LoadFromResource de BGRABitmap?

Citation:

---

Envoyé par circular17

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

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

Citation:

---

Envoyé par 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

---

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

Code:

---

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

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.

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

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:

---

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

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

Citation:

---

Envoyé par circular17

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 :oops:

j'ai écrit ceci:

Code:

---

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

---

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

Code:

---

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

Ah mais non c'est:

Code:

---

bmpNord := TBGLBitmap.Create;

---

Citation:

---

Envoyé par circular17

Ah mais non c'est:

Code:

---

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

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:

---

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:

---

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

---

Citation:

---

Envoyé par circular17

... 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:

---

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:

---

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:

---

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

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.

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 ?

Citation:

---

Envoyé par 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 ?

---

Oui, et encore oui :D, ç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

Cool. :)

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