Сообщение от Трава
Тада хз... У меня работает. А какая у тя версия? В смысле, русская или англ? У меня англ и всё пашет.
|
Английская. И вот эта прога у тебя пашет?:
program NewProject;
uses effects;
var
img : image;
begin
SetColor(0,0,0); // Очищаем экран черным
FillRect(0,0,GetWidth,GetHeight);
SetColor(255,20,20);
drawline(10,10,60,60); // Рисую линию
img := ImageFromCanvas(0,0,70,70); // Грабим с конваса
img := effect(img,1); //Негатив (инверсия)
DrawImage(img,0,0); // Выводим что получилось
Repaint;
delay(2000);
end.
У меня лично нет. Она выводит всю туже красную линию на черном. А должна по идее синию на белом. Такое ощущение, что effect возвращает в img NIL или что-то непотребное, поэтому DrawImage не выполняеться (выполняеться, но с кривыми параметрами). Или же effect вообще не выполняеться, а сразу выходит из процедуры. Что я делаю не так?