Forum: Object-Pascal / Delphi-Language
by Mikkey,
12. Aug 2013
Vielen dank für diese Idee, das müsste im Prinzip auch funktionieren. Aber inzwischen geht es ja auch mit den etwas merkwürdig gesetzten Parametern in SetBounds.
Gruß, Mikkey
Forum: Object-Pascal / Delphi-Language
by Mikkey,
8. Aug 2013
Das mag ja sein, aber wenn ich das obige Programmstück so modifiziere, tritt der beschriebene Effekt ebenfalls auf (PaintPaintbox ist jetzt die OnPaint-Routine):
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
pt: TPoint;
begin
Randomize();
fSize.cx := RandomRange(4000, 5000);
Forum: Object-Pascal / Delphi-Language
by Mikkey,
7. Aug 2013
Vielen Dank für die Idee. Das war's zwar nicht, aber wenn man als untere Grenzen bei SetBounds die ermittelte Scrollposition (negativ) einsetzt
- und die oberen Grenzen so beibehält -
Dann funktioniert es.
Komische Logik...
Gruß, Mikkey
Forum: Object-Pascal / Delphi-Language
by Mikkey,
7. Aug 2013
ich habe das Verhalten in einem einfachen Programm nachgestellt und bilde es hier ab.
Durch Mausklick irgendwo in die Zeichenfläche wird die Größe verändert. Ist die darstellung bereits gescrollt, beginnt das neue Zeichnen nicht oben im Dokument, sondern oben im gerade gezeigten Ausschnitt.
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y:...
Forum: Object-Pascal / Delphi-Language
by Mikkey,
5. Aug 2013
Hallo Forum, ich bin sowohl hier neu als auch neu in Delphi.
Ich versuche ein Programm zu erstellen, in dem grafisch gezeige Objekte in einer Zeichenfläche bearbeitet werden.
Wenn beim Bearbeiten sich die Größe der Zeichenfläche (SetBounds()) ändert, während die Scrollposition gut vom Ursprung entfernt ist, erfolgt die neue Ausgabe der Grafik in der linken oberen Ecke des gezeigten...