Forum: Object-Pascal / Delphi-Language
Delphi
by Hobby-Programmierer,
28. Aug 2009
vielleicht so
if ARow > 1 then begin
if StrToFloatDef(Cells, 0.0) > StrToFloatDef(Cells, 0.0) then
Canvas.Brush.Color:= clgreen
else
Canvas.Brush.Color:= clred;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Hobby-Programmierer,
27. Aug 2009
siehe Anhang
Das evtl. umbenennen von ACol, ARow bezog sich auf das JediGrid.
Forum: Object-Pascal / Delphi-Language
Delphi
by Hobby-Programmierer,
26. Aug 2009
Ich kenne das JediGrid zwar auch net, aber folgendes sollte auch damit funktionieren. Sonst teste mal einfach mit nem Standard Gridprocedure TForm1.SG1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
const tFormat = DT_SINGLELINE or DT_CENTER or DT_VCENTER;
var tText: String;
begin
with (Sender as TStringGrid) do begin
tText:= Trim(Cells); //...
Forum: Object-Pascal / Delphi-Language
Delphi
by Hobby-Programmierer,
26. Aug 2009
Du hast immer noch nicht dem angehängtem Object einen Wert zugewiesen!!if integer(JVSG1.objects)=2 then läuft ins leere. Bist Du sicher das dies der richtige Weg für dich ist? Prüfe stattdessen doch einfach den Wert der Zelle direkt if Trim(Cells) = '2' then
Forum: Object-Pascal / Delphi-Language
Delphi
by Hobby-Programmierer,
26. Aug 2009
Zeig mal bitte den kompletten Code. Irgendwie fehlt mir da einiges!
P.S.: Nimm mal Draw aus Deiner Rechenroutine raus, darum kümmert sich das SG selbstständig.
Forum: Object-Pascal / Delphi-Language
Delphi
by Hobby-Programmierer,
26. Aug 2009
Tach ...
fangen wir mal von vorne an.
- Hast Du die Zeichnenfunktion auch mit dem enstpr. Ereigniss des Stringrids verbunden? (OnDrawCell)
- DefaultDrawing auf False umgestellt?
LG Mario