AK
да, я сам рисовал в OnDrawCell
Size: a a a
2020 March 17
DB
ок, пока поищу
AK
самое простое было без ресайза у меня (в другом месте с ресайзом)
procedure TROSearchItemForm.sgSearchResultDrawCell(Sender: TObject; aCol,
aRow: Integer; aRect: TRect; aState: TGridDrawState);
var
ls:String;
lp:TPicture;
idx:integer;
begin
if (aRow>0) and (aCol=0) then
begin
idx:=StrToInt(sgSearchResult.Cells[sgSearchResult.ColCount-1,aRow]);
ls:=RODB_GetSprite(idx,1,rosmItem);
if ls='' then exit;
lp:=TPicture.Create;
try
lp.LoadFromFile(ls);
except
exit;
end;
sgSearchResult.RowHeights[aRow]:=lp.Height+4;
sgSearchResult.Canvas.Draw(aRect.Left+2,aRect.Top+2,lp.Bitmap);
lp.Free;
end;
end;
AK
со старого проекта
DB
ок, спасибо
AK
ну, т.е. там всё просто
VA
самое простое было без ресайза у меня (в другом месте с ресайзом)
procedure TROSearchItemForm.sgSearchResultDrawCell(Sender: TObject; aCol,
aRow: Integer; aRect: TRect; aState: TGridDrawState);
var
ls:String;
lp:TPicture;
idx:integer;
begin
if (aRow>0) and (aCol=0) then
begin
idx:=StrToInt(sgSearchResult.Cells[sgSearchResult.ColCount-1,aRow]);
ls:=RODB_GetSprite(idx,1,rosmItem);
if ls='' then exit;
lp:=TPicture.Create;
try
lp.LoadFromFile(ls);
except
exit;
end;
sgSearchResult.RowHeights[aRow]:=lp.Height+4;
sgSearchResult.Canvas.Draw(aRect.Left+2,aRect.Top+2,lp.Bitmap);
lp.Free;
end;
end;
1) каждый раз загружать файл в отрисовке очень плохая мысль
2) потенциальный мемлик при ошибке загрузки
2) потенциальный мемлик при ошибке загрузки
DB
ну, т.е. там всё просто
ну я то примерно представляю что там просто ) но вот не хочется обвязку
AK
не каждый раз :)
DB
потому как колхоз и вообще - вот то мемлики то еще что )
AK
в другом месте кэширование было. А в данном случае это вполне допустимо было
VA
не каждый раз :)
каждый
AK
при ошибке загрузки там нет мемлика
DB
у меня то imagelist
VA
при ошибке загрузки там нет мемлика
посмотри где у тебя вызов free
DB
не файлы, я то если что выковыряю картинку
AK
Виктор, я ещё раз говорю, в ЭТОМ месте подобный кульбит был допустим. в ДРУГОМ месте у меня всё кэшировалось, что надо
DB
но поищу пока что готовое что-то
AK
я посмотрел. но экспешен от загрузки картинки блокируется, а рисование прокатывает как пустышка уже
AK
в примерах Лазаря посмотри, там было