Hi,

> Hat jemand ein solches Tool oder muss ich das selbst schreiben?

Au ja, schreibt doch mal was selbst :)

Aus dem hohlen Bauch, DoubleBuffer-Methode der späten 70er,
prima für alles in der Richtung, den Rest kannst du adaptieren.

- Neues Projekt, Fenster, Canvas
- Ins Fenster:
 mx as integer
 my as integer
 bild as picture
 buffer as picture
In Open:
 bild = newPicture( ...canvasgröße... )
Methode redraw:
  buffer.graphics.drawpicture bild, 0, 0
In Canvas:
In MouseDown:
 mx = x
 my = y
 return true
In MouseDrag:
 redraw
 buffer.graphics.drawrect mx, my, x - my, y - my
In MouseUp:
 redraw
 canvas1.graphics.drawpicture buffer, 0, 0
In Paint:
 if buffer = nil then
   buffer = newPicture( me.width, me.height, 32 )
 end if
 g.drawpicture buffer, 0, 0

Grüße, Stephan Stoske

-------------------------------------------------------------------------
stoske & bertling - visuelle kommunikation
lohmühler berg 30 - 42553 velbert - fon 02053/504464 - fax 02053/923630
[EMAIL PROTECTED] - www.stoske-bertling.de - ftp.stoske-bertling.de

Antwort per Email an