Главная страница
    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.01 c
7-30612
Stan
2003-02-13 00:56
2003.04.10
Проблема со скрытием программы от ctrl+alt+del


14-30599
ый
2003-03-26 02:26
2003.04.10
Приколы


1-30454
Alecs
2003-03-31 12:05
2003.04.10
Использование калькулятора в Delphi


14-30578
Mute
2003-03-25 11:15
2003.04.10
Бесплатный OLE DB Provider для IB


3-30247
galexis
2003-03-20 12:33
2003.04.10
SELECT из большого числа таблиц





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский