Einzelnen Beitrag anzeigen

Volker Z.

Registriert seit: 3. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
 
Delphi XE4 Ultimate
 
#5

AW: TStringGrid OnDrawCell - Bestimmte Felder makieren

  Alt 20. Dez 2012, 12:20
Hallo,

wie wäre es mit der Eigenschaft TStringGrid.Objects?

Du könntest Dir eine Klasse (z. B. TFormat) bauen, die Deine Zellenformatierung speichert und jeweils eine Instanz dieser Klasse jeder zu formatierenden Zelle zuordnen.

Dann könntest Du in OnDrawCell
Delphi-Quellcode:
var
  f : TFormat;
begin
  f := TFormat (StringGrid1.Objects [ACol, ARow]);
  if Assigned (f) then
    begin
      StringGrid1.Canvas.Font.Color := f.Color;
      StringGrid1.Canvas.Font.Style := f.Style;
      // usw.
    end
end;

die Zellen entsprechend formatiert ausgeben.

Du darfst natürlich nicht vergessen den belegten Speicher beim "Aufräumen" wieder freizugeben.

Gruß
Volker Zeller
  Mit Zitat antworten Zitat