StringGrid -> Eine Zelle zweifarbig, oder halbfarbig ?

[HolgerCW]

Hallo zusammen,

wie kann ich eine Zelle zweifarbig, oder nur die hälfte andersfarbig machen ?

So mache ich zur Zeit eine ganze Zelle andersfarbig:

Delphi-Quellcode:

Canvas.Brush.Color := clSilver;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);

Gruss

Holger

[leddl]

Zitat:

Zitat von HolgerCW

wie kann ich eine Zelle zweifarbig, oder nur die hälfte andersfarbig machen ?

Na schau dir den Code doch mal an... Du füllst ein Rechteck mit deiner ausgewählten Farbe. Wie kannst du dieses Rechteck denn jetzt wohl mit 2 Farben füllen?

[HolgerCW]

Wenn ich Rect.Left+2 auf z.B. 200 ändere passiert nichts ?

Wo muss ich da ansetzen ?

Gruss

Holger

[leddl]

Zitat:

Zitat von HolgerCW

Wenn ich Rect.Left+2 auf z.B. 200 ändere passiert nichts ?

Was hat denn jetzt die Zeile mit der Textausgabe (TextOut sollte eigentlich selbsterklärend sein...) damit zu tun? Du willst doch die Zellenfarbe ändern, oder? Dann musst du natürlich auch in der entsprechenden Zeile (Canvas.FillRect(Rect); ) ansetzen...

[HolgerCW]

Aber ich kann doch vorher nur eine Farbe angeben, oder ?

So:

Delphi-Quellcode:

Canvas.Brush.Color := clSilver;

Wie gebe ich jetzt zwei Farben an ?

... und was kann man hier denn ändern:

Delphi-Quellcode:

Canvas.FillRect(Rect)

Gruss

Holger

[leddl]

Zitat:

Zitat von HolgerCW

Aber ich kann doch vorher nur eine Farbe angeben, oder ?

Für einen Zeichenvorgang? Jepp, klar.

Zitat:

Zitat von HolgerCW

Wie gebe ich jetzt zwei Farben an ?

Na stell dir mal vor, du malst das ganze auf nem Blatt Papier. ;) Wie malst du da ein 2-farbiges Rechteck? Richtig, du nimmst den roten Stift und malst die eine Hälfte in Rot. Dann legst du den roten Stift weg, nimmst den grünen Stift und malst die zweite Hälfte des Rechtecks in Grün. Und genau das gleiche musst du hier auch machen ;)

[shmia]

Du brauchst eine Procedure zum halbieren eines Rechtecks.

Delphi-Quellcode:

// Rect ist das Eingabe Rechteck
// RectA und RectB sind die Ausgaberechtecke 
procedure HalfRectVertical(const Rect:TRect; var RectA, RectB:TRect);

Und hier jetzt die Herausforderung an dich: :hi:
schreibe die procedure HalfRectVertical und HalfRectHorizontal und ab in die Code-Library.

Und später:

Delphi-Quellcode:

HalfRectVertical(Rect, RectA, RectB);
Canvas.Brush.Color := clSilver; 
Canvas.FillRect(RectA); 
Canvas.Brush.Color := clGreen; 
Canvas.FillRect(RectB);
// der Text wird weiterhin auf dem Gesamtrechteck ausgegeben 
Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);

[HolgerCW]

Danke für die Hilfen,

aber ich glaube Ihr habt mich auf dem Gewissen. Wenn einer wie ich schon so blöde Fragen stellt, wie soll er dann so eine Aufgabe lösen ?

Kann es sein das die procedure erst einmal eine function sein muss wo das Rect rein geht und das Result RectA und RectB ist.

Habe bei diesem Rect echt keinen Ansatz. Hilfe !!!

Gruss

Holger

[Hawkeye219]

Hallo,

eine kleine Ergänzung:

Delphi-Quellcode:

HalfRectVertical(Rect, RectA, RectB);
Canvas.Brush.Color := clSilver;
Canvas.FillRect(RectA);
Canvas.Brush.Color := clGreen;
Canvas.FillRect(RectB);
Canvas.Brush.Style := bsClear;  // <--- damit der Text transparent ausgegeben wird
// der Text wird weiterhin auf dem Gesamtrechteck ausgegeben
Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);

Gruß Hawkeye

[HolgerCW]

Danke,

aber was steckt nun hier für eine Zauberrei dahinter:

Delphi-Quellcode:

HalfRectVertical(Rect, RectA, RectB);

Gruss

Holger