13 lines
318 B
ObjectPascal
13 lines
318 B
ObjectPascal
|
##
|
||
|
|
uses GraphABC;
|
||
|
|
|
||
|
|
Window.title := 'Color bars';
|
||
|
|
var colors := |clblack, clred, clgreen, clblue, clmagenta, clcyan, clyellow, clwhite|;
|
||
|
|
var w := Window.Width div colors.Count;
|
||
|
|
var h := Window.Height;
|
||
|
|
for var i := 0 to colors.Count - 1 do
|
||
|
|
begin
|
||
|
|
Brush.Color := colors[i];
|
||
|
|
FillRectangle(w * i, 0, w * i + w, h);
|
||
|
|
end;
|