gui confusion - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|534\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz Max -> gui confusion
Page : 1 2 Next Prev
Tue, 26 Jan 2021, 04:37
spinal	gui confusion I was looking at blitzmax for creating a nice windows application with buttons etc. I have strung a couple of examples together to see if I can figure out whats going on, and well, i can't. Import MaxGui.Drivers Local window:TGadget Local colorPanel:TGadget Local red,green,blue Local filemenu:TGadget Const MENU_NEW=101 Const MENU_OPEN=102 Const MENU_SAVE=103 Const MENU_CLOSE=104 Const MENU_EXIT=105 Local helpmenu:TGadget Const MENU_ABOUT=109 Local wwidth=800 Local wheight=600 Local wx=(ClientWidth(Desktop())-wwidth)/2 Local wy=(ClientHeight(Desktop())-wheight)/2 window=CreateWindow("Title",wx,wy,wwidth,wheight,Null,WINDOW_TITLEBAR\|WINDOW_CLIENTCOORDS\|WINDOW_STATUS) Local MyButton:TGadget=CreateButton("Click Me",140,60,80,40, window) filemenu=CreateMenu("&File",0,WindowMenu(window)) CreateMenu"&New",MENU_NEW,filemenu,KEY_N,MODIFIER_COMMAND CreateMenu"&Open",MENU_OPEN,filemenu,KEY_O,MODIFIER_COMMAND CreateMenu"&Close",MENU_CLOSE,filemenu,KEY_W,MODIFIER_COMMAND CreateMenu"",0,filemenu CreateMenu"&Save",MENU_SAVE,filemenu,KEY_S,MODIFIER_COMMAND CreateMenu"",0,filemenu CreateMenu"E&xit",MENU_EXIT,filemenu,KEY_F4,MODIFIER_COMMAND helpmenu=CreateMenu("&Help",0,WindowMenu(window)) CreateMenu "&About",MENU_ABOUT,helpmenu UpdateWindowMenu window colorPanel=CreatePanel(20,50,32,32,window,PANEL_ACTIVE\|PANEL_BORDER) While True WaitEvent Select EventID() Case EVENT_WINDOWCLOSE End Case EVENT_MOUSEDOWN 'how does this know i clicked the colorPanel? If RequestColor(red,green,blue) red=RequestedRed() green=RequestedGreen() blue=RequestedBlue() SetPanelColor colorPanel,red,green,blue EndIf 'how does this know i clicked the button? Case EVENT_GADGETACTION SetGadgetText(MyButton,"Button clicked") Case EVENT_MENUACTION Select EventData() Case MENU_EXIT End Case MENU_ABOUT Notify "Map ReConstructor~n(C)2021" End Select End Select Wend --v Most of it makes perfect sense, but how on earth does it know what item has been clicked on? Case EVENT_MOUSEDOWN makes sense, but the other parts i just don't follow. the color selector doesnt seem to check if the colour panel was clicked, neither does the button one seem to check that specific button? What am I missing here? -=-=- Check out my excellent homepage!
Tue, 26 Jan 2021, 04:51
Pakz	www.2dgamecreators.com/maxgui/ I have not used blitzmax but in blitzplus you had these gadgetevents where you could find the item pressed with the variable you declared it with.
Tue, 26 Jan 2021, 05:33
Jayenkai	That's a terrible example, if you don't mind me saying so.. The "Colour palette clicker" is NOT a button, it's like a Javascript canvas, in that it recognises "MouseDown" events. When you MouseDown, it activates the MouseDown event, which launches the colour picker, specifically because it ISN'T a button, but is just a canvas. The GadgetAction is a different event from mousedown, and is probably confusing you more because it's indented the way it is.. Do that, and it should make much more sense. In either case, it actually DOESN'T know which thing you've clicked.. Just that the canvas only sends mousedown, and the button only sends GadgetAction. -=-=- ''Load, Next List!''
Tue, 26 Jan 2021, 08:20
spinal	That makes a bit more sense. Now to kick myself up the arse and make it do something! SuperStrict Import MaxGui.Drivers 'main window Local MyWindow:TGadget Local wwidth:Int=800 Local wheight:Int=600 Local wx:Int=(ClientWidth(Desktop())-wwidth)/2 Local wy:Int=(ClientHeight(Desktop())-wheight)/2 MyWindow=CreateWindow("My Program",wx,wy,wwidth,wheight,Null,WINDOW_TITLEBAR\|WINDOW_CLIENTCOORDS\|WINDOW_STATUS) 'File menu items Local filemenu:TGadget Const MENU_NEW:Int=101 Const MENU_OPEN:Int=102 Const MENU_SAVE:Int=103 Const MENU_CLOSE:Int=104 Const MENU_EXIT:Int=105 'Help menu items Local helpmenu:TGadget Const MENU_ABOUT:Int=109 Local Button1:TGadget=CreateButton("One",140,40,80,40, MyWindow) Local Button2:TGadget=CreateButton("Two",140,100,80,40, MyWindow) filemenu=CreateMenu("&File",0,WindowMenu(MyWindow)) CreateMenu"&New", MENU_NEW, filemenu,KEY_N,MODIFIER_COMMAND CreateMenu"&Open", MENU_OPEN, filemenu,KEY_O,MODIFIER_COMMAND CreateMenu"&Close",MENU_CLOSE,filemenu,KEY_W,MODIFIER_COMMAND CreateMenu"", 0,filemenu CreateMenu"&Save", MENU_SAVE, filemenu,KEY_S,MODIFIER_COMMAND CreateMenu"", 0,filemenu CreateMenu"E&xit", MENU_EXIT, filemenu,KEY_F4,MODIFIER_COMMAND helpmenu=CreateMenu("&Help",0,WindowMenu(MyWindow)) CreateMenu "&About",MENU_ABOUT,helpmenu ' Add the main menus UpdateWindowMenu MyWindow While True WaitEvent Select EventID() Case EVENT_WINDOWCLOSE ' If clode button clicked End Case EVENT_GADGETACTION Select EventSource() Case Button1 SetGadgetText(Button1,"Button clicked") Case Button2 SetGadgetText(Button2,"Button clicked") End Select Case EVENT_MENUACTION Select EventData() Case MENU_EXIT End Case MENU_ABOUT AppTitle$="About" Notify "Multi line~nInfo box~n(C)2021" End Select End Select Wend --v -=-=- Check out my excellent homepage!
Thu, 28 Jan 2021, 11:21
spinal	Wow, there doesn't seem to be a way to grap a pixel from an image in blitz max -=-=- Check out my excellent homepage!
Thu, 28 Jan 2021, 11:31
Jayenkai	I'm fairly sure there is.. is it not readpixel or getpixel or something? -=-=- ''Load, Next List!''
Thu, 28 Jan 2021, 11:31
spinal	nope, best I can find, is something about pixmaps
Thu, 28 Jan 2021, 11:33
Jayenkai	Aah, yeah. Grabpixmap, then read from that..
Thu, 28 Jan 2021, 11:37
rockford	IIRC you have to call LockBuffer first before using the pixel reading/grabbing and then unlock it again. It's been an awful long time since I used BMax though, so I could be completely wrong.
Thu, 28 Jan 2021, 11:50
Jayenkai	No that's older blitz. Bmax you have to convert to a pixmap which is essentially what a locked buffer used to be, but less easy to completely break like would happen when you forget to unlock a buffer!!! -=-=- ''Load, Next List!''
Thu, 28 Jan 2021, 12:43
rockford	There you go. Completely wrong!
Thu, 28 Jan 2021, 12:49
Jayenkai	That's ok.. Even I had to load up BMax to check -=-=- ''Load, Next List!''
Thu, 28 Jan 2021, 13:05
spinal	hmmm, this returns -16777216 Function GetPixel:Int(pixelX:Int, pixelY:Int) Local screenpixmap:TPixmap = CreatePixmap(1,1,PF_RGBA8888) screenpixmap = GrabPixmap(pixelX, pixelY,1,1) Return ReadPixel(screenpixmap,0,0) End Function --v -=-=- Check out my excellent homepage!
Thu, 28 Jan 2021, 13:47
Jayenkai	Perhaps it doesn't work in conjunction with MacGUI..? What exactly is it you're trying to do? -=-=- ''Load, Next List!''
Thu, 28 Jan 2021, 13:55
Jayenkai	Function Red(argb) Return (argb & $00FF0000) Shr 16 End Function Function Green(argb) Return (argb & $0000FF00) Shr 8 End Function Function Blue(argb) Return (argb & $000000FF) End Function val=-16777216 Print Red(val)+","+Green(val)+","+Blue(val) val=$00FF8800 Print Red(val)+","+Green(val)+","+Blue(val) --v -=-=- ''Load, Next List!''
Thu, 28 Jan 2021, 14:13
spinal	I'm attempting to pick a colour from a loaded image. Surely the following should work? -- nope... SuperStrict Graphics 640,480 Local screenpixmap:TPixmap = CreatePixmap(1,1,PF_RGBA8888) SetColor 255,0,128 DrawRect 0,0,20,20 Flip While Not KeyHit(KEY_ESCAPE) If(KeyHit(KEY_SPACE)) grabscreen() Wend Function Red:Int(argb:Int) Return (argb & $00FF0000) Shr 16 End Function Function Green:Int(argb:Int) Return Int (argb & $0000FF00) Shr 8 End Function Function Blue:Int(argb:Int) Return Int (argb & $000000FF) End Function Function grabScreen:Int() Local screenpixmap:TPixmap = CreatePixmap(0,0,PF_RGBA8888) screenpixmap = GrabPixmap(0, 0,1,1) Local val:Int = ReadPixel(screenpixmap,0,0) Print val Print Red(val)+","+Green(val)+","+Blue(val) Return ReadPixel(screenpixmap,0,0) End Function --v --edit-- This does nothing either... Local pixmap:TPixmap = CreatePixmap(640,480,PF_RGBA8888) pixmap = CreatePixmap( GraphicsWidth(), GraphicsHeight(), PF_RGBA8888 ) pixmap = GrabPixmap( 0,0,GraphicsWidth(), GraphicsHeight() ) SavePixmapPNG( pixmap, "c:\screenshot.png" ) --v -=-=- Check out my excellent homepage!
Thu, 28 Jan 2021, 14:36
spinal	Full code, in case I'm doing something correct somewhere The idea at this stage, is load a scenery image, then load a background layer, click the transparent colour button, followed by a click on the image somewhere and that colour should become transparent, showing the image underneath. Currently it seems to be plucking random negative values from somewhere. SuperStrict Import MaxGui.Drivers 'main window Local MyWindow:TGadget Local wwidth:Int=1024 Local wheight:Int=768 Local wx:Int=(ClientWidth(Desktop())-wwidth)/2 Local wy:Int=(ClientHeight(Desktop())-wheight)/2 MyWindow=CreateWindow("Map ReCreator",wx,wy,wwidth,wheight,Null,WINDOW_TITLEBAR \| WINDOW_MENU \| WINDOW_STATUS) 'MyWindow=CreateWindow("Map ReCreator",wx,wy,wwidth,wheight,Null,WINDOW_TITLEBAR \| WINDOW_RESIZABLE \| WINDOW_MENU \| WINDOW_STATUS) 'File menu items Local filemenu:TGadget Const MENU_NEW:Int=101 Const MENU_OPEN:Int=102 Const MENU_SAVE:Int=103 Const MENU_CLOSE:Int=104 Const MENU_EXIT:Int=105 'Help menu items Local helpmenu:TGadget Const MENU_ABOUT:Int=109 filemenu=CreateMenu("&File",0,WindowMenu(MyWindow)) CreateMenu"&New", MENU_NEW, filemenu,KEY_N,MODIFIER_COMMAND CreateMenu"", 0,filemenu CreateMenu"E&xit", MENU_EXIT, filemenu,KEY_F4,MODIFIER_COMMAND helpmenu=CreateMenu("&Help",0,WindowMenu(MyWindow)) CreateMenu "&About",MENU_ABOUT,helpmenu ' Add the main menus UpdateWindowMenu MyWindow SetStatusText MyWindow,"Map ReCreator" ' A few bits and pieces Local CanvasWidth:Int=640 Local CanvasHeight:Int=240 Global layerOneCanvas:TGadget = CreateCanvas(0,0,CanvasWidth,CanvasHeight,MyWindow,1) Local ImgX:Int=0 Local ImgY:Int=0 Global gfxLayer:TImage Global sceneryLayer:TImage Global sceneryFilename:String Global collisionLayer:TImage Global gfxFilename:String Global collisionFilename:String Global PicX%; Global PicY%' x and y for image in canvas displacement Global bgCol:Int[2,3] Global textfield:TGadget Local HScroller:TGadget=CreateSlider(GadgetX(layerOneCanvas),GadgetY(layerOneCanvas)+GadgetHeight(layerOneCanvas), GadgetWidth(layerOneCanvas), 20, MyWindow, SLIDER_HORIZONTAL) Local VScroller:TGadget=CreateSlider(GadgetX(layerOneCanvas)+GadgetWidth(layerOneCanvas), 0, 20, GadgetHeight(layerOneCanvas), MyWindow, SLIDER_VERTICAL) ' Buttons for opening files Local Button5:TGadget=CreateButton("Scenery", GadgetX(VScroller)+GadgetWidth(VScroller),0,120,40, MyWindow) Local Button1:TGadget=CreateButton("Background Layer", GadgetX(VScroller)+GadgetWidth(VScroller),GadgetHeight(Button5),120,40, MyWindow) Local Button2:TGadget=CreateButton("Collision Layer", GadgetX(VScroller)+GadgetWidth(VScroller),GadgetY(Button1)+GadgetHeight(Button1),120,40, MyWindow) Local Button3:TGadget=CreateButton("Transparent Colour",GadgetX(Button1)+GadgetWidth(Button1),GadgetY(Button1),120,40, MyWindow) Local Button4:TGadget=CreateButton("Transparent Colour",GadgetX(Button2)+GadgetWidth(Button2),GadgetY(Button2),120,40, MyWindow) ' hook the scrollbars to update the image when scrolling Local zz:hookcon =New hookcon ' scroll bars zz.initilise(HScroller,VScroller,layerOneCanvas) AddHook EmitEventHook, hookcon.FilterEvent, zz' scroll bars textfield=Createtext area(0,GadgetY(HScroller)+GadgetHeight(HScroller),GadgetWidth(layerOneCanvas),ClientHeight(MyWindow)-GadgetHeight(layerOneCanvas)-GadgetHeight(HScroller),myWindow) SetGadgetText( textfield,"A textfield gadget" ) Global gettingColour:Int = 0 Global grabbedColour:Int While True WaitEvent Select EventID() Case EVENT_MOUSEMOVE Select EventSource() Case layerOneCanvas 'SetStatusText MyWindow,"X:"+(EventX()+PicX)+" Y:"+(EventY()+PicY) SetStatusText MyWindow,"Col="+grabbedColour End Select Case EVENT_MOUSEDOWN Select EventSource() Case layerOneCanvas If gettingColour = 1 Then grabbedColour = GetPixel(EventX(),EventY()) Local r:Int Local g:Int Local b:Int 'GetColor(r, g, b) bgCol[0,0] = (grabbedColour Shr 16) & $ff bgCol[0,1] = (grabbedColour Shr 8) & $ff bgCol[0,2] = grabbedColour & $ff SetGadgetColor Button3,bgCol[0,0],bgCol[0,1],bgCol[0,2],True Local bright:Int = (r+g+b)/3 If bright<127 Then SetGadgetColor Button3,255,255,255,False Else SetGadgetColor Button3,0,0,0,False End If 'Reload the image SetMaskColor bgCol[0,0],bgCol[0,1],bgCol[0,2] gfxLayer = LoadImage(gfxFilename, MASKEDIMAGE) If gfxLayer = Null Print "Invalid file format!" Else Print " ("+(FileSize(gfxFilename)/1024)+"Kb) "+ImageWidth(gfxLayer)+"x"+ImageHeight(gfxLayer) renderCanvas() EndIf gettingColour = 0 End If End Select Case EVENT_WINDOWCLOSE ' If clode button clicked End Case EVENT_GADGETACTION Select EventSource() Case HScroller ImgX=EventData() RedrawGadget(layerOneCanvas) Case VScroller ImgY=EventData() RedrawGadget(layerOneCanvas) Case Button1 ' main graphics image 'SetGadgetText(Button1,"Button clicked") Local filter:String = "Image Files:png,jpg,bmp;" gfxFilename:String = RequestFile( "Select graphic file to open",filter ) Print gfxFilename ' Draw on the canvas SetGraphics CanvasGraphics(layerOneCanvas) ' Try loading the file as an image gfxLayer = LoadImage(gfxFilename) If gfxLayer = Null Print "Invalid file format!" Else Print " ("+(FileSize(gfxFilename)/1024)+"Kb) "+ImageWidth(gfxLayer)+"x"+ImageHeight(gfxLayer) If sceneryLayer <> Null DrawImage sceneryLayer,-PicX, -PicY If gfxLayer <> Null DrawImage gfxLayer,-PicX, -PicY If collisionLayer <> Null DrawImage collisionLayer,-PicX, -PicY SetSliderRange HScroller, CanvasWidth, ImageWidth(gfxLayer) SetSliderRange VScroller, CanvasHeight, ImageHeight(gfxLayer) RedrawGadget(HScroller) RedrawGadget(VScroller) RedrawGadget(layerOneCanvas) Flip EndIf Case Button2 ' Collision map image Local filter:String = "Image Files:png,jpg,bmp;" collisionFilename:String = RequestFile( "Select graphic file to open",filter ) Print collisionFilename ' Draw on the canvas SetGraphics CanvasGraphics(layerOneCanvas) ' Try loading the file as an image SetMaskColor 0,0,0 collisionLayer = LoadImage(collisionFilename, MASKEDIMAGE) If collisionLayer = Null Print "Invalid file format!" Else Print " ("+(FileSize(collisionFilename)/1024)+"Kb) "+ImageWidth(collisionLayer)+"x"+ImageHeight(collisionLayer) renderCanvas() EndIf Case Button3 ' tilemap transparent colour 'Local red:Int,green:Int,blue:Int 'If RequestColor(red,green,blue) ' red=RequestedRed() ' green=RequestedGreen() ' blue=RequestedBlue() ' bgCol[0,0] = red ' bgCol[0,1] = green ' bgCol[0,2] = blue ' SetGadgetColor Button3,bgCol[0,0],bgCol[0,1],bgCol[0,2],True ' Local bright:Int = (red+green+blue)/3 ' If bright<127 Then ' SetGadgetColor Button3,255,255,255,False ' Else ' SetGadgetColor Button3,0,0,0,False ' End If ' 'Reload the image ' SetMaskColor bgCol[0,0],bgCol[0,1],bgCol[0,2] ' gfxLayer = LoadImage(gfxFilename, MASKEDIMAGE) ' If gfxLayer = Null ' Print "Invalid file format!" ' Else ' Print " ("+(FileSize(gfxFilename)/1024)+"Kb) "+ImageWidth(gfxLayer)+"x"+ImageHeight(gfxLayer) ' renderCanvas() ' EndIf ' EndIf gettingColour = 1 Case Button4 ' collision map transparent colour Local red:Int,green:Int,blue:Int If RequestColor(red,green,blue) red=RequestedRed() green=RequestedGreen() blue=RequestedBlue() bgCol[1,0] = red bgCol[1,1] = green bgCol[1,2] = blue SetGadgetColor Button4,bgCol[1,0],bgCol[1,1],bgCol[1,2],True Local bright:Int = (red+green+blue)/3 If bright<127 Then SetGadgetColor Button4,255,255,255,False Else SetGadgetColor Button4,0,0,0,False End If 'Reload the image SetMaskColor bgCol[1,0],bgCol[1,1],bgCol[1,2] collisionLayer = LoadImage(collisionFilename, MASKEDIMAGE) If collisionLayer = Null Print "Invalid file format!" Else Print " ("+(FileSize(collisionFilename)/1024)+"Kb) "+ImageWidth(collisionLayer)+"x"+ImageHeight(collisionLayer) renderCanvas() EndIf EndIf Case Button5 Local filter:String = "Image Files:png,jpg,bmp;" sceneryFilename:String = RequestFile( "Select graphic file to open",filter ) Print sceneryFilename ' Draw on the canvas SetGraphics CanvasGraphics(layerOneCanvas) ' Try loading the file as an image SetMaskColor 255,0,255 sceneryLayer = LoadImage(sceneryFilename, MASKEDIMAGE) If sceneryLayer = Null Print "Invalid file format!" Else Print " ("+(FileSize(sceneryFilename)/1024)+"Kb) "+ImageWidth(sceneryLayer)+"x"+ImageHeight(sceneryLayer) renderCanvas() EndIf End Select Case EVENT_GADGETPAINT 'SetGraphics CanvasGraphics (layerOneCanvas) 'If image1 <> Null Drawimage image1,-ImgX, -ImgY 'Flip 'SetStatusText MyWindow, "ImgX="+ImgX+", ImgY="+ImgY Case EVENT_MENUACTION Select EventData() Case MENU_EXIT End Case MENU_ABOUT AppTitle$="About" Notify "Multi line~nInfo box~n(C)2021" End Select End Select Wend Function renderCanvas() SetGraphics CanvasGraphics(layerOneCanvas) Cls ' scenery is paralaxed Local mX:Int = picX/4; Local mY:Int = (picY-64)/4; If sceneryLayer <> Null Then Local num:Int = 0 If gfxLayer <> Null Then num = (ImageWidth(gfxLayer)/4)/ImageWidth(sceneryLayer) For Local x:Int = 0 To num+1 DrawImage sceneryLayer,-mX+(ImageWidth(sceneryLayer)*x), -mY Next End If If gfxLayer <> Null DrawImage gfxLayer,-PicX, -PicY If collisionLayer <> Null DrawImage collisionLayer,-PicX, -PicY RedrawGadget(layerOneCanvas) Flip End Function Type hookcon' hook for scroll bars to move image in the canvas Global Gad:TGadget[3]' number of gadgets in use Method initilise(Tv0:Tgadget,Tv1:Tgadget,Tv2:Tgadget) Gad[0]=Tv0'Hscroll Gad[1]=Tv1'Vscroll Gad[2]=Tv2'canvas that contains the game board PicX=0; PicY=0' x and y displacement of image/board due to scroll bars End Method Function FilterEvent:Object(iId:Int,tData:Object,tContext:Object) Â Local Event:TEvent=TEvent(tData) Â If Event.source=Gad[0] And Event.ID=EVENT_GADGETACTION PicX=event.dataÂ DoDraw() Â Â Â Â Â Â Return Null Â Else If Event.source=Gad[1] And Event.ID=EVENT_GADGETACTION Â Â Â Â Â Â Â PicY=event.dataÂ Â Â Â DoDraw() Â Â Â Â Return Null Else Â Return tData EndIf End Function Function DoDraw() renderCanvas() End Function Method GetPicX%()' get curent X displacement Local T1%=PicX; Return T1 End Method Method GetPicY%() Local T1%=PicY; Return T1' get curent Y displacement End Method End Type Function Red:Int(argb:Int) Return (argb & $00FF0000) Shr 16 End Function Function Green:Int(argb:Int) Return Int (argb & $0000FF00) Shr 8 End Function Function Blue:Int(argb:Int) Return Int (argb & $000000FF) End Function 'Old Blitz Style GetPixel Function Function GetPixel:Int(pixelX:Int, pixelY:Int) ' now grab what's been drawn and assign it to panel Local pix:TPixmap = CreatePixmap( 1, 1, PF_RGBA8888 ) pix=GrabPixmap( 50, 50, 1, 1 ) Local val:Int = ReadPixel(pix,0,0) Print pixelX+","+pixelY+","+val Print Red(val)+","+Green(val)+","+Blue(val) Return val End Function --v -=-=- Check out my excellent homepage!
Thu, 28 Jan 2021, 15:04
Jayenkai	An alternative. Load the image as both an image and as a pixmap, at the same time. Use the image for display purposes, and the pixmap as a data component. If you click on the image, use the same co-ords on the pixmap, If you want, you can edit the pixmap in memory, then newimage=loadimage(thepixmap) when it changes. -=-=- ''Load, Next List!''
Fri, 29 Jan 2021, 04:40
spinal	Worth a try i guess
Fri, 29 Jan 2021, 11:09
spinal	Getting there!, the code is a mess though. ' ' 8888ba.88ba a88888b. dP dP ' 88 `8b `8b d8' `88 88 88 ' 88 88 88 .d8888b. 88d888b. 88 .d8888b. 88d888b. .d8888b. d8888P 88d888b. dP dP .d8888b. d8888P .d8888b. 88d888b. ' 88 88 88 88' `88 88' `88 88 88' `88 88' `88 Y8ooooo. 88 88' `88 88 88 88' `"" 88 88' `88 88' `88 ' 88 88 88 88. .88 88. .88 Y8. .88 88. .88 88 88 88 88 88 88. .88 88. ... 88 88. .88 88 ' dP dP dP `88888P8 88Y888P' Y88888P' `88888P' dP dP `88888P' dP dP `88888P' `88888P' dP `88888P' dP ' oooooooooooooooooooooo 88 ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo ' dP SuperStrict Import MaxGui.Drivers 'main window Local MyWindow:TGadget Local wwidth:Int=1024 Local wheight:Int=768 Local wx:Int=(ClientWidth(Desktop())-wwidth)/2 Local wy:Int=(ClientHeight(Desktop())-wheight)/2 MyWindow=CreateWindow("Map ReCreator",wx,wy,wwidth,wheight,Null,WINDOW_TITLEBAR \| WINDOW_MENU \| WINDOW_STATUS) 'MyWindow=CreateWindow("Map ReCreator",wx,wy,wwidth,wheight,Null,WINDOW_TITLEBAR \| WINDOW_RESIZABLE \| WINDOW_MENU \| WINDOW_STATUS) 'File menu items Local filemenu:TGadget Const MENU_NEW:Int=101 Const MENU_OPEN:Int=102 Const MENU_SAVE:Int=103 Const MENU_CLOSE:Int=104 Const MENU_EXIT:Int=105 'Help menu items Local helpmenu:TGadget Const MENU_ABOUT:Int=109 filemenu=CreateMenu("&File",0,WindowMenu(MyWindow)) CreateMenu"&New", MENU_NEW, filemenu,KEY_N,MODIFIER_COMMAND CreateMenu"", 0,filemenu CreateMenu"E&xit", MENU_EXIT, filemenu,KEY_F4,MODIFIER_COMMAND helpmenu=CreateMenu("&Help",0,WindowMenu(MyWindow)) CreateMenu "&About",MENU_ABOUT,helpmenu ' Add the main menus UpdateWindowMenu MyWindow SetStatusText MyWindow,"Map ReCreator" ' A few bits and pieces Local CanvasWidth:Int=640 Local CanvasHeight:Int=240 Global layerOneCanvas:TGadget = CreateCanvas(0,0,CanvasWidth,CanvasHeight,MyWindow,1) Local ImgX:Int=0 Local ImgY:Int=0 Global gfxLayer:TImage Global sceneryLayer:TImage Global sceneryFilename:String Global collisionLayer:TImage Global gfxFilename:String Global collisionFilename:String Global PicX%; Global PicY%' x and y for image in canvas displacement Global bgCol:Int[2,3] Global textfield:TGadget 'pixmaps for grabbing pixels Global gfxPixMap:TPixmap Global sceneryPixMap:TPixmap Global collisionPixMap:TPixmap Local HScroller:TGadget=CreateSlider(GadgetX(layerOneCanvas),GadgetY(layerOneCanvas)+GadgetHeight(layerOneCanvas), GadgetWidth(layerOneCanvas), 20, MyWindow, SLIDER_HORIZONTAL) Local VScroller:TGadget=CreateSlider(GadgetX(layerOneCanvas)+GadgetWidth(layerOneCanvas), 0, 20, GadgetHeight(layerOneCanvas), MyWindow, SLIDER_VERTICAL) ' Buttons for opening files Local Button5:TGadget=CreateButton("Scenery", GadgetX(VScroller)+GadgetWidth(VScroller),0,120,40, MyWindow) Local Button1:TGadget=CreateButton("Background Layer", GadgetX(VScroller)+GadgetWidth(VScroller),GadgetHeight(Button5),120,40, MyWindow) Local Button2:TGadget=CreateButton("Collision Layer", GadgetX(VScroller)+GadgetWidth(VScroller),GadgetY(Button1)+GadgetHeight(Button1),120,40, MyWindow) Local Button3:TGadget=CreateButton("Transparent Colour",GadgetX(Button1)+GadgetWidth(Button1),GadgetY(Button1),120,40, MyWindow) Local Button4:TGadget=CreateButton("Transparent Colour",GadgetX(Button2)+GadgetWidth(Button2),GadgetY(Button2),120,40, MyWindow) Global zoomCanvas:TGadget zoomCanvas = CreateCanvas(GadgetX(VScroller)+GadgetWidth(VScroller), GadgetY(Button2)+GadgetHeight(Button2),240,240,MyWindow,PANEL_ACTIVE\|PANEL_BORDER) ' hook the scrollbars to update the image when scrolling Local zz:hookcon =New hookcon ' scroll bars zz.initilise(HScroller,VScroller,layerOneCanvas) AddHook EmitEventHook, hookcon.FilterEvent, zz' scroll bars textfield=Createtext area(0,GadgetY(HScroller)+GadgetHeight(HScroller),GadgetWidth(layerOneCanvas),ClientHeight(MyWindow)-GadgetHeight(layerOneCanvas)-GadgetHeight(HScroller),myWindow) SetGadgetText( textfield,"A textfield gadget" ) Global gettingColour:Int = 0 Global grabbedColour:Int While True WaitEvent Select EventID() Case EVENT_MOUSEMOVE Select EventSource() Case layerOneCanvas SetStatusText MyWindow,"Col="+grabbedColour If gfxPixMap <> Null Then SetGraphics CanvasGraphics(layerOneCanvas) Local pix:TPixmap = CreatePixmap( 12, 12, PF_RGBA8888 ) pix=GrabPixmap( EventX()-6, EventY()-6, 12, 12 ) Local newPix:TPixmap = CreatePixmap( 260, 260, PF_RGBA8888 ) For Local y:Int = 0 To 11 For Local x:Int = 0 To 11 Local col:Int = ReadPixel(pix,x,y) For Local y1:Int = 0 To 20 For Local x1:Int = 0 To 20 WritePixel(newPix,(x20)+x1,(y20)+y1,col) Next Next Next Next SetGraphics CanvasGraphics (zoomCanvas) DrawPixmap newPix,0,0 DrawCircle(130,130,15,15) Flip End If End Select Case EVENT_MOUSEDOWN Select EventSource() Case layerOneCanvas If gettingColour = 1 Then grabbedColour = GetPixel(EventX()+PicX,EventY()+picY) bgCol[0,0] = (grabbedColour Shr 16) & $ff bgCol[0,1] = (grabbedColour Shr 8) & $ff bgCol[0,2] = grabbedColour & $ff SetGadgetColor Button3,bgCol[0,0],bgCol[0,1],bgCol[0,2],True Local bright:Int = (bgCol[0,0]+bgCol[0,1]+bgCol[0,2])/3 If bright<127 Then SetGadgetColor Button3,255,255,255,False Else SetGadgetColor Button3,0,0,0,False End If 'Reload the image SetMaskColor bgCol[0,0],bgCol[0,1],bgCol[0,2] gfxLayer = LoadImage(gfxFilename, MASKEDIMAGE) gfxPixMap = LoadPixmap(gfxFilename) If gfxLayer = Null Print "Invalid file format!" Else Print " ("+(FileSize(gfxFilename)/1024)+"Kb) "+ImageWidth(gfxLayer)+"x"+ImageHeight(gfxLayer) renderCanvas() EndIf gettingColour = 0 End If End Select Case EVENT_WINDOWCLOSE ' If clode button clicked End Case EVENT_GADGETACTION Select EventSource() Case HScroller ImgX=EventData() RedrawGadget(layerOneCanvas) Case VScroller ImgY=EventData() RedrawGadget(layerOneCanvas) Case Button1 ' main graphics image 'SetGadgetText(Button1,"Button clicked") Local filter:String = "Image Files:png,jpg,bmp;" gfxFilename:String = RequestFile( "Select graphic file to open",filter ) Print gfxFilename ' Draw on the canvas SetGraphics CanvasGraphics(layerOneCanvas) ' Try loading the file as an image gfxLayer = LoadImage(gfxFilename, MASKEDIMAGE) gfxPixMap = LoadPixmap(gfxFilename) If gfxLayer = Null Print "Invalid file format!" Else Print " ("+(FileSize(gfxFilename)/1024)+"Kb) "+ImageWidth(gfxLayer)+"x"+ImageHeight(gfxLayer) SetSliderRange HScroller, CanvasWidth, ImageWidth(gfxLayer) SetSliderRange VScroller, CanvasHeight, ImageHeight(gfxLayer) RedrawGadget(HScroller) RedrawGadget(VScroller) RedrawGadget(layerOneCanvas) renderCanvas() renderCanvas() 'Flip EndIf Case Button2 ' Collision map image Local filter:String = "Image Files:png,jpg,bmp;" collisionFilename:String = RequestFile( "Select graphic file to open",filter ) Print collisionFilename ' Draw on the canvas SetGraphics CanvasGraphics(layerOneCanvas) ' Try loading the file as an image SetMaskColor 0,0,0 collisionLayer = LoadImage(collisionFilename, MASKEDIMAGE) collisionPixMap = LoadPixmap(collisionFilename) If collisionLayer = Null Print "Invalid file format!" Else Print " ("+(FileSize(collisionFilename)/1024)+"Kb) "+ImageWidth(collisionLayer)+"x"+ImageHeight(collisionLayer) renderCanvas() EndIf Case Button3 ' tilemap transparent colour If gfxPixMap <> Null Then 'Reload the image SetMaskColor -1,-1,-1 gfxLayer = LoadImage(gfxFilename) renderCanvas() gettingColour = 1 End If Case Button4 ' collision map transparent colour Local red:Int,green:Int,blue:Int If RequestColor(red,green,blue) red=RequestedRed() green=RequestedGreen() blue=RequestedBlue() bgCol[1,0] = red bgCol[1,1] = green bgCol[1,2] = blue SetGadgetColor Button4,bgCol[1,0],bgCol[1,1],bgCol[1,2],True Local bright:Int = (red+green+blue)/3 If bright<127 Then SetGadgetColor Button4,255,255,255,False Else SetGadgetColor Button4,0,0,0,False End If 'Reload the image SetMaskColor bgCol[1,0],bgCol[1,1],bgCol[1,2] collisionLayer = LoadImage(collisionFilename, MASKEDIMAGE) collisionPixMap = LoadPixmap(collisionFilename) If collisionLayer = Null Print "Invalid file format!" Else Print " ("+(FileSize(collisionFilename)/1024)+"Kb) "+ImageWidth(collisionLayer)+"x"+ImageHeight(collisionLayer) renderCanvas() EndIf EndIf Case Button5 Local filter:String = "Image Files:png,jpg,bmp;" sceneryFilename:String = RequestFile( "Select graphic file to open",filter ) Print sceneryFilename ' Draw on the canvas SetGraphics CanvasGraphics(layerOneCanvas) ' Try loading the file as an image SetMaskColor 255,0,255 sceneryLayer = LoadImage(sceneryFilename, MASKEDIMAGE) If sceneryLayer = Null Print "Invalid file format!" Else Print " ("+(FileSize(sceneryFilename)/1024)+"Kb) "+ImageWidth(sceneryLayer)+"x"+ImageHeight(sceneryLayer) renderCanvas() EndIf End Select Case EVENT_GADGETPAINT 'SetGraphics CanvasGraphics (layerOneCanvas) 'If image1 <> Null Drawimage image1,-ImgX, -ImgY 'Flip 'SetStatusText MyWindow, "ImgX="+ImgX+", ImgY="+ImgY Case EVENT_MENUACTION Select EventData() Case MENU_EXIT End Case MENU_ABOUT AppTitle$="About" Notify "Multi line~nInfo box~n(C)2021" End Select End Select Wend Function renderCanvas() SetGraphics CanvasGraphics(layerOneCanvas) Cls ' scenery is paralaxed Local mX:Int = picX/4; Local mY:Int = (picY-64)/4; If sceneryLayer <> Null Then Local num:Int = 0 If gfxLayer <> Null Then num = (ImageWidth(gfxLayer)/4)/ImageWidth(sceneryLayer) For Local x:Int = 0 To num+1 DrawImage sceneryLayer,-mX+(ImageWidth(sceneryLayer)x), -mY Next End If If gfxLayer <> Null DrawImage gfxLayer,-PicX, -PicY If collisionLayer <> Null DrawImage collisionLayer,-PicX, -PicY RedrawGadget(layerOneCanvas) Flip End Function Type hookcon' hook for scroll bars to move image in the canvas Global Gad:TGadget[3]' number of gadgets in use Method initilise(Tv0:Tgadget,Tv1:Tgadget,Tv2:Tgadget) Gad[0]=Tv0'Hscroll Gad[1]=Tv1'Vscroll Gad[2]=Tv2'canvas that contains the game board PicX=0; PicY=0' x and y displacement of image/board due to scroll bars End Method Function FilterEvent:Object(iId:Int,tData:Object,tContext:Object) Â Local Event:TEvent=TEvent(tData) Â If Event.source=Gad[0] And Event.ID=EVENT_GADGETACTION PicX=event.dataÂ DoDraw() Â Â Â Â Â Â Return Null Â Else If Event.source=Gad[1] And Event.ID=EVENT_GADGETACTION Â Â Â Â Â Â Â PicY=event.dataÂ Â Â Â DoDraw() Â Â Â Â Return Null Else Â Return tData EndIf End Function Function DoDraw() renderCanvas() End Function Method GetPicX%()' get curent X displacement Local T1%=PicX; Return T1 End Method Method GetPicY%() Local T1%=PicY; Return T1' get curent Y displacement End Method End Type Function Red:Int(argb:Int) Return (argb & $00FF0000) Shr 16 End Function Function Green:Int(argb:Int) Return Int (argb & $0000FF00) Shr 8 End Function Function Blue:Int(argb:Int) Return Int (argb & $000000FF) End Function 'Old Blitz Style GetPixel Function Function GetPixel:Int(pixelX:Int, pixelY:Int) SetGraphics CanvasGraphics(layerOneCanvas) ' now grab what's been drawn and assign it to panel Local pix:TPixmap = CreatePixmap( 1, 1, PF_RGBA8888 ) pix=GrabPixmap( pixelX, pixelY, 1, 1 ) Local val:Int = ReadPixel(gfxPixMap,pixelX,pixelY) 'Local val:Int = ReadPixel(pix,0,0) Print pixelX+","+pixelY+","+val Print Red(val)+","+Green(val)+","+Blue(val) Return val End Function Function DrawCircle:Int(ox:Float,oy:Float,rx:Float,ry:Float,steps:Float=12.0) Local degree:Float,xx:Float,yy:Float,fx:Float,fy:Float Local lxx:Float,lyy:Float xx=ox+Cos(degree)rx yy=oy+Sin(degree)ry lxx=xx lyy=yy fx=xx fy=yy While degree<360 xx=ox+Cos(degree)rx yy=oy+Sin(degree)*ry degree:+steps DrawLine lxx,lyy,xx,yy lxx=xx lyy=yy Wend DrawLine lxx,lyy,fx,fy End Function --v -=-=- Check out my excellent homepage!
Sun, 31 Jan 2021, 07:29
spinal	I wish the language would make up ots mind if it was BASIC or C 'or' is 'or' in an if statement, but '\|' if its a bitwise operation? grrrrr. -=-=- Check out my excellent homepage!
Wed, 03 Feb 2021, 04:20
spinal	Finally picking the correct background colour and placing it in location '0' of the palette... That took a little bit of work! -=-=- Check out my excellent homepage!
Wed, 03 Feb 2021, 04:25
Jayenkai	How are you getting on with MaxGUI, now? Getting the hang of it? -=-=- ''Load, Next List!''
Wed, 03 Feb 2021, 05:03
spinal	Not a sausage! I'm finding I have to do things twice for them to take effect, like rendering the image canvas. When I press the 'Transparent Colour' button, I then have to reload the background image with an illegal mask as you can't change the mask colour once it's loaded, then have to redraw the canvas twice for it to take effect Â¯\_(ãƒ„)_/Â¯ Then select the colour from the pixmap, then reload the image again with the new mask and then of cource redraw it twice or else it doesn't update. No doubt I'll forget everything once this project is finished -=-=- Check out my excellent homepage!
Wed, 03 Feb 2021, 06:57
Jayenkai	Well, at least it's working
Fri, 05 Feb 2021, 07:40
spinal	Oh, this one is fun! Const tileSize:Int = 8 Local tempArray:Int[(tileSize+1)(tileSize+1)] ' make bigger than i need just in case Local tempArrayFlip:Int[tempArray.Length] --v For Local y:Int = 0 To tileSize For Local x:Int = 0 To tileSize ' get pixel from pixmap Local val:Int = ReadPixel(gfxPixmap ,x+(x1tileSize),y+(y1tileSize)) ' get r,g,b from pixel data in 5,6,5 format Local r:Int=((val & $00FF0000) Shr 16) Shr 3 Local g:Int=((val & $0000FF00) Shr 8) Shr 2 Local b:Int=((val & $000000FF)) Shr 3 ' make RGB565 from r,g,b Local rgb565:Int = (r Shl 11) \| (g Shl 5) \| b Local thisColour:Int = checkColour(rgb565) tempArray[x+tileSizey] = thisColour tempArrayFlip[(tileSize-x)+tileSizey] = thisColour Next Next --v The line tempArrayFlip[(tileSize-x)+tileSizey] = thisColour --v Gives a nice error once x and y become 8... Unhandled Exception:Attempt to index element beyond array length --v x=8 y=8 x+tileSizey=72 (tileSize-x)+tileSizey=64 arraySize=81 Now, last time I checked, 64 was smaller than 81..... Argh!!!!! -=-=- Check out my excellent homepage!
Page : 1 2 Next Prev