Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Eppos,
18. Feb 2009
danke hat funktioniert...
Ich glaube ein Problem habe ich noch, dass er immer das gesamt Grid in der Farbe anzeigt, und nicht die Zeilen unterschiedlich
farblich anzeigt...
Er sollte ja die Zeile, abhängig was in der Datenbank steht einfärben...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Eppos,
18. Feb 2009
wunderbar, das hat geklappt.
Das Problem ist jetzt nur, dass überall der gleich Wert drin steht.
Da aber das Grid in FormShow gefüllt wird, und der Fokus im Grid natürlich immer auf dem 1. Feld.
Wie ermittel ich die Zelle durch row und col?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Eppos,
18. Feb 2009
nein ich editiewre die daten nicht,
der Fehler tritt hier auf:
SelectedField.Text := aCell;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Eppos,
18. Feb 2009
hier mal die genaue Medlung:
Query1: Dataset not in edit or insert mode.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Eppos,
18. Feb 2009
procedure TfrmMain.Grid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var aCell : String;
begin
aCell := Grid1.SelectedField.AsString;
If ((Query1.FieldByName( 'SAT' ).AsInteger > 0) and (aCol > 0) and (aRow >0)) then begin
Grid1.Canvas.Brush.Color := Query1.FieldByName( 'SAT' ).AsInteger;
end else begin
Grid1.Canvas.Brush.Color :=...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Eppos,
18. Feb 2009
Danke funktioniert perfekt...
habe jetzt nur das Problem, die daten in das grid zu schreiben...
Folgendes habe ich versucht:
var aCell : String;
begin
aCell := Grid1.SelectedField.AsString;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Eppos,
18. Feb 2009
versteh ich nicht, was du meinst, kannst du es mir erklären?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Eppos,
18. Feb 2009
die farben sind unterschiedlich....
d.h. für bestimmte werte in der datenbank, kann der benutzer sich die Farben ausdenken...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Eppos,
18. Feb 2009
Danke, das habe ich mir eigentlich einfacher vorgestellt,
da bei der Farbe Schwarz, die Schriffarbe automatisch auch dann gegenteilig
sich einstellen müsste...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Eppos,
18. Feb 2009
Wie heisst die Funktion, das er das auch Pinselt bei dem TMS Grid?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Eppos,
18. Feb 2009
Hallo zusammmen,
ich benutze das TDBAdvGrid von TMS.
Ich möchte gerne in einem Grid die Farbe einfärben, folgendes habe ich bisher gemacht:
procedure TfrmMain.Grid1DrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
If Query1.FieldByName( 'SAT' ).AsInteger > 0 then