StringGrid Farbe einzelner Wörter in einzelnen Zellen defin.

[ZeroQool007]

@ Lannes

Hmmm...ich habe irgendwie ein Problem bei einem Zeilenumbruch in der Zelle, er übernimmt immer nur die letzte Farbe für die erste Zeile u die Zeile bleibt Standardschwarz...

Delphi-Quellcode:

var
  s : String;
  x : Integer;
begin
  s := StringGrid_Test.Cells[ACol, ARow];
  StringGrid_Test.Canvas.FillRect(Rect);
  DrawText(StringGrid_Test.canvas.Handle, PChar(s), Length(s), Rect, DT_left+DT_Vcenter);
with StringGrid_Test do
    if  not (gdFixed in State) then
    begin
      if Pos('Meier',Cells[ACol,ARow]) > 0 then
      begin
        s := Copy(Cells[ACol,ARow],1,Pos('!',Cells[ACol,ARow])-1);    
        Canvas.Font.Style := [fsBold];
        Canvas.Font.Color := clred;
        Canvas.TextOut(Rect.Left+1,Rect.Top+2,s);

        x := Canvas.TextWidth(s);

        Canvas.Font.Style := [];
        Canvas.Font.Color := clBlue;
        s := Copy(Cells[ACol,ARow],Pos(' ',Cells[ACol,ARow]),MAXINT); 
        Canvas.TextOut(Rect.Left+2+x,Rect.Top+2,s);
      end;

      if Pos('Müller',Cells[ACol,ARow]) > 0 then
      begin
        s := Copy(Cells[ACol,ARow],1,Pos('!',Cells[ACol,ARow])-1);    
        Canvas.Font.Style := [fsBold];
        Canvas.Font.Color := clLime;
        Canvas.TextOut(Rect.Left+1,Rect.Top+2,s);

        x := Canvas.TextWidth(s);

        Canvas.Font.Style := [];
        Canvas.Font.Color := clBlue;
        s := Copy(Cells[ACol,ARow],Pos(' ',Cells[ACol,ARow]),MAXINT); 
        Canvas.TextOut(Rect.Left+2+x,Rect.Top+2,s);
      end;
    end;
end;

[runger]

Hallo Bernd,

warum kannst du nicht akzeptieren, dass er das selbst machen will.
Spielst du nicht ebenfalls gerne herum oder probierst alles mögliche selbst.
Wir müssen nicht jeden Scheiss zusammenkaufen ( womöglich noch aus Billiglohnländern ).
Es ist doch gut wenn know how hier und damit eventuell sogar noch in der eigenen Firma bleibt.
Er soll doch eine eigene Komponente entwickeln. Dann hat er schon gelernt wie man das macht.

rainer

[Lannes]

Hallo,

hab mal ein paar Änderungen vorgenommen.
Wenn Du Zeilenumbrüche realisieren willst, musst Du mit TextHeight die Höhe des Textes ermitteln und den Wert bei Rect.Top berücksichtigen.
Die geänderten Codezeilen sind markiert.

Delphi-Quellcode:

procedure TForm1.StringGrid_TestDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  sTemp,s : String;
  x : Integer;
begin
  sTemp := StringGrid_Test.Cells[ACol, ARow];//<---------
  StringGrid_Test.Canvas.FillRect(Rect);
  //Text wird doch weiter unten geschrieben
  //DrawText(StringGrid_Test.canvas.Handle, PChar(s), Length(s), Rect, DT_left+DT_Vcenter);
with StringGrid_Test do
    if  not (gdFixed in State) then
    begin
      if Pos('Meier',sTemp) > 0 then
      begin
        s := Copy(sTemp,1,Pos(' ',sTemp)-1);
        Canvas.Font.Style := [fsBold];
        Canvas.Font.Color := clred;
        Canvas.TextOut(Rect.Left+2,Rect.Top+2,s);

        x := Canvas.TextHeight(s);//<--- TextHeight

        Canvas.Font.Style := [];
        Canvas.Font.Color := clBlue;
        s := Copy(sTemp,Pos(' ',sTemp)+1,MAXINT);//+1, weil sonst führendes Leerzeichen
        Canvas.TextOut(Rect.Left+2,Rect.Top+2+x,s);//Top + x = nächste Zeile
      end; 

      if Pos('Müller',sTemp) > 0 then
      begin
        s := Copy(sTemp,1,Pos(' ',sTemp)-1);
        Canvas.Font.Style := [fsBold];
        Canvas.Font.Color := clLime; 
        Canvas.TextOut(Rect.Left+2,Rect.Top+2,s);

        x := Canvas.TextHeight(s);

        Canvas.Font.Style := [];
        Canvas.Font.Color := clBlue;
        s := Copy(sTemp,Pos(' ',sTemp)+1,MAXINT);
        Canvas.TextOut(Rect.Left+2,Rect.Top+2+x,s);
      end;
    end;
end;

[ZeroQool007]

THX LANNES....

Langsam zweifle ich an mir....der nimmt mit deinem neuen Code immer noch die Falschen Farben u ich weiss nicht warum...bin die ganze Zeit schon am rumtesten

Meier = grün anstatt rot
Müller = blau anstatt grün


grrrrrrr.....

[TeronG]

also ich hab mal nur Copy & paste gemacht ..
Und bei mir wird der Müller lime und der Meier rot und der Rest blau.

[ZeroQool007]

Hab gerade komplett neues Projekt erstellt, dann copy paste u es geht immer noch nicht...komisch

hab D7


EDIT: Habe es gerade an einem anderen Rechner probiert...ebenfalls der gleiche Fehler....tzzztzzz

[TeronG]

hier mal n screenie
oder wolltest du das genau andersrum??

[ZeroQool007]

Nein, nicht so...sondern man gibt zb Meier Müller in einer Zeile ein. Der soll dann nach Meier Zeilenumbruch machen u die Farbe ändern z.B. Meier = rot, Müller = grün u alle andere Texten sollen schwarz sein

[Lannes]

Hallo,

Zitat von ZeroQool007:

...sondern man gibt zb Meier Müller in einer Zeile ein...

in eine Zeile oder Zelle
ein Beispiel mit Excel oder einem Grafikprogramm wäre nicht schlecht,
damit man es besser versteht.
Wie unterschiedliche Formatierungen innerhalb einer Zelle realisiert werden können
ist hier dargestellt worden.
Hier weiter an Details herum zudoktern bringt glaube ich nichts,
welche Art Daten willst Du denn grundsätzlich darstellen?