debi12345 писал(а):Короче, даже сгенерировав и пошерстив доку - так и не понял с наскоку, как грузить картинки в этот грид.
Вот так:
- Код: Выделить всё
procedure tmainfo.OnDrawCell(const sender: tcol; const canvas: tcanvas;
const cellinfo: cellinfoty);
var
p: pointty;
pi: PPanelInfo;
fnt: tfont;
bg: colorty;
AFile: TVFSFile;
begin
pi := PPanelInfo(sender.grid.tagpo);
if pi^.selection[cellinfo.cell.row] then
begin
fnt := sender.fontselect;
bg := sender.colorselect;
end
else
begin
fnt := sender.actualfont;
bg := sender.color;
end; // if
AFile := pi^.FileList[cellinfo.cell.row];
canvas.fillrect(cellinfo.rect, bg);
p.x := 2;
p.y := 2;
FileIcons.paint(canvas, AFile.IconIndex, p);
p.x := 22;
p.y := Canvas.Font.Ascent;
canvas.DrawString(AFile.Name, p, fnt);
end;
debi12345 писал(а):// Ловля двойного клика :
if iscellclick(info,[ccr_dblclick]) then showmessage('Double clicked','msg');
Ух, как хитро... теперь работает.
debi12345 писал(а):ПС:
Для камикадзе - без сгенерированной доки разбираться в этом низкоуровневом стаффе повеситесь !
Не впервой
ПС
Ну вроде все вопросы исчерпались
Жду повления нормальной кнопки с нормальной поддержкой иконки, а пока юзаю без иконки...
. Например, отказывает в двойном клике, если между кликами случайно перескочить в другую ячейку ( по умолчанию интервал двойного клика = 0,4 сек).
