|
#1
|
|||
|
|||
Image не работает
Подскажите пожалуйста где у меня ошибка. Не рисует.
Разработать приложение, разместив на форме компонент Image. Запрограммировать: перемещение курсора мыши по холсту Image, рисуя на его поверхности кривую линию синего цвета (при зажатой кнопке мыши). Код:
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; procedure FormCreate(Sender: TObject); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private FIsPainting:boolean; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin FIsPainting:=false; DoubleBuffered:=true; end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then begin FIsPainting:=true; Image1.Canvas.Pen.Color:=clNavy; Image1.Canvas.MoveTo(X,Y); end; end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if FIsPainting then Image1.Canvas.LineTo(X,Y); end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FIsPainting:=false; end; end. Последний раз редактировалось Admin, 09.05.2010 в 17:21. |
#2
|
|||
|
|||
Ой все заработало.
|
#3
|
||||
|
||||
Что сказать.... девушка
Не твори зла, и жизнь повернется к тебе передом |