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

← →
mari_ra (2002-04-24 18:23) [0]

Собственно, subj. Спасибо.

← →
Song © (2002-04-24 21:20) [1]

TPanel.BitMap

← →
mari_ra (2002-04-25 10:05) [2]

sorry, но такое не работает...
Может, подскажете, где ошибка или чего не хватает в этом коде:

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

← →
Song © (2002-04-25 11:17) [3]

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 11:51) [4]

и снова sorry, но это не компилится. у TPanel нету BitMap. %( Может, имеется в виду не TPanel? Ум за разум заходит, не понимаю... help, pls...

← →
Song © (2002-04-25 13:09) [5]

Да, Вы право, странно... в одном хэлпе 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;

type
TXPanel=Class(TCustomPanel);

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

← →
mari_ra (2002-04-25 14:50) [7]

Большое всем спасибо! Теперь все понятно.

Как вывести BMP на панель? Найти похожие ветки