استفاده از قلم نوری

[Tasnim]

سلام دوستان
من میخوام توی یه برنامه از قلم نوری استفاده کنم،اگر کسی اطلاعاتی دراین باره داره لطفا منو راهنمایی کنه
باتشکر ازهمه دوستان

[Touska]

مثلا اگه بخواهید از هامش نویسی استفاده نمایید.

به راحتی می تونید با استفاده از یک canvas ساده با ONmousedown انو بکشید.

موفق باشید :)

[Tasnim]

آقا مصطفی جان می تونی بیشتر کمکم کنی حداقل یه مثال برام بذاری

[Touska]

یک شکل خیلی سادش اینجوری هست : (قلم نوری دقیقا مثل موس عمل می کنه)


procedure TSign1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Canvas.Pen.Width := 2;
Image1.Canvas.MoveTo(X,Y);
end;

procedure TSign1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
IF SSLeft In Shift Then
Image1.Canvas.LineTo(X,Y);
end;

procedure TSign1.FormShow(Sender: TObject);
begin
Image1.Picture := Nil; // Clear the image
end;

[Delphi_Developer]

قلم نوری اگه منظورت Device اش هست که توی Pocket PC ها یا Tablet PC ها ازشون استفاده کنی توی اون زبانی که میخوای ازش برا نوشتن برنامت استفاده کنی خودش Input Panel داره و از Pen استفاده میکنی .

موفق باشی .