StringGrid Farbe einzelner Wörter in einzelnen Zellen defin.

[ZeroQool007]

Hallo, leider habe ich über die Suchfunktion nichts gescheites gefunden.

Ich habe verschiedene Zellen, die durch eine Datenbank gefüllt werden u ich möchte in einer Zelle, verschiedene Schlagwörter in unterschiedlichen Farben kennzeichen.

Bsp:

"3 series", "330ci"

http://www.tmssoftware.com/asgblue2.gif

Wäre für jede Hilfe denkbar.

PS Ich möchte keine zusätzliche Komponente dafür benutzen, sondern es selber per Quellcode definieren.

MfG

[Bernhard Geyer]

Dann darfst Du alles selbst Zeichnen (OnDrawCell-Event).

Aber was hast Du gegen das TAdvStringGrid? Ist 'ne gute Komponente und für ein paar € bekommst Du auch die Sourcen als Inspirationsquelle für eigene Erweiterungen.
Solche Grids sind eigentlich so billig das man sie nur nicht kaufen kann wenn man Hobby-Entwickler ist.

[ZeroQool007]

In meiner Firma wird es nicht sehr gerne gesehen, wenn "Fremdkomponente" genutzt werden. Es sollen nur Delphi Standard Komp. benutzt werden! =(

[Bernhard Geyer]

Zitat:

Zitat von ZeroQool007

In meiner Firma wird es nicht sehr gerne gesehen, wenn "Fremdkomponente" genutzt werden. Es sollen nur Delphi Standard Komp. benutzt werden! =(

Was ist denn das bitte wiede für ein Schw...
(Kauf-)Komponenten sind ein wichtiger Aspekt für produktive SW-Entwicklung. Und bei Delphi-Komponenten bekommt man eigentlich immer die Sourcen mit so das man sich nicht unnötig abhängig vom Überleben eines Herstellers macht. Hab selbst schon Komponenten problemlos von einem D5-Stand auch unter D2005 zum laufen bekommen.
Also was für Probleme haben eure Chefs/Verantwortlichen gegenüber dem Einkaufen einer mehrjährigen Entwicklung für wenige 100 €?

[ZeroQool007]

Ist halt Firmenpolitik und ich kann daran nichts ändern! :(

[Bernhard Geyer]

Zitat:

Zitat von ZeroQool007

Ist halt Firmenpolitik und ich kann daran nichts ändern! :(

Und eure Firma gibt's noch?
Ich würde mal sagen ihr verbaut euch bis zu 50% Produktiviätssteigerung (je nach Art der Anwendung).

[Luckie]

Bitte akzeptiert, dass die Firma keine Fremdkomponenten einsetzen will. Desweiteren ist die Firmenpolitik bei der Softwareentwicklung nicht Gegentand dieses Threads. Bleibt also bitte beim Thema.

[Bernhard Geyer]

Zitat:

Zitat von Luckie

Bitte akzeptiert, dass die Firma keine Fremdkomponenten einsetzen will. Desweiteren ist die Firmenpolitik bei der Softwareentwicklung nicht Gegentand dieses Threads. Bleibt also bitte beim Thema.

OK. Dann ist alles gesagt - Dann heißt es Selbst Zeichnen.

Aber falls er Ingenieur ist sollte er sowas nicht akzeptieren ohne auf die Nachteile hinzuweisen. Aber lassen wir es. Jeder muss wissen ob er seinen Job sichert oder einfach nur "Ja" zu allem sagt - Musste ich noch loswerden.

[Lannes]

Hallo,

ein kleines Beispiel zum Einstieg.
Der Code formatiert das erste Wort in jeder nicht fixierten Zelle in Fettschrift, die restlichen Worte werden in blauer Farbe gesetzt.

Delphi-Quellcode:

procedure TForm1.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s : String;
    x : integer;
begin
  with StringGrid1 do
    if  not (gdFixed in State) then
    if Pos(' ',Cells[ACol,ARow]) > 0 then
      begin
      s := Copy(Cells[ACol,ARow],1,Pos(' ',Cells[ACol,ARow])-1);
      Canvas.Font.Style := [fsBold];
      Canvas.TextOut(Rect.Left+2,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;

[ZeroQool007]

big thx

[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:

Zitat von ZeroQool007

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

in eine Zeile oder Zelle :gruebel:
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?