Code: Select all
Oma, I take it you're Omi 
Code: Select all
GPimage =gdk_pixbuf_new_from_file(nom,Gerr);
GWimage = gtk_image_new_from_pixbuf (GPimage);
I only discovered chabba.de today and it looks quite comprehensive!!! A lot to go through, niceBut at the moment the API-Library is updated (for gtk3 too) and extended. http://www.chabba.de/
Code: Select all
f = fopen ("test.jpg", "r");
length = fread (buffer, 1, sizeof(buffer), f);
fclose (f);
loader = gdk_pixbuf_loader_new ();
gdk_pixbuf_loader_write (loader, buffer, length, NULL);
pixbuf = gdk_pixbuf_loader_get_pixbuf (loader);
image = gtk_image_new_from_pixbuf (pixbuf);
Code: Select all
;This is a from-memory version based on this original from-file version by Omi: http://www.chabba.de/Linux/ButtonGadget/Button_AddImage.pb
EnableExplicit
ImportC ""
gtk_button_set_image(*button.GtkButton, *image.GtkWidget)
gtk_button_set_image_position(*button.GtkButton, position)
gtk_button_set_label(*button.GtkButton, label.p-utf8)
gtk_image_clear(*image.GtkWidget)
gtk_image_new_from_pixbuf(*pimg)
g_object_set(*object.GObject, property_name.p-utf8, *data, v= 0)
gdk_pixbuf_loader_new.i()
gdk_pixbuf_loader_write.l(*loader, *buffer, *count, *error)
gdk_pixbuf_loader_get_pixbuf.i(*loader)
gdk_pixbuf_loader_close(*loader, *error)
EndImport
#MainWin= 0
Enumeration
#myButton1
EndEnumeration
Global *image1
Procedure ButtonImages_Activate(Show)
g_object_set(gtk_settings_get_default_(), "gtk-button-images", Show, #Null)
EndProcedure
Procedure ButtonGadget_AddImage(Gadget, *Pic, Label.s, Alignment)
gtk_button_set_image(GadgetID(Gadget), *Pic)
gtk_button_set_label(GadgetID(Gadget), Label)
gtk_button_set_image_position(GadgetID(Gadget), Alignment)
EndProcedure
If OpenWindow(#MainWin, #PB_Ignore, #PB_Ignore, 250, 150, "Linux Button with image from memory", #PB_Window_ScreenCentered)
Define hFile.i, *ximage, *pimg, fLen.q, *pixbuf, *error, *loader
ButtonGadget(#myButton1, 20, 20, 200, 80, "")
hFile.i = ReadFile(#PB_Any, "/home/administrator/Desktop/testpng24bit.png") ;pretend this is an IncludeBinary()!
If hFile = 0
MessageRequester("Error","Couldnt readfile image file")
Else
fLen = Lof(hFile)
*pimg = AllocateMemory(fLen)
ReadData(hFile, *pimg, fLen)
CloseFile(hFile)
;---
*loader = gdk_pixbuf_loader_new()
gdk_pixbuf_loader_write(*loader, *pimg, fLen, 0)
gdk_pixbuf_loader_close(*loader, *error)
FreeMemory(*pimg)
*pixbuf = gdk_pixbuf_loader_get_pixbuf(*loader)
*image1 = gtk_image_new_from_pixbuf(*pixbuf)
;---
ButtonGadget_AddImage(#myButton1, *image1, "", #GTK_POS_LEFT)
ButtonImages_Activate(#True)
EndIf
Else
End
EndIf
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
;free image-memory...
If *image1
gtk_image_clear(*image1)
EndIf
End
)Code: Select all
EnableExplicit
; UsePNGImageDecoder(); NOT :-)
ImportC ""
gtk_button_set_image(*button.GtkButton, *image.GtkWidget)
gtk_button_set_image_position(*button.GtkButton, position)
gtk_button_set_label(*button.GtkButton, label.p-utf8)
gtk_image_clear(*image.GtkWidget)
gtk_button_set_alignment(*button.GtkButton, xalign.f, yalign.f)
g_object_set(*object.GObject, property_name.p-utf8, *data, v= 0)
gdk_pixbuf_loader_write(*loader, *buf, count, *error)
gdk_pixbuf_loader_get_pixbuf(*loader)
gdk_pixbuf_loader_new()
gdk_pixbuf_loader_close(*loader, *error)
g_signal_connect(*instance, detailed_signal.p-ascii, *c_handler, *pdata, destroy= 0, flags= 0) As "g_signal_connect_data"
EndImport
#Win_Main= 0
Enumeration
#But1
#But2
#Dummy
#ImG1
#BIG1
#Txt1
#LIG
EndEnumeration
Global.i gEvent, gQuit
Global *gPixbuf
Global *gImage1, *gImage2
;Declare ButtonGadget_AddImage(Gadget, *Pic, Label.s, Alignment)
Procedure GetGadgetPixbuf(mem, size)
Protected loader = gdk_pixbuf_loader_new()
Protected *pixbuf, *err.GError
*err= 0 : gdk_pixbuf_loader_write(loader, mem, size, @*err)
If *err : Debug "Error: " + PeekS(*err\message, -1, #PB_UTF8) : EndIf
*err= 0 : gdk_pixbuf_loader_close(loader, @*err); Important to get the things going, else: Do you know 'Sankt Nimmerleinstag'?!
If *err : Debug "Error: " + PeekS(*err\message, -1, #PB_UTF8) : EndIf
*pixbuf = gdk_pixbuf_loader_get_pixbuf(loader)
ProcedureReturn *pixbuf
EndProcedure
; -----
Procedure ButtonImages_Activate(Show)
g_object_set(gtk_settings_get_default_(), "gtk-button-images", Show, #Null)
EndProcedure
Procedure ButtonGadget_AddImage(Gadget, *Pic, Label.s, Alignment)
gtk_button_set_image(GadgetID(Gadget), *Pic)
gtk_button_set_label(GadgetID(Gadget), Label)
gtk_button_set_image_position(GadgetID(Gadget), Alignment)
EndProcedure
gtk_window_set_default_icon_(GetGadgetPixbuf(?Img3, ?Img4-?Img3)); If gtk_window_set_default_icon_() is used, comment gtk_window_set_icon_() call below.
If OpenWindow(#Win_Main, #PB_Ignore, #PB_Ignore, 500, 300, "Use exe embedded images w/o ImageDecoder", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
;if icons are not shown, uncomment the following line ...
ButtonImages_Activate(#True)
ButtonGadget(#But1, 5, 5, 290, 30, " ", #PB_Button_Toggle)
ButtonGadget(#But2, 5, 40, 290, 30, " ", #PB_Button_Toggle)
TextGadget (#Txt1, 5, 80, 240, 30, "Look at window-/taskbar-/dock- icon")
TextGadget (#PB_Any, 5, 115, 190, 22, "A PB ImageGadget()")
TextGadget (#PB_Any, 5, 145, 190, 22, "A PB ButtonImageGadget()")
ListIconGadget(#LIG, 5, 175, 490, 120, "Col1 with embedded pixbufs w/o ImageDecoder", 350, #PB_ListIcon_GridLines)
AddGadgetColumn(#LIG, 1, "Col 2", 90)
;Further Gadgets with embedded, decoderless images are created here ...
*gImage1= gtk_image_new_from_pixbuf_(GetGadgetPixbuf(?Img1, ?Img2-?Img1)); Needs Ptr to free it
ButtonGadget_AddImage(#But1, *gImage1, "1. ButtonGadget with left image", #GTK_POS_LEFT); add pixbuf to #But1
*gImage2= gtk_image_new_from_pixbuf_(GetGadgetPixbuf(?Img2, ?Img3-?Img2))
ButtonGadget_AddImage(#But2, *gImage2, "2. ButtonGadget with right image", #GTK_POS_RIGHT); add pixbuf to #But2
ImageGadget(#ImG1, 200, 110, 16, 16, GetGadgetPixbuf(?Img4, ?Img5-?Img4))
ButtonImageGadget(#BIG1, 200, 140, 28, 28, GetGadgetPixbuf(?Img5, ?Img6-?Img5))
AddGadgetItem(#LIG, -1, "1-1" + #LF$ + "1-2", GetGadgetPixbuf(?Img4, ?Img5-?Img4))
AddGadgetItem(#LIG, -1, "2-1" + #LF$ + "2-2", GetGadgetPixbuf(?Img5, ?Img6-?Img5))
; gtk_window_set_icon_(WindowID(#Win_Main), GetGadgetPixbuf(?Img3, ?Img4-?Img3)); if used, comment gtk_window_set_default_icon_() above
Else
End
EndIf
Repeat
gEvent= WaitWindowEvent()
If EventWindow() = #Win_Main
Select gEvent
Case #PB_Event_CloseWindow
gQuit= #True
EndSelect
EndIf
Until gQuit
;free global image-memory...
gtk_image_clear(*gImage1)
gtk_image_clear(*gImage2)
DataSection
;Choose your pathes and pics here ...
Img1: : IncludeBinary "/usr/share/icons/default.kde4/16x16/actions/arrow-left.png"
Img2: : IncludeBinary "/usr/share/icons/default.kde4/16x16/actions/arrow-right.png"
Img3: : IncludeBinary "/usr/share/icons/default.kde4/48x48/apps/preferences-desktop-screensaver.png"
Img4: : IncludeBinary "/usr/share/icons/default.kde4/16x16/actions/arrow-down.png"
Img5: : IncludeBinary "/usr/share/icons/default.kde4/16x16/actions/arrow-up.png"
Img6: : ; MUST! End of Img5-Mem:
EndDataSectionCode: Select all
EnableExplicit
ImportC ""
gdk_pixbuf_get_formats()
gdk_pixbuf_format_is_writable(pdata)
EndImport
Procedure GdkEnumPixbufFormats()
Protected sAccess.s, *gdkfmts.GSList = gdk_pixbuf_get_formats()
If *gdkfmts
Repeat
If gdk_pixbuf_format_is_writable(*gdkfmts\data): sAccess = "RW:": Else: sAccess = "R:": EndIf
Debug( sAccess + #TAB$ + PeekS(PeekI(*gdkfmts\data),-1,#PB_Ascii) )
*gdkfmts = *gdkfmts\next ;linked list
Until *gdkfmts = 0
EndIf
EndProcedure
GdkEnumPixbufFormats()
MessageRequester("Done","Finished enumerating, see Debug window")(so, apparently not jpeg2000? unless 'jpeg' supports that) Also interesting that GdkPixdata isnt a writable formatGdkPixdata, *tiff, icns, *ico, ani, xbm, xpm, *jpeg, wbmp, pcx, gif, *bmp, tga, ras, qtif, *png, svg, pnm
Code: Select all
ImportC ""
gdk_pixbuf_get_byte_length(*pixbuf) ;length of pixels in bytes
gdk_pixbuf_get_pixels(*pixbuf) ;address of pixels
EndImport
sizepixels = gdk_pixbuf_get_byte_length(*pixbuf)
addrpixels = gdk_pixbuf_get_pixels(*pixbuf)
MessageRequester("PixBuf pixels", Str(sizepixels) + " bytes (comprising " + Str(sizepixels / 4) + " RGBA pixels?) @ 0x" + Hex(addrpixels))and gdk_pixbuf_READ_pixels:Queries a pointer to the pixel data of a pixbuf. This function will cause an implicit copy of the pixbuf data if the pixbuf was created from read-only data.
thats working fine though i could only get the _GET_pixels one to compile ('undefined reference' for _READ_pixels), i dont know if thats just something im doing wrong or...Returns a read-only pointer to the raw pixel data; must not be modified. This function allows skipping the implicit copy that must be made if gdk_pixbuf_get_pixels() is called on a read-only pixbuf.
Code: Select all
; [WARNING] GLib-GObject (WARNING): IA__g_object_set_valist: object class `GtkSettings' has no property named `gtk-button-images'
g_object_set(gtk_settings_get_default_(), "gtk-button-images", Show, #Null)Code: Select all
EnableExplicit
ImportC ""
gdk_pixbuf_loader_new.i()
gdk_pixbuf_loader_write.l(*loader, *buffer, *count, *perror)
gdk_pixbuf_loader_get_pixbuf.i(*loader)
gdk_pixbuf_loader_close(*loader, *error)
gdk_pixbuf_save(*pixbuf, filename.p-utf8, type.p-utf8, *perror, var1.p-utf8, var2.p-utf8, stopvar=#Null) ;can have more vars if required. last must be #Null as terminator
EndImport
Procedure ConvertImageFile(ImgFileIn.s, ImgFileOut.s)
Define hFile.i, *ximage, *pimg, fLen.q, *pixbuf, *perror, *loader
hFile.i = ReadFile(#PB_Any, ImgFileIn)
If hFile = 0
MessageRequester("Error","Couldnt readfile image file")
End
EndIf
fLen = Lof(hFile)
*pimg = AllocateMemory(fLen)
ReadData(hFile, *pimg, fLen)
CloseFile(hFile)
*loader = gdk_pixbuf_loader_new()
gdk_pixbuf_loader_write(*loader, *pimg, fLen, 0)
gdk_pixbuf_loader_close(*loader, *perror)
*pixbuf = gdk_pixbuf_loader_get_pixbuf(*loader)
FreeMemory(*pimg)
*perror = 0
;If gdk_pixbuf_save(*pixbuf, ImgFileOut, "bmp", *perror, #Null, #Null, #Null) ;eg. save as Windows BMP from Linux, nice
;If gdk_pixbuf_save(*pixbuf, ImgFileOut, "png", *perror, #Null, #Null, #Null) ;eg. save as PNG
;If gdk_pixbuf_save(*pixbuf, ImgFileOut, "png", *perror, "compression", "9", #Null) ;eg. save as PNG with variable Compression (0-9)
If gdk_pixbuf_save(*pixbuf, ImgFileOut, "jpeg", *perror, "quality", "100", #Null) ;eg. save as JPG with variable Quality (0-100%)
MessageRequester("OK","Saved")
Else
MessageRequester("Error","Failed to save")
EndIf
EndProcedure
Define sImageIn.s, sImageOut.s
sImageIn = "/home/administrator/Desktop/testimg.png" ;PNG in...
sImageOut = "/home/administrator/Desktop/testout.jpg" ;JPG out, because why not :)
ConvertImageFile(sImageIn, sImageOut)
End
I now realized on your example that some codes need a Window + Event-Loop or MessageRequester. The no error is thrown;purebasic.o:(.text+0x2c): Nicht definierter Verweis auf `gdk_pixbuf_get_formats'
;collect2: error: ld returned 1 exit status
Code: Select all
gdk_pixbuf_save(*pixbuf, filename.p-utf8, type.p-utf8, *perror, var1.p-utf8, var2.p-utf8, Stop=0)
If gdk_pixbuf_save(*pixbuf, ImgFileOut, "jpeg", *perror, "quality", "100", #Null)
;Set Strings as Strings without Pointer-@ in the call.
lol, yes I stopped to read for about five minutes before having another idea and wanting to try something. Im very tired now though, its been a long day so im going to retire to bed with one of my programming Linux/Mac for newbies books heehe, see if i can keep my eyes open for five more minutesOma wrote:
I see you got a relaxed sunday and a little bottle wine mobilizes the reserves.
Im not sure either, i guess we can test over the coming days to be sure, but in the first page of this thread Trond said "A problem with gdk/gtk functions is that they require strings in UTF-8 format." so your current p-utf8's probably are right thenOma wrote:;Set Strings as Strings without Pointer-@ in the call.[/code] it runs as Unicode too.
But i'm not absolutely sure whether filename has to be Ascii or UTF8.
I call Oma's ButtonImages_Activate() also... do you get the error in my version too? in my version i only call it after initialising them (ive got no idea if that makes a difference or not - perhaps youve just found the answer, i just moved it to the end as it felt right, lol), so if you move that call down towards the end does that fix this problem?Vera wrote:@Charly
runing your example works well, though I get a warning in ButtonImages_Activate(Show)But if I comment call and procedure it runs alike and without warning.Code: Select all
; [WARNING] GLib-GObject (WARNING): IA__g_object_set_valist: object class `GtkSettings' has no property named `gtk-button-images' g_object_set(gtk_settings_get_default_(), "gtk-button-images", Show, #Null)
greets ~ Vera