Ładny brzuch

Witam,

mam napisane co takiego:
procedure TForm1.Button1Click(Sender:TObject); var  Bmp:Windows.TBitmap;  //Uwaga to jest typ tagBitmap, a nie 'zwyky' TBitmap begin  ...  //teraz w Bmp jest jaki obrazek    ? end;

Jak teraz wywietli Bmp na komponencie TImage?
(czyli jak skopiowa obraz z Bmp do zwykej klasy TBitmap czy jako tak ??)

Prosz o pomoc :(


IMHO sie nie da, ale pewnie sie myle :)
 tagBITMAP = packed record    bmType: Longint;    bmWidth: Longint;    bmHeight: Longint;    bmWidthBytes: Longint;    bmPlanes: Word;    bmBitsPixel: Word;    bmBits: Pointer;  end;
Moim skromnym zdaniem, tagBitmat sluzy do odczytywania pewnych danych pewnej bitmapy :D

Dla przykladu:
Var  Bmp: tagBitmap;  B: TBitmap; Begin  B := TBitmap.Create;  B.LoadFromFile('C:\test.bmp');  Bmp.bmBits := @B; End;


... Bmp.bmBits := @B; ...


Tak na marginesie:
A po co jest ta mapa przez B?


Dziki

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •