Извините, ничего не найдено.

ViNT · 29.01.2010, 17:54

Сообщение от im_zorg

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

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

im_zorg · 29.01.2010, 18:01

в pngimahge gonit 4to-to

ViNT · 29.01.2010, 19:14

Сообщение от im_zorg

в pngimahge gonit 4to-to

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

WaReZ_MEN · 29.01.2010, 19:36

Сообщение от im_zorg

в pngimahge gonit 4to-to

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

im_zorg · 29.01.2010, 20:26

Сообщение от WaReZ_MEN

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

ага)))

im_zorg · 29.01.2010, 20:27

Сообщение от ViNT

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

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

im_zorg · 18.02.2010, 16:14

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

ViNT · 18.02.2010, 20:34

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

im_zorg · 26.03.2010, 20:21

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

WaReZ_MEN · 28.03.2010, 10:46

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. Дельфи у меня щас не установлена писал в блокноте но все должно работать.

im_zorg · 30.03.2010, 20:23

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

WaReZ_MEN · 31.03.2010, 10:31

Сообщение от im_zorg

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

Для "пасяб" есть кнопочка специальная

Если что обращайся

im_zorg · 31.03.2010, 12:07

Лови два +