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