forum.boolean.name - Нужна помошь)

forum.boolean.name (http://forum.boolean.name/index.php)

- Delphi (http://forum.boolean.name/forumdisplay.php?f=66)

- - Нужна помошь) (http://forum.boolean.name/showthread.php?t=11786)

Ответ: Нужна помошь)

Цитата:

Сообщение от im_zorg (Сообщение 135210)

а вот это что? Вчера 16:12
im_zorg

Ну как обычно - что значит "не компилится"?
Какие ошибки, в каких модулях?

Ответ: Нужна помошь)

в pngimahge gonit 4to-to

Ответ: Нужна помошь)

Цитата:

Сообщение от im_zorg (Сообщение 135215)

в pngimahge gonit 4to-to

Вообще надо распаковать весь архив в папку Lib, должно работать.

Ответ: Нужна помошь)

Цитата:

Сообщение от im_zorg (Сообщение 135215)

в pngimahge gonit 4to-to

компилятор прям так и пишет????
А пути прописали в настройках?
вообще хочешь помощи проси как положено а не короткими фразами... тут телепатов нет...

Ответ: Нужна помошь)

Цитата:

Сообщение от WaReZ_MEN (Сообщение 135229)

компилятор прям так и пишет????

ага)))

Ответ: Нужна помошь)

Цитата:

Сообщение от ViNT (Сообщение 135226)

Вообще надо распаковать весь архив в папку Lib, должно работать.

а я блин через components заливал((((

Ответ: Нужна помошь)

написал я свой редактор только он пишет что resourse TForm1 not found.
Вот исходник помогите пожалуйста он всё комлит это появляется когда программа runing.

Ответ: Нужна помошь)

Конечно будет ругаться на отсутствие формы.
Ее нужно прилинковать к Unit1 директивой {$R *.dfm}

Ответ: Нужна помошь)

Помогите ещё раз. Тот редактор что я сделал при картинке(карты) 500х500 он делает в map.txt всего 256х500 почему так???
Выложил Исходник плюс Результат работы мидлета.

Ответ: Нужна помошь)

im_zorg, ты жешь нафига использовать переменную типа

Код:

map: shortstring;

shortstring имеет максимально доступную длину 255 символов. а так как ты в переменную пытался всунуть 500 существенно они не лезли...
Использовал бы вообще число (Integer)

Код:

procedure TForm1.Button1Click(Sender: TObject);

begin

    bmp:=TBitmap.Create;

    bmp.LoadFromFile('map.bmp');

    if (bmp.Width>1000) or (bmp.Height>1000) then MessageBox(0,'Bitmap is too big!', nil, MB_OK or MB_ICONEXCLAMATION);

    AssignFile(f,'map.txt');

    Rewrite(f);

    for j:=0 to bmp.Height-1 do

    begin

      map:='';

      for i:=0 to bmp.Width -1 do

      begin

        c:=bmp.Canvas.Pixels[i,j];

        case c of

        $000000: map:='0';  // черный

        $0000FF: map:='1';  // красный

        $00FF00: map:='2';  // зеленый

        $00FFFF: map:='3';  // желтый

        $FF0000: map:='4';  // синий

        $FF00FF: map:='5';  // фиолетовый

        $FFFF00: map:='6';  // бирюзовый

        $FFFFFF: map:='7';  // белый

        end;

    WriteLn(f,map);

      end;

      

    end;

    CloseFile(f);

    halt;

end;

P.S. Дельфи у меня щас не установлена писал в блокноте но все должно работать.

Ответ: Нужна помошь)

пасяб только я map: shortstring; зделал в map: string;
и ещё забыл что это не висуалбейсик день не мог сделать((А надо было всего onclick поставить ту процедуру))

Ответ: Нужна помошь)

Цитата:

Сообщение от im_zorg (Сообщение 143672)

Для "пасяб" есть кнопочка специальная ;)
Если что обращайся :)

Ответ: Нужна помошь)