AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Pen reagiert nicht auf Farbe

Ein Thema von Delbor · begonnen am 18. Apr 2021 · letzter Beitrag vom 19. Apr 2021
Antwort Antwort
Delbor

Registriert seit: 8. Okt 2006
Ort: St.Gallen/Schweiz
1.014 Beiträge
 
Delphi 10.4 Sydney
 
#1

Pen reagiert nicht auf Farbe

  Alt 18. Apr 2021, 16:44
Hi zusammen

Nun arbeite ich daran, meinen Jahreskalender etwas zu verfeinern; das heisst, ich muss das Ding (oder besser: Die 12 Dinger - Grids, die jeweils einen Monat darstellen) selbst zeichnen. Und da zeigt sich schon das erste Problem:
Delphi-Quellcode:
procedure TDayNumberFrame.StrGCalendarMonthFrameDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if (gdFixed In State) then
  begin
    StrGCalendarMonthFrame.Canvas.Brush.Color := clred;
    StrGCalendarMonthFrame.Canvas.FillRect(Rect);
    StrGCalendarMonthFrame.Canvas.Pen.Color := clyellow;
    StrGCalendarMonthFrame.Canvas.Pen.Mode := pmCopy;
    StrGCalendarMonthFrame.Canvas.Pen.Style := psSolid;
    StrGCalendarMonthFrame.Canvas.TextOut(Rect.Left+2, Rect.Top+2, StrGCalendarMonthFrame.Cells[ACol, ARow]);
  end;
end;
Das zeichnet mir die fixierten Zeilen und Spalten, die Stiftfarbe ist abernach wie vor schwarz. Was mache ich falsch'

Gruss
Delbor
Roger
Man muss und kann nicht alles wissen - man muss nur wissen, wo es steht.
Frei nach Albert Einstein
http://roase.ch
  Mit Zitat antworten Zitat
brechi

Registriert seit: 30. Jan 2004
816 Beiträge
 
#2

AW: Pen reagiert nicht auf Farbe

  Alt 18. Apr 2021, 17:25
Font.Color
  Mit Zitat antworten Zitat
Delbor

Registriert seit: 8. Okt 2006
Ort: St.Gallen/Schweiz
1.014 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Pen reagiert nicht auf Farbe

  Alt 18. Apr 2021, 17:41
Hi zusammen
Doch, wer lesen kann(auch die Hilfe), ist klar im Vorteil. Hab ich zuerst gedacht. War aber falsch, auch wenns sich zum ersten logisch anhört.
Delphi-Quellcode:
procedure TDayNumberFrame.StrGCalendarMonthFrameDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if (gdFixed In State) then
  begin
    StrGCalendarMonthFrame.Canvas.Brush.Color := clred;
    StrGCalendarMonthFrame.Canvas.FillRect(Rect);
// StrGCalendarMonthFrame.Font.Charset := DEFAULT_CHARSET;
    StrGCalendarMonthFrame.Font.Color := clYellow;
    StrGCalendarMonthFrame.Font.Style := [fsBold];
    StrGCalendarMonthFrame.Font.Size := 10;

    StrGCalendarMonthFrame.Canvas.TextOut(Rect.Left+2, Rect.Top+2, StrGCalendarMonthFrame.Cells[ACol, ARow]);
  end;
end;
Erstmal erfolgte die Textausgabe wie gehabt. Dann fügte ich die auskommentierte Zeile ein und bekam die gelbe Textausgabe - die blieb auch, nachdem ich die Zeile auskommentiert hatte und die erzeugten DCUs gelöschte hatte. Wobei nun die Textausgaben im ganzen grid erfolgten, was eben nicht sein sollte (Die ist anders).

Vielen Dank für deine Bemühungen, by brechi.

Gruss
Delbor
Roger
Man muss und kann nicht alles wissen - man muss nur wissen, wo es steht.
Frei nach Albert Einstein
http://roase.ch

Geändert von Delbor (18. Apr 2021 um 17:44 Uhr)
  Mit Zitat antworten Zitat
Delbor

Registriert seit: 8. Okt 2006
Ort: St.Gallen/Schweiz
1.014 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: Pen reagiert nicht auf Farbe

  Alt 18. Apr 2021, 22:10
Hi zusammen

Und wie so oft sitzt der Fehler vor dem Blidschirm...

Natürlich muss es so sein:
Delphi-Quellcode:
procedure TDayNumberFrame.StrGCalendarMonthFrameDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if (ARow=0) or (ACol=0) then
  begin
    StrGCalendarMonthFrame.Canvas.Brush.Color := clred;
    StrGCalendarMonthFrame.Canvas.FillRect(Rect);
    StrGCalendarMonthFrame.Canvas.Font.Charset := DEFAULT_CHARSET;
// StrGCalendarMonthFrame.Font.Name := 'Times New Roman';
// StrGCalendarMonthFrame.Font.Color := clYellow;
// StrGCalendarMonthFrame.Font.Style := [fsBold];
// StrGCalendarMonthFrame.Font.Size := 10;
    StrGCalendarMonthFrame.Canvas.Font.Name := 'Times New Roman';
    StrGCalendarMonthFrame.Canvas.Font.Color := clYellow;
    StrGCalendarMonthFrame.Canvas.Font.Size := 10;
    StrGCalendarMonthFrame.Canvas.Font.Style := [fsBold];
    StrGCalendarMonthFrame.Canvas.TextOut(Rect.Left+4, Rect.Top+2, StrGCalendarMonthFrame.Cells[ACol, ARow]);
  end;
end;
Auskommentiert sind die Zeilen, die sich in dieser falschen Form im letzten Codeschnipsel eingeschlichen haben...
Ausserdem muss DefaultDrawing False sein.

Gruss
Delbor
Roger
Man muss und kann nicht alles wissen - man muss nur wissen, wo es steht.
Frei nach Albert Einstein
http://roase.ch

Geändert von Delbor (18. Apr 2021 um 22:16 Uhr)
  Mit Zitat antworten Zitat
jziersch

Registriert seit: 9. Okt 2003
Ort: München
180 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Pen reagiert nicht auf Farbe

  Alt 19. Apr 2021, 10:36
In hartnäckigen Fällen hilft auch

SetTextColor(Handle, ColorToRGB(aTextCol));

SetBKColor(Handle, ColorToRGB(aBackgroundcol));

Handle : HDC kommt von Canvas.Handle.
WPCubed GmbH
Komponenten für Delphi:
WPTools, wPDF, WPViewPDF
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +2. Es ist jetzt 01:15 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf