Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stecky2000,
5. Nov 2008
Lannes, Du hast Recht und ich danke dir, auch wenn ich genau diese Lösung bereits vor deinem Post selbst eingebaut habe.
Wie Du in einem meiner ersten Post bereits zitiert hast,
"... Beim export nach excel will ich diese Abfrage nicht machen, sondern gleich sagen, "
wollte ich genau diese Lösung nicht, letztendlich, da sich das mit dem Flackern nicht lösen lies, habe ich es genau so...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stecky2000,
5. Nov 2008
Die ungewöhnliche Ausgabeform habe ich hier aus dem Forum.
Deine Form funktioniert bei mir nicht, da bekomme ich den Fehler: Inkompatible Typen String und Integer.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stecky2000,
5. Nov 2008
Hab schon alles probiert, Reihenfolge, Dinge weglassen, bringt nichts.
Es flackert sobald ich in Objects reinschreibe.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stecky2000,
5. Nov 2008
Danke, bin vor einer Minute selbst auf DEINE Lösung gekommen,...... fast.
Ich habe es so gemacht:
begin
Canvas.Brush.Color := clLime;
TStringGrid(Sender).Objects := Pointer(clLime);
Canvas.Font.Color := clBlack;
Canvas.Font.Style := ;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stecky2000,
5. Nov 2008
Also an dieser Stelle im OnDrawCell erscheint die Farbe im StringGrid in Grün (Hintergrund der zelle):
Canvas.FrameRect(Rect);
Bedeutet das, das ich die Zelle zwar färbe aber dne Farbwert nicht in die Zelle schreibe/speichere und ihn deshalb auch nicht wieder auslesenkann?
Ich dachte, wenn die Zelle grün ist, dann ist sie eben grün und weis das auch.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stecky2000,
5. Nov 2008
Ich glaube wir reden an einander vorbei.
Ich will doch gerade exportieren.
Dazu will ich doch wissen ob in StrinGrid1 eine Zelle eingefärbt ist, damit ich dann in Excel ebenfalls die Zelle färbe.
Das Abfragen ob die Zelle im StringGrid gefäbt ist wollte ich nun damit machen:
Color := Integer(StringGrid1.Objects);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stecky2000,
5. Nov 2008
Hallo TaakTaak,
Danke für die Antwort, aber ich verstehe es nicht.
In meinen OnDrawCell wird wie folgt vorgegeangen:
procedure TDPLForm.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stecky2000,
5. Nov 2008
Sorry, aber ich verstehe nur Bahnhof.
Bin nur ein Hobby-Programmierer und steck da nicht so tief drin.
Also noch mal zur Verdeutlichung:
In eine StringGrid1 mit 7x24, ist für einen Dienstplan mit 7 Tagen und 24 Wochen,
stehen Zahlen drin so z.B. 1,1,1,2,2,0,0, das wären die 7 Zellen in einer Zeile.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Stecky2000,
5. Nov 2008
Ich hoffe, der Tietel sagt schon genug.
Ich habe ine einem StringGrid, mittels OnDrawCell, bestimmte Zellen nach bestimmten Bedingungen mit verschiedenen Farben eingefärbt.
In einem StringGrid von 7x24 zellen sind z. B. 12 versch. Zellne mit clLime, 4 versch. mit clRed und 4 mit clBlue eingefärbt.
Nun habe ich die Inhalte des stringGrids nach Excel exportiert, was auch gut klappt.
Nur...