Форум: "Media";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
ВнизКак вывести 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;
← →
MBo (2002-04-25 13:11) [6]type
TXPanel=Class(TCustomPanel);
TXPanel(Panel1).Canvas.Draw(0,0,bitmap);
или вместо Draw любой метод рисования
← →
mari_ra (2002-04-25 14:50) [7]Большое всем спасибо! Теперь все понятно.
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2002.09.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c