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
info at stoske-bertling dot de - www.stoske-bertling.de - ftp.stoske-bertling.de
|