Einzelnen Beitrag anzeigen

bcvs
Online

Registriert seit: 16. Jun 2011
703 Beiträge
 
Delphi 12 Athens
 
#2

AW: Eine Art Kalender darstellen

  Alt 2. Jun 2016, 08:13
Das ist leider nicht möglich da ich in einen Feld verschiedene Schriften und Farben benutzen möchte. Kann mir jemand hier einen Tip geben wie ich es machen soll ?
Doch, das ist möglich. Du musst dann nur den Text im OnDrawCell des Grid selbst malen.
z.B. so:

Delphi-Quellcode:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (aCol=1) and (aRow=1) then begin
    With TStringGrid(Sender).Canvas do begin
      Font.Color:=clBlack;
      TextOut(Rect.Left+2, Rect.Top+2, 'Das ist schwarz');
      Font.Color:=clred;
      TextOut(Rect.Left+40, Rect.Top+2, 'Das ist rot');
    end;
  end;
end;
  Mit Zitat antworten Zitat