ItemPainter по идее QaK

[QaK]

bistriy, если не понимаешь - кури матчасть, т.е. учебник по паскалю для начинающих, или даже лучше дельфу для начинающих. Если весь код коментировать - это застрелиться проще, есть алгоритм, есть его реализация в виде программы, ну, можно, допустим, в описании переменных подписать, что какая значит, а не весь код коментить. А так - зная основы программирования - код можно понять.
З.Ы. Запятые, плз, ставь, очень сложно читать посты.

[bistriy]

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

bistriy, если не понимаешь - кури матчасть, т.е. учебник по паскалю для начинающих, или даже лучше дельфу для начинающих. Если весь код коментировать - это застрелиться проще, есть алгоритм, есть его реализация в виде программы, ну, можно, допустим, в описании переменных подписать, что какая значит, а не весь код коментить. А так - зная основы программирования - код можно понять.
З.Ы. Запятые, плз, ставь, очень сложно читать посты.

Я просил хоть немного начать обьяснять суть кода а не давать советы.
Я в советах асс. А вот в кодах нешарю. Вкурил ?

Добавлено через 4 минуты
Вот мое добавление .
Как нарисовать в окне формы картинку:
1. Добавить в функцию function Create_FormMain : TForm;

КОд:
 //Image1
    Image1:= TImage.Create(Result);
    Image1.Parent:=Result;
    Image1.Left :=10;
    Image1.Top := 20;
    Image1.Width := 160;
    Image1.Height := 160;
    Image1.Visible := TRUE;
    Image1.Tag := 0;
    Image1.Enabled := TRUE;
    Image1.Hint := '';
    Image1.ShowHint := FALSE;
    Image1.AutoSize := TRUE;
2.Добавить в процедуру procedure LoadButton_Click(Sender: TButton);
Код:
  Image1.Picture.LoadFromFile(path.text);
  Image11;  // Процедура сдвига формы рисует картинку на форме.
3. ДОбавить код:
Procedure Image11; // сдвигаю форму чтобы нарисовалась картинка.
begin
FormMain.Width := FormMain.Width + 1;
FormMain.Width := FormMain.Width - 1;
    //-------------------------------------------

end;

[QaK]

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

Procedure Image11; // сдвигаю форму чтобы нарисовалась картинка.
begin
FormMain.Width := FormMain.Width + 1;
FormMain.Width := FormMain.Width - 1;
* * //-------------------------------------------

end;

это нафига? что еще за бред? с каких пор нужно двигать формочку, чтоб картинка нарисовалась?

[Fer123]

Скрипт обновил в первом посте.
-Исправил проверку пакета #$64 который приходит после /loc так как оказывается вторые 4 байта (тип системного сообщения) меняется взависимости от территории.
-Добавил в форму загружаемую картинку спс bistriy. Кстате форму действительно не надо двигать
-Переписал процедуру клика по комбобоксу Item, чтоб более понятней было.
-теперь правильно выгружаю bmp файл
И написал кое-какие коменты для переменных
safalkon
Скачай заново скрипт теперь все будет работать