La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  1127 - ICONOS EN CLIPPER 5.3
Autor:  Jorge
Quisiera ver si alguien me pudiera ayudar, ya que quiero poder poner iconos, en mi programa de clipper, pero hasta ahora no he encontrado la manera de hacerlo, ojala me pudieran ayudar, gracias
  Respuesta:  Jorge Medina
Hola.
Te envio tú respuesta en una función, puedes incorporar a tu programa.
El programa debe compilarse, usando la Libreria LLIBG, de CLipper 5.3

Clipper myprogram.prg
Exospace fi myprogram Lib LLIBG
Ejemplo (logo.bmp, archivo que puede crearse en Paint brush o en otros programas)

function showbmp()
Local Logo:=gbmpLoad(´Logo.bmp´)
Set videomode to 18 //Vga 640*480
gbmpLoad(logo,20,30) //posición de la pantalla
inkey(0)
Set Videomode to 3 //pantalla texto
Return nil