Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.008 c
6-30499
Max2002
2003-02-19 15:22
2003.04.10
отправка команды броузеру


1-30348
Che
2003-03-31 19:54
2003.04.10
Выбор фаила


3-30318
tERRORist
2003-03-20 18:43
2003.04.10
Можно ли выбрать двунапр. набор данных используя dbExpress


4-30659
Solskj&#509;r
2003-02-11 18:43
2003.04.10
завершить процесс


3-30293
suh
2003-03-21 18:28
2003.04.10
Tquery - временный файл





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский