Einfach nur Spalte von Stringgrid färben

[Razor90]

So...da bin ich wieder xD
ich habe ja schon mal nachgefragt wie ich spalten in Stringgrid färben kann.
Also..ich habe ne Tabelle von 4x4. Die Spalte nummer eins soll komplett nach unten rot gefärbt sein. Wie kann ich das machen. Mit den Hilfen die ihr mir gegeben habt komme ich nicht so wirklich klar, d.h. ich versteh das nicht. kann mann nicht einfach ne art befehl schreiben das der background der zelle rot ist und fertig? es soll ja dann auch noch text darin stehen. Danke, Razor

[Die Muhkuh]

Hi,

was hast Du denn schon versucht?

[Razor90]

garnix...weil ich nicht weiß wo ich anfangen soll^^

[Die Muhkuh]

Du hast doch geschrieben, dass Du schon Hilfen bekommen hast?

[Razor90]

ja z.B. das:

Delphi-Quellcode:

with StringGrid1 do begin
  canvas.Font.Name := 'Arial';
  if ACol = 1 then begin
    canvas.Font.Size:=8;
    canvas.Font.Color:=clwhite;
    canvas.brush.Color := clNavy;
    canvas.TextOut(rect.Left,rect.bottom-canvas.Textheight('X')-1,
                   ' TEST ');
  end;
end

aba ich weiß nicht wie ich das einbinden soll in meine ausgabe:

Delphi-Quellcode:

form15.stringgrid1.cells[1,2]:=FloatToStr(o2);

[DeddyH]

Das gehört da auch nicht rein, sondern ins OnDrawCell.

[edit] Zieh Dir mal Sharkys Tutorial rein [/edit]

[Razor90]

sorry, aba was ist ondrw cell??? tut mir leid aba ich weiß es wirklich nicht....ist das einfärben so kompliziert??? dann lass ich es lieber^^

[DeddyH]

Klick mal auf Dein StringGrid, dann im Objektinspektor auf "Ereignisse", da findest Du auch OnDrawCell.

[Die Muhkuh]

Schau mal im Objektinspektor des StringGrids unter Ereignisse -> OnDrawCell.

[Razor90]

Ja...gut...und den Code soll ich nun in das kleine Fenster reinkopieren???

[Die Muhkuh]

Mach mal einen Doppelklick auf "OnDrawCell" :zwinker:

[Razor90]

Okay...supi...ich habs hinbekommen...danke für eure Hilfe. mfg Razor

[DeddyH]

Nun hab ich mir die Mühe gemacht und einen Source zusammengepfriemelt... egal, nun poste ich den auch :mrgreen:

Delphi-Quellcode:

procedure TForm21.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
const colors: array[Boolean] of TColor = (clWhite,clRed);
begin
  with Sender as TStringGrid do
    if (ACol >= FixedCols) and (ARow >= FixedRows) then
      begin
        Canvas.Brush.Color := colors[ACol = FixedRows];
        Canvas.FillRect(Rect);
        DrawText(Canvas.Handle,
                 PChar(Cells[ACol, ARow]),
                 -1,
                 Rect,
                 DT_CENTER or DT_VCENTER or DT_SINGLELINE);
      end; 
end;

[Razor90]

Danke nochmal an DeedyH für das Bemühen!!!