Einzelnen Beitrag anzeigen

Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#1

teil eines bitmaps in ein anderes kopieren

  Alt 21. Jul 2008, 20:28
hy ther,


also ich möchte aus einem teil eines bitmaps, ein neues erstellen!
ich habe als ausgangsbild, ein bitmap mit den maßen 8x464!
ich möchte das bild in 58 teile aufteilen, also jedes entstandene bild soll dann 8x8 sein!



dafür hab ich folgende funktion geschriebn bei der index das bild ist, was zurückgeliefert wird!



edit: nach einigen berichtigungen, bin ich nun bei folgendem source angekommen, hab nochmal nachgeschlagen und brauche bei result und sourcebitmap ein devicekontext, wo aber nehm ich mir das her??

Delphi-Quellcode:
function GetBitmapFromTable(SourceBitmap: HBitmap; index: integer): HBitmap;
  begin;
    if SourceBitmap <> 0 then
      begin
        Result := SourceBitmap;
        SetBitmapDimensionEx(Result, 8, 8, 0);
        BitBlt(Result, (index * 8), 8, 8, 8, SourceBitmap, 0, 0, SRCCOPY);
      end;
  end;
aber bitblt gibt mir immer 0 zurück, woran kann das liegen??

edit: vom ganzen probieren haben sich paar fehler eingeschlichen^^
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat