Вниз
Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c
14-30521
Yuri20031
2003-03-21 19:15
2003.04.10
Как скрыть вкладку


7-30638
Danik
2003-02-16 11:39
2003.04.10
Копия папки


3-30291
Navi
2003-03-16 17:58
2003.04.10
OnDrawItem in DBLookupListBox


3-30298
TSa
2003-03-22 23:26
2003.04.10
Удалённые записи


8-30465
Mastak
2003-01-05 13:27
2003.04.10
Работа с OpenGL




   Наверх