importar imagenes
Publicado por karen (2 intervenciones) el 10/03/2007 00:34:00
como puedo importar una imagen a ada en windows??
Valora esta pregunta
0
with Gtk.Main; -- Paquete principal de GtkAda
with Gdk.Pixbuf; -- Paquete para trabajar con imágenes
with Gtk.Image; -- Paquete para mostrar imágenes
procedure MyProgram is
-- Tu código aquí
begin
-- Tu programa
end MyProgram;
with Gtk.Main;
with Gdk.Pixbuf;
with Gtk.Image;
procedure MyProgram is
MyWindow : Gtk.Window;
MyImage : Gtk.Image;
MyPixbuf : Gdk.Pixbuf.Gdk_Pixbuf;
begin
Gtk.Main.Init;
-- Cargar la imagen desde un archivo
MyPixbuf := Gdk.Pixbuf.Create_From_File("ruta/a/la/imagen.png");
-- Crear un objeto Gtk.Image y asignarle la imagen cargada
MyImage := new Gtk.Image(MyPixbuf);
-- Crear una ventana y mostrar la imagen en ella
MyWindow := new Gtk.Window;
MyWindow.Add(MyImage);
MyWindow.Show_All;
Gtk.Main.Main;
end MyProgram;