procedure TForm1.Button2Click(Sender: TObject);
var
MyCanvas: TControlCanvas;
begin
MyCanvas:=TControlCanvas.Create;
Mycanvas.control:=memo1;//想在memo1上作画
With Mycanvas do
Begin
pen.color:=clyellow;
begin
Brush.Color := clBtnFace; //
MoveTo ( 33, 0 );
Brush.Color := clWhite; //
LineTo ( 33, ClientHeight );
end;
End;
end;
使 用CANVAS 时: 当 窗 口 进 行 重 画 时, 画 布 上 的 图 像 将 消 失, 比 如 当 窗 口 进 行 最 小 化 又 重 新 恢 复 时, 就 会 引 起 画 布 上 图 像 的 消 失,
//如何解决上述“图像消失”的问题???如何实现win2000性能中监视cpu 、内存的所画的的曲线
var
MyCanvas: TControlCanvas;
begin
MyCanvas:=TControlCanvas.Create;
Mycanvas.control:=memo1;//想在memo1上作画
With Mycanvas do
Begin
pen.color:=clyellow;
begin
Brush.Color := clBtnFace; //
MoveTo ( 33, 0 );
Brush.Color := clWhite; //
LineTo ( 33, ClientHeight );
end;
End;
end;
使 用CANVAS 时: 当 窗 口 进 行 重 画 时, 画 布 上 的 图 像 将 消 失, 比 如 当 窗 口 进 行 最 小 化 又 重 新 恢 复 时, 就 会 引 起 画 布 上 图 像 的 消 失,
//如何解决上述“图像消失”的问题???如何实现win2000性能中监视cpu 、内存的所画的的曲线
MyCanvas.Update;
那先前画的是不是还有!,我希望以前画得也不能删掉,照常显示!!!!!
jimmyxing() :用tshape如何去做?有没有源代码??? ehom(?!):能不能说详细点!给个例子!