Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.02;
Скачать: CL | DM;

Вниз

Вопрос к Kabro (плиз ответь)   Найти похожие ветки 

 
Checist [root]   (2002-12-20 11:05) [0]

Блин, так как мне влепить этот болбаный рисунок в ячейку этого долбаного грида, допустим с номером 3,3; в смысле я точно читал, что к DrawGrid можно обращаться как к 2-у мерному массиву, и что в ячейки можно вдалбливать произвольные объекты, но как туда сунуть рисунок типа Jpg или Bmp не знаю напиши если знаешь, только сторку, в которой ячейки DrawGrid1 с номером [3,3] присваевается рисунок bitmap1.bmp


 
LongIsland ©   (2002-12-20 11:21) [1]

Я не помешаю? :-)

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if ((ARow = 3) and (ACol = 3)) then
DrawGrid1.Canvas.StretchDraw(Rect, bmp);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
bmp:=TBitmap.Create;
bmp.LoadFromFile("f:\Fotos\Симфония.bmp");
DrawGrid1.Repaint;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
bmp.Free;
end;


 
Checist [root]   (2002-12-20 11:27) [2]

Огромное спасибо LongIsland, ну хоть один реально помог (хотя пока не знаю - раболтает ли эта фишка). Ну всеравно большое пасибо.



Страницы: 1 вся ветка

Текущий архив: 2003.01.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
3-1745
EvgeniyM
2002-12-11 11:32
2003.01.02
Help! Delphi+DOA+Oracle, запрос по нескольким таблицам.


4-1925
Mike_Z
2002-11-14 22:21
2003.01.02
Как найти названия всех запущенных прог (как по Ctrl+Alt+Del)


1-1792
Ipx
2002-12-20 14:04
2003.01.02
Получить список псевдонимом баз данных


4-1928
Dpoxa
2002-11-16 21:59
2003.01.02
Как мне сменить кодировку в моем почтовой программе ?


3-1760
Eduard
2002-12-11 15:23
2003.01.02
Проблема MSAccess и BDE