@Luckie: Der Wert von Workspace (Variable von TColor) soll dem Plan nach im ersten Teil gesetzt werden. Wenn das nicht funktioniert - dann müsste der Wert entweder 0 (Standardwert) oder PaintGreen (angegeben) sein.
@taaktaak: Bei dir funktioniert er? Bei mir nicht. Es scheint also nicht am Code zu liegen.
@DeddyH: Ja, es wird alles angesprungen.
@nahpets: Der sagt mir Workspace sei 0. In ReadInteger scheint also gar nichts zu passieren. Ansonsten wäre es ja zumindest der Wert von PaintGreen.
Eine
Exception wird nicht ausgelöst.
Delphi-Quellcode:
var Workspace : TColor;
// in Unit Windesk.Colors
const PaintGreen = $00ddffdd;