ага, но что за
ARGB? в гугле ниче не нашел...
а терь проблема - после нажатия на "огонь" меню не появляеццо...
unit Edit;
interface
procedure open;
implementation
uses FileSystem, imloadjsr75, font32, menu32, effects, canvas, jpeg;
procedure open;
var open: string;
im: image;
coefw: real;
tw, th, sel, key: integer;
resize: boolean;
begin
font32.init(2);
font32.Font(0); font32.LoadFont('Verdana_7');
font32.Font(1); font32.LoadFont('Verdana_7b');
th := font32.TextHeight;
tw := font32.TextWidth('5 - menu')/2;
open := FileSystem.foldselect;
im := imloadjsr75.loadimage(open);
if getImageWidth(im) <= getwidth then resize := false else resize := true;
coefw := getImageWidth(im)/GetImageHeight(im);
showcanvas;
repeat
if resize = false then drawimage(im,0,0);
if resize = true then drawimage(canvas.resize_image(im, getwidth, trunc(getwidth/coefw)),0,0);
setcolor(0,0,0);
fillrect(0, getheight-th, getwidth, th);
font32.Font(1);
DrawString('5 - Menu', getheight-th, getwidth/2-tw); //и вот тут рисует текст не тем шрифтом что надо
repaint;
repeat key := GetKeyClicked until KeyToAction(key) = GA_FIRE;
if resize = false then drawimage(im,0,0);
if resize = true then drawimage(canvas.resize_image(im, getwidth, trunc(getwidth/coefw)),0,0);
menu32.init;
menu32.CreateCursor(130, 24, 4278190250);
menu32.SetMenuWindow(0, 0, getwidth, getheight);
menu32.MenuFonts(0, 1);
menu32.additem(loadimage('/menu/saveas.png'), 'Save as...');
menu32.additem(loadimage('/menu/effects.png'), 'Effects');
menu32.additem(loadimage('/menu/back.png'), 'Close');
drawmenu; repaint;
repeat
key:=KeyToAction(GetKeyClicked);
if key=GA_DOWN then begin CursorDown; DrawMenu; Repaint; Delay(100); end;
if key=GA_UP then begin CursorUp; DrawMenu; Repaint; Delay(100); end;
until (key=GA_FIRE); delay(100);