Forum: Multimedia
Delphi
by F.W.,
12. Feb 2004
Ich weiß jetzt woran's lag! Ich hatte vergessen, dass ich Strech auf true gestellt hatte, weil die Bilder sonst nicht den ganzen Bildschirm einnehmen.
Die Bilder sind 800x600 Pixel groß, der bildschirm aber 1024x768. Ich habe das ganze jetzt so gelöst: Feld.Picture.Bitmap.Canvas.Ellipse(Trunc(XPos/1.28)-2, Trunc(YPos/1.28)-2, Trunc(XPos/1.28)+2, Trunc(YPos/1.28)+2);
Sorry, da hab' ich wohl...
Forum: Multimedia
Delphi
by F.W.,
12. Feb 2004
Der Timer ist die ganze Zeit aktiv, im MouseDown wird nur ein Boolischer Wert auf True gesetzt (im MouseUp wird er auf False gesetzt). Immer wenn dieser Wert True ist, zeichnet der Timer mit den Koordinaten, die vom OnMouseMove auf XPos bzw. YPos gesetzt wurden.
Liegt es daran, dass das Image alClient und das Formular wsMaximized ist?
Forum: Multimedia
Delphi
by F.W.,
11. Feb 2004
Hallo!
Im OnMouseMove des Images steht folgender Code:var
XPos, YPos: Integer;
{...}
OnMousedown(...);
begin
Xpos := X;
YPos := Y;
end;