Ich möchte in den Zwischenablagedaten die Auflösung der DIBs einstellen um beim Einfügen die richtigen Abmaße auch bei Auflösungen ungleich 72 dpi zu bekommen. IrfanView kann die Auflösung setzen. Beim Import ins Office wird dann die richtige Größe verwendet.
Meine Versuche gingen in die Richtung, mir den Zwischenablageintrag zu holen und darin die Auflösungswerte zu verändern.
Delphi-Quellcode:
if Clipboard.HasFormat(CF_DIB) then
begin
hData := clipboard.GetAsHandle(CF_DIB);
pbih := PBITMAPINFOHEADER(GlobalLock(hData));
try
if assigned(pbih) then
begin
pbih.biXPelsPerMeter := 1181; // 300 dpi
pbih.biYPelsPerMeter := 1181;
end;
finally
GlobalUnLOCK(hData);
end;
end;
Das ganze klappt aber so noch nicht.