Forum: Multimedia
by ATS3788,
16. Feb 2012
function AddBitmapInHeight(B1, B2 : TBitmap) : TBitmap;
type
TBitmapHeader = packed Record
bitCH1 : AnsiChar;
bitCH2 : AnsiChar;
bitSize : cardinal;
bitUnUsed1 : word;
bitUnUsed2 : word;
bitOffset : Cardinal;
bitInfoHeader : Cardinal;
Forum: Multimedia
by ATS3788,
16. Feb 2012
var
B1 , B2, B3 : TBitmap;
i,x,y : integer;
begin
B1 := TBitmap.Create;
B2 := TBitmap.Create;
B3 := TBitmap.Create;
B1.LoadFromFile('d:\test1.bmp');
Forum: Multimedia
by ATS3788,
16. Feb 2012
Danke habe ich mir mal angeschaut
Interessant, nur ich brauche was um so was wie Bitmap1.height + Bitmap2.height
beide haben die gleiche Breite und das gibt eine neue Bitmap3.
Forum: Multimedia
by ATS3788,
15. Feb 2012
Hallo
Weiss jemand eine Möglichkeit
wie man zwei TGPBitmap zu einer zusammenfügen kann.
Kann auch ein TGPImage sein.