Hallo zusammen,

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

So mache ich zur Zeit eine ganze Zelle andersfarbig:

markieren

Delphi-Quellcode:

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

Gruss

Holger

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?

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

Wo muss ich da ansetzen ?

Gruss

Holger

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

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

So:
Canvas.Brush.Color := clSilver; Wie gebe ich jetzt zwei Farben an ?

... und was kann man hier denn ändern:
Canvas.FillRect(Rect) Gruss

Holger

Zitat von HolgerCW:

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

Für einen Zeichenvorgang? Jepp, klar.

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

Du brauchst eine Procedure zum halbieren eines Rechtecks.

markieren

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:
schreibe die procedure HalfRectVertical und HalfRectHorizontal und ab in die Code-Library.

Und später:

markieren

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]);

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

Hallo,

eine kleine Ergänzung:

markieren

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

Danke,

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

HalfRectVertical(Rect, RectA, RectB); Gruss

Holger