[Lazarus] Problème avec Tbrush.style

Bonsoir,

Voilà, j'ai un projet de gestion de collection de télécartes déjà bien abouti realisé avec Lazarus sous Windows et Linux.

J'utilise pour la coloration des lignes l'exemple de la FAQ Delphi : http://delphi.developpez.com/faq/?pa...un-TStringGrid.
Cela fonctionne très bien.

Mais où j'ai un souci c'est pour définir un Tbrush avec un style personnalisé au lieu des BsHorizontal / BsCross ...
Y a-t-il moyen de définir un "patern" pour TstringGrid.canvas.brush.style ??

Et 2ième petit souci : si j'utilise par Ex

Code:

---

MonStringGrid.canvas.brush.style := BsCross

---

sous linux ça me donne bien une sorte de quadrillage mais ça ne donne rien sous windows !!

Merci de vos réponses et solutions.

Je n'ai qu'un pc sous win allumé pour tester celà vite fait ce soir, aussi n'ai je testé que sous win ma réponse à ta première question :

Comment utiliser une brosse personnalisée dans une stringgrid?

L'exemple ci-dessous utilise une image existant sur le disque dur,

Code:

---

1 2 3 4 5 6 7 8

procedure MyBrushFromFile; var a :tbitmap; begin a := tbitmap.Create; a.LoadFromFile('C:\1.bmp'); stringgrid1.Canvas.Brush.Bitmap := a; end;

---

Il est plus pratique de faire la meme chose en mettant l'image en tant que ressource avec lazres (outil fourni avec lazarus)...
Pour celà, après avoir copié mon fichier bitmap (1.bmp) dans le dossier de lazres (le dossier tools de lazarus) tape dans une console :

Code:

---

1 2	C:\lazarus\tools>lazres mybmp 1.bmp

---

ce qui devrait te donner pour résultat :

Code:

---

1.bmp ResourceName='1' Type='BMP'

---

Lazres a créé un fichier resource utilisable par lazarus nommé mybmp

Recopie ce dernier dans le repertoire de ton projet et je renomme le en mybmp.lrs

Il suffit ensuite de rajouter en fin de programme après le mot clef initialization:

Code:

---

{$I mybmp.lrs}

---

Ceci indique au compilateur d'integrer la resource au projet compilé.
La resource est desormais accessible par son nom (ici '1') dans le programme.
Tu peux facilement changer ta brush de la manière suivante :

Code:

---

1 2 3 4 5 6 7 8

procedure MyBrushFromResource; var a :tbitmap; begin a := tbitmap.Create; a.LoadFromLazarusResource('1'); stringgrid1.Canvas.Brush.Bitmap := a; end;

---

PS : ceci est censé fonctionner aussi sous linux, je ne manquerai pas de tester celà dès demain

En espérant t'avoir un peu aidé

Bonne programmation

Clandestino

Merci,

Je ferais avec ca...

Si vraiment j'ai un soucis , je repasserai

[EDIT]

bon , c'est bien ce que je cherche

mais, il y a un mais !!


j'ai mis dans mon form.create

Code:

---

1 2 3

Pbr:=TbitMap.Create; PBr.LoadFromFile(chemin+'brush.bmp');

---

dans le onDrawCell

au debut j'ai rajouté la ligne

Code:

---

1 2	brush.bitmap:=nil;

---

puis au niveau du test de ligne selectionné

Code:

---

1 2	brush.Bitmap:=Pbr;

---

l'image et de 8px*8px sur fond blanc avec des pixels en noirs

sous win j'ai bien pour une ligne selectionné, mon Tbitmap. mais pas possible de de lui affecter une couleur

et sous linux je vois le stringGrid quelques secondes, et fermeture du prog (crash) sans message.
en enlevant le Brush.Bitmap ca plante plus

j'ai gaffé quelque pars ??