Drag&Drop ... von TreeView zu canvas

Übersicht BlitzMax, BlitzMax NG Allgemein

Neue Antwort erstellen

eleXity

ehemals "BlackProgrammer"

Betreff: Drag&Drop ... von TreeView zu canvas

 BeitragDo, Jul 02, 2009 19:49
Antworten mit Zitat
Benutzer-Profile anzeigen
Hey,
Für den Editor https://www.blitzforum.de/worklogs/110/, den ich gerade schreibe würde ich diese Funktion benötigen
allerdings habe ich kein plan wie ich das bewerkstelligen könnte, vllt mit der WinApi... Question

wäre echt super wenn einer von euch mir dazu nen Denkanstoß geben könnte

gruß
nVidia 570GTX | AMD Phenom II X6 | 8 GB RAM | 1TB | Win 7 Ultimate 64 SP1 | B3D, BMAX, BP, C#

Projekt : Worklog
 

klepto2

 BeitragFr, Jul 03, 2009 16:57
Antworten mit Zitat
Benutzer-Profile anzeigen
Da du ja mit LE arbeitest (soweit ich das erkennen konnte) kannst du auch direkt Maxgui benutzen. Denn für Win32 ist das bereits drinn (wenn auch undokumentiert, bei linux und mac weiß ich es nicht).

BlitzMax: [AUSKLAPPEN] 

' createtreeview.bmx

Import MaxGui.Drivers

Strict 

Local window:TGadget=CreateWindow("My Window",50,50,490,240,Null,WINDOW_TITLEBAR|WINDOW_CLIENTCOORDS)
Local treeview:TGadget=CreateTreeView(5,5,ClientWidth(window)-250,ClientHeight(window)-10,window,TREEVIEW_DRAGNDROP)
Local textarea:TGadget=CreateTextArea(5 + ClientWidth(window)-250,5,240,ClientHeight(window)-10,window)
SetGadgetLayout treeview, EDGE_ALIGNED, EDGE_ALIGNED, EDGE_ALIGNED, EDGE_ALIGNED

Local root:TGadget=TreeViewRoot(treeview)

Local help:TGadget=AddTreeViewNode("Help",root)
AddTreeViewNode "Topic 1",help
AddTreeViewNode "Topic 2",help
AddTreeViewNode "Topic 3",help

Local projects:TGadget=AddTreeViewNode("Projects",root)
AddTreeViewNode("Sub Project",AddTreeViewNode("Project 1",projects))
AddTreeViewNode("Project 2",projects)
AddTreeViewNode("Project 3",projects)

Global DropItem:TGadget = Null

While WaitEvent()
	Print CurrentEvent.ToString()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
		Case  EVENT_GADGETDRAG
			Dropitem:TGadget = TGadget.dragGadget[EventData() - 1]
			If DropItem <> Null Then AddTextAreaText(textarea,"Start Dragging: " + GadgetText(Dropitem) + "~n")
		Case  EVENT_GADGETDROP
			If DropItem <> Null Then
				AddTextAreaText(textarea , "Dropping: " + GadgetText(Dropitem) + "~n")
				DropItem = Null
			End If
	End Select
Wend
Matrix Screensaver
Console Modul für BlitzMax
KLPacker Modul für BlitzMax

HomePage : http://www.brsoftware.de.vu

eleXity

ehemals "BlackProgrammer"

BeitragMo, Jul 06, 2009 16:55
Antworten mit Zitat
Benutzer-Profile anzeigen
sry für die späte Antwort, aber ist ja klasse das das direkt drinne ist ^^

mfg
nVidia 570GTX | AMD Phenom II X6 | 8 GB RAM | 1TB | Win 7 Ultimate 64 SP1 | B3D, BMAX, BP, C#

Projekt : Worklog

Neue Antwort erstellen


Übersicht BlitzMax, BlitzMax NG Allgemein

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group