[GOODBYTE]

я тут попробывал сделать мидлет, с использованием твоей библиотеки, но в результате получил что он не загружает картинку, а выводит почему-то только фон..

Не подскажешь, в чём ошибка?

program hello;

uses alpha;

var 	load_image : image;
			im_h, im_w, h, w, ph, pw, i : integer;

begin
	
	load_image := loadImage('/media.png');
	
	h  := getHeight;
	w := getWidth;
	im_w := getImageWidth(load_image);
	im_h := getImageHeight(load_image);
	
	(* вычиселение новых координат :) *)
	
	ph := h / 2;
	pw := (w / 2) - (im_w / 2);
	
	for i := 1 to alpha.GetAlphaLevels do

		begin
			
			setColor(0, 0, 0);
			FillRect(0, 0, w, h);
						
			alpha.SetTransparentColor(255,255,255); 
			load_image := alpha.SetOpaque(load_image,alpha.GetAlphaLevels);
			
			DrawImage(load_image, pw, ph);
			
			repaint;
			delay(2);
		
		end;
set_color(255,255,255);
		drawText('Hello world!', 0, 0);
		repaint;	
		delay(2000);
end.