Thema: Delphi TImage.Canvas Resize

Einzelnen Beitrag anzeigen

Aike

Registriert seit: 2. Okt 2004
319 Beiträge
 
#5

Re: TImage.Canvas Resize

  Alt 26. Mär 2007, 11:30
Hallo,

ich habe das selbe Problem. Kurzzeitig verschwand es, jetzt ist es wieder da und lässt sich auch nicht mit dem oben genannten Code beheben.

Hier mein Code:
Delphi-Quellcode:
//Geht nicht:
imgLinieOben.Width:=Width;
imgLinieoben.Picture.Bitmap.Width:=Width;
i:=imgLinieOben.Width;

imgLinieOben.Left:=0;
imgLinieOben.Canvas.MoveTo(0,0);
imgLinieOben.Canvas.LineTo(i,0);
imgLinieOben.Height:=1;


//Geht:
imgLinieUnten.Width:=imgLinieOben.Width;
//imgLinieUnten.Picture.Bitmap.Width:=imgLinieOben.Picture.Bitmap.Width;
imgLinieUnten.Left:=imgLinieOben.Left;
imgLinieUnten.Canvas.MoveTo(0,0);
imgLinieUnten.Canvas.LineTo(i,0);
imgLinieUnten.Height:=1;
Echt abgefahren. Mit dem oberen Code passiert nichts, bzw. ich sehe keine Linie und kein Image, auch nicht wenn ich die Höhe mal auf 100 schalte. Die untere Linie wird korrekt gezeichnet, allerdings eben nicht in der richtigen Breite, weil Picture.Bitmap.Width nicht angeglichen wird. Das komische daran ist, dass es vor 10 Minuten schonmal funktioniert hat, ich aber nicht mehr weiß, was ich daran geändert haben sollte. Könnt ihr mir da vielleicht weiterhelfen?

greetings ...
Achim
  Mit Zitat antworten Zitat