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]

Да ты бы привел точную строку вывода, а то одно гадание

Ok...

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;

из хелпа stretchdraw -

......

If the graphic is a TBitmap object, the bitmap is rendered using the value of CopyMode.

Может у тебя тот случай? Попробуй другой обьект (не иконку), а имидж (ну рисунок простой).

не помню точно, давно не использовал но Stretch точно работает, это помню :-)). но не на всех типах обьектов.

Stretch неработает?! Найти похожие ветки