Einzelnen Beitrag anzeigen

bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.138 Beiträge
 
Delphi 11 Alexandria
 
#12

AW: Klassen, Vererbung und CAST

  Alt 20. Nov 2024, 13:06
wie müsste ich meine code erweitern damit
Zitat:
FImage.FDIB.dsBm
angelegt wird ?



Delphi-Quellcode:
procedure TBitMapExtension.LoadFromFile(const Filename: String);
var
  flag: bool;
begin

  /// .... für alle unterschiedlichen Grafiktypen

  if (Lowercase(ExtractFileExt(Filename)) = '.jpeg') then
  begin
    LoadJPEG(self, Filename);
    flag := TRUE;
  end;

end;


procedure LoadJPEG(Bmp: TBitMap; Filename: string);
var
  JPEG: TJPEGImage;

begin
  JPEG := TJPEGImage.Create;
  try
    JPEG.LoadFromFile(Filename);

    with Bmp do
    begin

      PixelFormat := pf16bit;
      // Width := jpeg.Width;
      // Height := jpeg.Height;

      Assign(JPEG);

      // PixelFormat := pf24bit;

    end;

  finally
    JPEG.Free;
  end;

end;
  Mit Zitat antworten Zitat