Canvas, Brush.Color,FillRect. [D6, XP]
Страницы:
<
1
2
>
Drowsy © (2009-11-19 15:16:00)
Почему в данном случае при отрисовке LeftSide и
RightSide линии рисуются установленным цветом карандаша, а FillRect
цветом кисти фона?
type
GrSidePro = class(TPaintBox)
private
procedure Show(Sender: TObject);
published
public
end;
grProlet = class (TComponent)
LeftSide : GrSidePro;
RightSide : GrSidePro;
private
end;
implementation
....
....
constructor grProlet.CreateR(AOwner: TWinControl ;
ProletsList : TList; var PRol : TProlet; Colwid : double);
begin
inherited Create(AOwner);
...
...
LeftSide := GrSidePro.Create(Self);
LeftSide.Parent := AOwner;
RightSide := GrSidePro.Create(Self);
RightSide.Parent := AOwner;
...
...
LeftSide.Canvas.Pen.Color := clRed;
LeftSide.Canvas.Brush.Color := clGreen;
LeftSide.OnPaint := LeftSide.Show;
RightSide.Canvas.Pen.Color := clYellow;
RightSide.Canvas.Brush.Color := clBlue;
RightSide.OnPaint := RightSide.Show;
end;
procedure GrSidePro.Show(Sender: TObject);
begin
with Canvas do
begin
FillRect(ClientRect);
MoveTo(0, 0);
LineTo(0, ClientHeight);
MoveTo(ClientWidth-1, 0);
LineTo(ClientWidth-1, ClientHeight);
end;
end;
Германн (2009-11-19 15:21:00) [21]
> Почему в данном случае при отрисовке LeftSide и
RightSide
> линии рисуются установленным цветом карандаша, а
FillRect
> цветом кисти фона?
По определению.
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
