Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  AW: Pen reagiert nicht auf Farbe

    Delphi
    by Delbor, 18. Apr 2021
  Hi zusammen
  
  Und wie so oft sitzt der Fehler vor dem Blidschirm...
  
  Natürlich muss es so sein:
  procedure TDayNumberFrame.StrGCalendarMonthFrameDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
  begin
  if (ARow=0) or (ACol=0) then
  begin
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  AW: Pen reagiert nicht auf Farbe

    Delphi
    by Delbor, 18. Apr 2021
  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.
  procedure TDayNumberFrame.StrGCalendarMonthFrameDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
  begin
  if (gdFixed In State) then
  begin
  StrGCalendarMonthFrame.Canvas.Brush.Color := clred;
  ...
• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Pen reagiert nicht auf Farbe

    Delphi
    by Delbor, 18. Apr 2021
  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:
  procedure TDayNumberFrame.StrGCalendarMonthFrameDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
  begin
  if...