Hallo Leute,
ich habe schon seit Jahren ein Programm zum Anzeigen und Bearbeiten von Bildern einschließlich der Metadaten. Jetzt ist mir ein Fehler aufgefallen, der mich total überrascht.
Ich zeige die Skalierung in % an. Bild größer als die Projektionsfläche % < 100, genau die Fläche =100 %, kleiner > 100 %.
Soweit so gut, auf dem Desktop-PC klappt das prima. Auf einem Notebook werden unsinnige Werte > 80.000 % angezeigt. Das gleiche Programm und das gleiche Windows.
Ich weiß nicht, woran es liegt. Ich kann den Fehler nicht debuggen, weil sich die Delphi-Installation auf dem großen Rechner befindet und hier alles richtig angezeigt wird.
Ich bin sicher, ihr kriegt heraus, woran es liegt.
Delphi-Quellcode:
procedure TMainForm.ShowBigPicture(Nr: Integer);
const
FMT = '
Skalierung %0.1f %%';
var
DC: HDC;
GDIGraphics: TGPGraphics;
GDIImage: TGPImage;
X,Y, W,H: Integer;
a: Double;
Txt, s:
string;
procedure InitImage;
begin
if Image <>
nil then begin
Image.Free;
Image:=nil;
end;
Image:=TImage.Create(MainForm);
Image.OnClick:=ImageMouseClick;
Image.Parent:=Panel4;
Image.Align:=alClient;
Image.PopupMenu:=pmenu_GB;
ClearImage(Image)
end;
begin
InitImage;
RotateAndShowPic(BLi.Bildpfad_Name[Nr], Image, true);
s:='
-';
BLi.BreHoe(Nr,X,Y);
if (X > 0)
and (Y > 0)
then begin
if Image.Width = W
then a:=100 / Y * H
else a:=100 / X * W;
s:=Format(FMT,[a])
end;
lblSkal.Caption:=s;
end;
{TMainForm.ShowBigPicture}
Gruß Willie.
Ich sehe grade, W und H scheinen nicht initialisiert zu sein. Das hab ich vor 10 Jahren geschrieben, da muss ich nachdenken.