![]() |
StringGrid Farbe einzelner Wörter in einzelnen Zellen defin.
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" ![]() 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 |
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
Dann darfst Du alles selbst Zeichnen (OnDrawCell-Event).
Aber was hast Du gegen das ![]() Solche Grids sind eigentlich so billig das man sie nur nicht kaufen kann wenn man Hobby-Entwickler ist. |
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
In meiner Firma wird es nicht sehr gerne gesehen, wenn "Fremdkomponente" genutzt werden. Es sollen nur Delphi Standard Komp. benutzt werden! =(
|
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
Zitat:
(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 €? |
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
Ist halt Firmenpolitik und ich kann daran nichts ändern! :(
|
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
Zitat:
Ich würde mal sagen ihr verbaut euch bis zu 50% Produktiviätssteigerung (je nach Art der Anwendung). |
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
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.
|
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
Zitat:
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. |
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
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; |
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
big thx
|
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
@ 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; |
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
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 |
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
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; |
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
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..... |
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
also ich hab mal nur Copy & paste gemacht ..
Und bei mir wird der Müller lime und der Meier rot und der Rest blau. |
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
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 |
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
Liste der Anhänge anzeigen (Anzahl: 1)
hier mal n screenie
oder wolltest du das genau andersrum?? |
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
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
|
Re: StringGrid Farbe einzelner Wörter in einzelnen Zellen de
Hallo,
Zitat:
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? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:08 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz