S sim_might Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #1 一个Image（有位图，强迫适应大小），要求随鼠标移动，在鼠标的X位置画一竖线 （竖线和原位图XOR操作），要求尽量消除钭动。(不能用OpenGL)
C cqbaobao Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #2 消除抖动用： DoubleBuffered := True; // 在Image 的Parent 窗口的 建立事件里就可以了
苟 苟延残喘 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #4 哇，各位老大，也有人在问这中问题呀，我的问题如下：希望各位老大能帮我解决一下了， 加分： 我有一组数据：00300400400405989599589949940038374858438 然后分解掉，每5位做位 纵坐标，第几个5位的位数是横坐标，用image.canvas.lineto画曲线图，我现在画出的没有 平滑感，怎么办，请各位指教
哇，各位老大，也有人在问这中问题呀，我的问题如下：希望各位老大能帮我解决一下了， 加分： 我有一组数据：00300400400405989599589949940038374858438 然后分解掉，每5位做位 纵坐标，第几个5位的位数是横坐标，用image.canvas.lineto画曲线图，我现在画出的没有 平滑感，怎么办，请各位指教
C cqbaobao Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #6 真奇怪，没人要分？ procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin with Image1.Canvas do begin MoveTo(x0, 0); LineTo(x0, Image1.Height - 1); MoveTo(x, 0); LineTo(x, Image1.Height); x0 := x; end; end; procedure TForm1.FormCreate(Sender: TObject); begin DoubleBuffered := True; Image1.Canvas.Pen.Mode := pmNot; end;
真奇怪，没人要分？ procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin with Image1.Canvas do begin MoveTo(x0, 0); LineTo(x0, Image1.Height - 1); MoveTo(x, 0); LineTo(x, Image1.Height); x0 := x; end; end; procedure TForm1.FormCreate(Sender: TObject); begin DoubleBuffered := True; Image1.Canvas.Pen.Mode := pmNot; end;
