Форум: "Основная";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
ВнизStretch неработает?! Найти похожие ветки
← →
Павел (2003-03-30 09:16) [0]Вставляю в таблицу(DB) иконки 32х32, но видно их только 1\4 часть
делаю так: canvas.stretchdraw(rect,ico).
← →
Павел (2003-03-30 10:33) [1]Может-че добавить?
Ситуация поподробнее:
Все происходит в DBGrid1DrawColumnCell.
ico - TIcon32x32;
rect</> - клеточка в таблице 18x20;
Я конечно вышел из ситуации, увеличив шрифт
(клетки сталивыше),
НО...Все-таки хотелось-быпо
нормальному...
← →
Song (2003-03-30 10:46) [2]А Rect как вычисляется?
← →
Павел (2003-03-30 11:19) [3]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
← →
Павел (2003-03-30 11:20) [4]Проверял Letf,Right,Top,Bottom - Все сходиться.
← →
Song (2003-03-30 12:13) [5]А канвас какого объекта ? TDBGrid ?
← →
Павел (2003-03-30 12:27) [6]To Song ©
Да именно этого объекта.
← →
Anatoly Podgoretsky (2003-03-30 12:31) [7]Да ты бы привел точную строку вывода, а то одно гадание
← →
Павел (2003-03-30 12:39) [8]Ok...
← →
Павел (2003-03-30 12:40) [9]procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
filen:string;
icon:HICON;
yIcon:TIcon;
begin
icon:=ExtractIcon(HInstance,PChar(filen),0);
yIcon:=TIcon.Create;
yIcon.Handle:=icon;
if yIcon.Empty then imagelist2.GetIcon(0,yIcon);
if column.FieldName="Opt2" then begin
with DBGrid1.Canvas do begin
try
stretchdraw(rect,yIcon);
except end;
end;
end;
end;
← →
sniknik (2003-03-30 13:17) [10]из хелпа stretchdraw -
......
If the graphic is a TBitmap object, the bitmap is rendered using the value of CopyMode.
Может у тебя тот случай? Попробуй другой обьект (не иконку), а имидж (ну рисунок простой).
не помню точно, давно не использовал но Stretch точно работает, это помню :-)). но не на всех типах обьектов.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c