Weet iemand hoe je een StringGrid1.cells[i,j] in kleurt in Delphi?
(i is de kolom en j is de rij. in mijn opgave lopen i en j van 0 t/m
Dit is zegmaar hoe het eruit moet gaan zien::
ik zou graag blokjes van 3x3 willen kleuren in verschillende kleuren.
StringGrid kleuren
-
- Vast lid
- Berichten: 57
- Lid geworden op: 23 feb 2014, 15:14
StringGrid kleuren
Durf te vragen!
-
- Vast lid
- Berichten: 57
- Lid geworden op: 23 feb 2014, 15:14
Re: StringGrid kleuren
Het is mij inmiddels gelukt om de StringGrid te kleuren.
Dit heb ik gedaan met behulp van tekenen op het canvas.
Alleen nu zie ik de tekst (in mijn geval cijfers) niet meer, die staat er als het ware "onder"
Weet iemand hoe ik die tekst naar voren kan krijgen, dat de tekst op de kleur komt ipv andersom.
Dit heb ik gedaan met behulp van tekenen op het canvas.
Alleen nu zie ik de tekst (in mijn geval cijfers) niet meer, die staat er als het ware "onder"
Weet iemand hoe ik die tekst naar voren kan krijgen, dat de tekst op de kleur komt ipv andersom.
Durf te vragen!
Re: StringGrid kleuren
Tekst naar canvas gaat via deze procedure:
procedure TextOut(X: Integer; Y: Integer; const Text: string);
Zie bijvoorbeeld:
http://docs.embarcadero.com/products/ra ... xtOut.html
Voorbeeld:
Als het Form waarmee je werkt MyForm heet, en een Canvas heeft waarop je wil schrijven, lukt dat met:
MyForm.Canvas.TextOut(40, 20, 'Hallo canvas');
40 is het aantal pixels vanaf de linker rand van je canvas
20 is het aantal pixels vanaf de bovenrand.
Je kan zo nodig het font (Canvas.Font) en de achtergrondkleur (Canvas.Brush) nog aanpassen.
Werkt dit zo voor jouw systeem?
PS:
wel eerst je canvas kleuren, daarna pas je tekst er over heen zetten.
procedure TextOut(X: Integer; Y: Integer; const Text: string);
Zie bijvoorbeeld:
http://docs.embarcadero.com/products/ra ... xtOut.html
Voorbeeld:
Als het Form waarmee je werkt MyForm heet, en een Canvas heeft waarop je wil schrijven, lukt dat met:
MyForm.Canvas.TextOut(40, 20, 'Hallo canvas');
40 is het aantal pixels vanaf de linker rand van je canvas
20 is het aantal pixels vanaf de bovenrand.
Je kan zo nodig het font (Canvas.Font) en de achtergrondkleur (Canvas.Brush) nog aanpassen.
Werkt dit zo voor jouw systeem?
PS:
wel eerst je canvas kleuren, daarna pas je tekst er over heen zetten.