Hey, jetzt nicht meckern. Ich hab das so nur zu Demozwecken gemacht!
So bekommst Du das PIC zu sehen ... :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var hRes:HResult;
DC,DCpic:HDC; DCout:HDC; BmpOut:OLE_HANDLE;
begin
If LoadPicture('
C:\Button.jpg')
Then Begin
DC:=GetDC(0);
DCpic:=CreateCompatibleDC(
DC);
ReleaseDC(0,
DC);
pPicture.SelectPicture(DC1,DCout,BmpOut);
BitBlt(Canvas.Handle,0,0,100000,100,DC1,0,0,SRCCOPY);
pPicture:=NIL; DeleteDC(DCpic);
End;
end;
Bin gerade dabei das Teil in meine DIB-Klasse einzubinden. Jetzt gibt es endlich einen Constructor CreateFromJPEGRessource.
Tschau
OLLI