Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как вывести BMP на панель?

mari_ra © (2002-04-24 18:23:00)
Собственно, subj. Спасибо.

mari_ra (2002-04-25 14:50:00) [1]
Большое всем спасибо! Теперь все понятно.

MBo (2002-04-25 13:11:00) [2]
type
TXPanel=Class(TCustomPanel);

TXPanel(Panel1).Canvas.Draw(0,0,bitmap);
или вместо Draw любой метод рисования

Song (2002-04-25 13:09:00) [3]
Да, Вы право, странно... в одном хэлпе BitMap есть, а в хэлпе VCL Reference - нет.
Тады так:

procedure TForm1.Button1Click(Sender: TObject);
Var Canvas:TCanvas;
BitMap:TBitMap;
Begin
Canvas:=TCanvas.Create;
Canvas.Handle:=GetDC(Panel1.Handle);
BitMap:=TBitMap.Create;
try
BitMap.LoadFromFile("c:\1.bmp");
Canvas.Draw(0,0,BitMap);
finally
ReleaseDc(Canvas.Handle,Panel1.Handle);
Canvas.Free;
BitMap.Free;
end;
end;

mari_ra (2002-04-25 11:51:00) [4]
и снова sorry, но это не компилится. у TPanel нету BitMap. %( Может, имеется в виду не TPanel? Ум за разум заходит, не понимаю... help, pls...

Song (2002-04-25 11:17:00) [5]
Var BitMap:TBitMap;
Begin
BitMap:=TBitMap.Create;
try
BitMap.LoadFromFile(mp.bmp);
Panel1.BitMap.Assign(BitMap);
finally
BitMap.Free;
end;
End;

mari_ra (2002-04-25 10:05:00) [6]
sorry, но такое не работает...
Может, подскажете, где ошибка или чего не хватает в этом коде:

var HB : HBitMap;
MemDC : HDC;
begin
HB:=LoadBitMap(hInstance, "mp.bmp");
MemDC:=GetDC(Panel1.Handle);
SelectObject(MemDC, HB);
end;

Song (2002-04-24 21:20:00) [7]
TPanel.BitMap

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »