Forum: Sonstige Fragen zu Delphi
by Helmi,
29. Jul 2012
wo soll denn die Farbe ausgegeben werden?
Ist das dieser Block?
// Aus enthält noch immer den Zellen-Inhalt
IF Aus <> '' THEN// wenn Aus nicht leer ist
BEGIN
IF TryStrToInt(Aus,p) THEN// wenn Aus eine Zahl enthält
IF ((ARow = 1) AND (ACol > 0) AND (p > 7)) OR// wenn Zeile 1 AND Spalte > 0 AND Tag > 7 oder
((ARow =...
Forum: Sonstige Fragen zu Delphi
by Helmi,
29. Jul 2012
Hallo,
ich kenne jetzt deine Konstanten (besser Records) nicht, aber müsste das hier nicht so heissen:
IF p > 0 THEN// wenn Zeilenumbruch gefunden dann
BEGIN
IF (ACol > 0) AND (ARow > 0) THEN// wenn Spalte > 0 AND Zeile > 0 dann
BEGIN
StrGrid_Monat.Canvas.Font.Color := Konst.Benutzer.TermStrGridEinColorFont; // Schriftfarbe...