- GetColor: TColor;
begin Result :=
FColor; end;
procedure TPen.SetColor(const AValue: TColor);
begin if
FColor <>
AValue then
FColor := AValue; end; // accessing:...
- bcolor(output, green); curvis(output, false); auto(output, false); page(output);
fcolor(output, red); frect(output, 50, 50, maxxg(output)-50, maxyg(output)-50);...