Gut, dann werde ich mal etwas damit experimentieren!STARGÅTE hat geschrieben:DrawImage() verlangt als ersten Parameter die ImageID, dass heißt, du musst dort:
DrawImage(ImageID(#Image),50,50,100,100) nutzen
habe deinen Beispielcode in mein Programm eingebaut und es funktioniert nun wie gewünscht!Danilo hat geschrieben:Hier ein Code um Bilder im CanvasGadget mit der Mouse zu verschieben.
Neue Bilder einfach mit AddImage() hinzufügen. Getestet auf Win & Mac.
Mit Menu:derschutzhund hat geschrieben:Jetzt müsste ich noch einzelne Bilder löschen können.
Also mit der Maus auf das Bild gehen und dann mit Rechtsklick löschen oder ein Menü einblenden und dann löschen.
Hast du dafür auch etwas code??
Code: Alles auswählen
EnableExplicit
Structure canvasitem
img.i
x.i
y.i
width.i
height.i
alphatest.i
EndStructure
Enumeration
#MyCanvas = 1 ; just to test whether a number different from 0 works now
EndEnumeration
Enumeration 10
#ImagePopup
EndEnumeration
Enumeration 10
#RemoveImage
EndEnumeration
Define isCurrentItem=#False
Define currentItemXOffset.i, currentItemYOffset.i
Define Event.i, x.i, y.i, drag.i, hole.i
NewList Images.canvasitem()
Procedure AddImage (List Images.canvasitem(), x, y, img, alphatest=0)
If AddElement(Images())
Images()\img = img
Images()\x = x
Images()\y = y
Images()\width = ImageWidth(img)
Images()\height = ImageHeight(img)
Images()\alphatest = alphatest
EndIf
EndProcedure
Procedure DrawCanvas (canvas.i, List Images.canvasitem())
If StartDrawing(CanvasOutput(canvas))
Box(0, 0, GadgetWidth(canvas), GadgetHeight(canvas), RGB(255,255,255))
DrawingMode(#PB_2DDrawing_AlphaBlend)
ForEach Images()
DrawImage(ImageID(Images()\img),Images()\x,Images()\y) ; draw all images with z-order
Next
StopDrawing()
EndIf
EndProcedure
Procedure.i HitTest (List Images.canvasitem(), x, y)
Shared currentItemXOffset.i, currentItemYOffset.i
Protected alpha.i, isCurrentItem.i = #False
If LastElement(Images()) ; search for hit, starting from end (z-order)
Repeat
If x >= Images()\x And x < Images()\x + Images()\width
If y >= Images()\y And y < Images()\y + Images()\height
alpha = 255
If Images()\alphatest And ImageDepth(Images()\img)>31
If StartDrawing(ImageOutput(Images()\img))
DrawingMode(#PB_2DDrawing_AlphaChannel)
alpha = Alpha(Point(x-Images()\x,y-Images()\y)) ; get alpha
StopDrawing()
EndIf
EndIf
If alpha
MoveElement(Images(), #PB_List_Last)
isCurrentItem = #True
currentItemXOffset = x - Images()\x
currentItemYOffset = y - Images()\y
Break
EndIf
EndIf
EndIf
Until PreviousElement(Images()) = 0
EndIf
ProcedureReturn isCurrentItem
EndProcedure
AddImage(Images(), 10, 10, LoadImage(#PB_Any, #PB_Compiler_Home + "Examples/Sources/Data/PureBasic.bmp"))
AddImage(Images(), 100,100, LoadImage(#PB_Any, #PB_Compiler_Home + "Examples/Sources/Data/GeeBee2.bmp"))
AddImage(Images(), 50,200, LoadImage(#PB_Any, #PB_Compiler_Home + "Examples/Sources/Data/AlphaChannel.bmp"))
hole = CreateImage(#PB_Any,100,100,32)
If StartDrawing(ImageOutput(hole))
DrawingMode(#PB_2DDrawing_AllChannels)
Box(0,0,100,100,RGBA($00,$00,$00,$00))
Circle(50,50,48,RGBA($00,$FF,$FF,$FF))
Circle(50,50,30,RGBA($00,$00,$00,$00))
StopDrawing()
EndIf
AddImage(Images(),170,70,hole,1)
If OpenWindow(0, 0, 0, 420, 420, "Move/Drag Canvas Image", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) = 0
MessageRequester("Fatal error", "Program terminated.")
End
EndIf
CanvasGadget(#MyCanvas, 10, 10, 400, 400)
DrawCanvas(#MyCanvas, Images())
CreatePopupMenu(#ImagePopup)
MenuItem(#RemoveImage,"Remove")
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget And EventGadget() = #MyCanvas
Select EventType()
Case #PB_EventType_LeftButtonDown
x = GetGadgetAttribute(#MyCanvas, #PB_Canvas_MouseX)
y = GetGadgetAttribute(#MyCanvas, #PB_Canvas_MouseY)
isCurrentItem = HitTest(Images(), x, y)
If isCurrentItem
DrawCanvas(#MyCanvas, Images())
EndIf
Drag = #True
Case #PB_EventType_LeftButtonUp
Drag = #False
Case #PB_EventType_MouseMove
If Drag = #True
If isCurrentItem
x = GetGadgetAttribute(#MyCanvas, #PB_Canvas_MouseX)
y = GetGadgetAttribute(#MyCanvas, #PB_Canvas_MouseY)
If LastElement(Images())
Images()\x = x - currentItemXOffset
Images()\y = y - currentItemYOffset
DrawCanvas(#MyCanvas, Images())
EndIf
EndIf
EndIf
Case #PB_EventType_RightButtonUp
x = GetGadgetAttribute(#MyCanvas, #PB_Canvas_MouseX)
y = GetGadgetAttribute(#MyCanvas, #PB_Canvas_MouseY)
isCurrentItem = HitTest(Images(), x, y)
If isCurrentItem
DrawCanvas(#MyCanvas, Images())
DisplayPopupMenu(#ImagePopup,WindowID(0))
EndIf
EndSelect
ElseIf Event = #PB_Event_Menu
Select EventMenu()
Case #RemoveImage
If LastElement(Images())
DeleteElement(Images())
DrawCanvas(#MyCanvas, Images())
EndIf
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
Funktioniert!NicTheQuick hat geschrieben:Du nutzt z.B. 'ResizeGadget()' zusammen mit der ID des CanvasGadgets und dann änderst du die Größe entsprechend, wenn man z.B. auf einen Button drückt, den du natürlich auch vorher noch erstellen und positionieren musst.
Ja, hier funktioniert das nur mit speziellen Befehlen.derschutzhund hat geschrieben:Bei PureBasic muss man wohl immer spezielle Befehle kennen?
Es gibt keinen fertigen Befehl zum Sortieren eines ListViewGadgets, aber deine Idee mit der Liste ist wohl hier die beste. Wenn du deine Liste angelegt hast, kannst du sie mittels 'SortList()' oder 'SortStructuredList()' sortieren. Beispiele dazu findest du wie immer in der Hilfe.Gibt es einen Befehl die Liste eines ListView Gadgets zu sortieren?
In diesem ListView befinden sich nur Vor- und Zunamen mit Leerzeichen getrennt.
Habe nichts aktuelles zu diesem Thema gefunden.
Vermutlich ist es besser wenn ich erst mal die Namen in eine Liste lade, die dann sortiere und dann erst ins ListView?
Das obliegt einzig und allein der Zeichnungroutine...derschutzhund hat geschrieben:...
Noch eine andere Sache würde ich gerne bezüglich canvas wissen.
Gibt es eine Möglichkeit bei konstanter Größe des definierten canvas z.B. 1024 x 768 die Darstellung zu verkleinern?
Also eine Art Zoom der canvasfläche?
Vielleicht mache ich da auch einen Denkfehler aber:Bisonte hat geschrieben:Das obliegt einzig und allein der Zeichnungroutine...derschutzhund hat geschrieben:...
Noch eine andere Sache würde ich gerne bezüglich canvas wissen.
Gibt es eine Möglichkeit bei konstanter Größe des definierten canvas z.B. 1024 x 768 die Darstellung zu verkleinern?
Also eine Art Zoom der canvasfläche?
Ob du da nun ein Bild so gross wie das Canvas reinmalst oder das Bild vorher verkleinerst....
Code: Alles auswählen
Procedure ansichtdrucken(EventType)
Define link, susname$, BildID.i
BildID.i=GetGadgetAttribute(Canvas_0,#PB_Canvas_Image)
If PrintRequester()
If StartPrinting("Sitzplan") ; Hier
If StartDrawing(PrinterOutput())
If druckformat$ = "P"
DrawImage(BildID,0,0,#druckbreite,#drucklange)
Else
DrawImage(BildID,0,0,#drucklange,#druckbreite)
EndIf
StopDrawing()
StopPrinting()
EndIf
EndIf
EndIf
EndProcedure