Hallo,
ich hab das auch mal gebraucht und hab mir diese procedure geschrieben (ok - sie ist sehr speziell auf mein Projekt - aber man kann damit was anfangen):
Delphi-Quellcode:
procedure TMainForm.StringGrid_aufbauen;
var
i: Integer;
begin
with StringGrid_Ablauf do
begin
//Schriftgröße und -Farbe
Font.Color := clBlack;
Font.Height := 12;
Font.Style := [fsBold];
//Aufbau der Spalten 0, 1, 10
Cells[0, 0] := '';
Cells[1, 0] := 'Zeitpunkt';
Cells[10, 0] := 'Kommentar';
ColWidths[0] := 50;
ColWidths[1] := 100;
ColWidths[10] := 250;
//Aufbau der Spalten 2 - 9
for i := 1 to 8 do
begin
Cells[i + 1, 0] := IntToStr(i);
ColWidths[i + 1] := 25;
end;
//Aufbau der 1. Zeile
Cells[0, 1] := '1';
end;
end;
Das hab ich im OnCreate der Form drin. Wie du siehst, schreib ich den Font des StringGrids um.
Nachteil davon: Egal was du als Text übergibst - dieser wird immer fett, schwarz und mit der Größe 12 angezeigt.
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<