Да вы
Shut ить изволите?
Только что специально попробовал на
TImage нихуя не мигает:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
Var
DrawLine: Boolean;
Xs, Ys, Xo, Yo : Integer;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
IF Button = mbLeft
then
Begin
DrawLine := True;
Xs := X;
Ys := Y;
Xo := X;
Yo := Y;
End
else ;
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
IF Button = mbLeft
then
Begin
DrawLine := False;
Image1.Canvas.MoveTo( Xs, Ys );
Image1.Canvas.LineTo( Xo, Yo );
End
else ;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
IF DrawLine
then
Begin
Image1.Canvas.Pen.Mode := pmNot;
Image1.Canvas.MoveTo( Xs, Ys );
Image1.Canvas.LineTo( Xo, Yo );
Image1.Canvas.MoveTo( Xs, Ys );
Image1.Canvas.LineTo( X, Y );
Xo := X;
Yo := Y;
End
else ;
end;
Code just tested on
Delphi 7
Не было никаких заскоков и если вместо
Image1.Canvas писать
Image1.Picture.Bitmap.Canvas . Правда, производительность может оказаться не оптимальной при использовании
TImage1 , в некоторых случаях лучше рисовать прямо на канвасе формы, но это зависит от приложения. Если там статическая картинка (
.BMP ,
.JPG ), то
TImage1 лучше, а если изображение генерируется программой (рисуется методами
TCanvas ), то быстрее будет по форме рисовать.
Ах, да, чуть не забыл, в
Delphi 5.0 или 6.0 были какие-то заёбы с миганием и моя старая прога при попытке компиляции замигала. Тогда разбираться было некогда, а
Delphi 7, по ходу, этим не страдает, так что я про это забыл...
