Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   [Erledigt] Probleme mit TImage in XE3 (https://www.delphipraxis.net/175721-%5Berledigt%5D-probleme-mit-timage-xe3.html)

benji316 11. Jul 2013 18:08


[Erledigt] Probleme mit TImage in XE3
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo zusammen, ich habe mit Delphi 7 ein Zeichenprogramm ala Paint geschrieben, welches ich auch schon hier vorgestellt habe (http://www.delphipraxis.net/175584-b...rogramm-4.html), bei dem auf einem TImage gezeichnet wird (ich weiß, ist nicht unbedingt ideal, aber darum gehts nicht).
Nun habe ich mir Delphi XE3 zugelegt und hab damit erstmal mein Projekt kompiliert, und hatte dabei folgendes Problem:
Ich kann nicht auf dem gesamten TImage zeichnen, die Zeichenfläche ist irgendwie rechts und unten abgegrenzt (obwohl das Image die Align alclient besitzt!), außerdem flackert es beim Zeichnen.
Das Flackern konnte behoben werden (doublebuffered:=true), aber egal was ich tue, ich kann nicht auf dem gesamten Image zeichnen.
Kompiliere ich das Ganze wieder mit Delphi 7, beschwert es sich zwar zuerst über diverse Eigenschaften, aber wenn ich die entferne, und das Projekt kompiliere, läuft es einwandfrei.
Hat irgendjemand eine Idee, woran das liegen könnte?
Ich lade die exe+Sourcecode mal gepackt hier hoch, vielleicht kann ja jemand herausfinden, woran es liegt.

Der schöne Günther 11. Jul 2013 18:23

AW: Probleme mit TImage in XE3
 
  1. Ich bin dumm
  2. Ich kann nicht kompilieren da Textvorschau.pas fehlt

Eins von beiden muss es sein :roteyes:

jaenicke 11. Jul 2013 19:08

AW: Probleme mit TImage in XE3
 
Du setzt ja auch nirgends die Größe des Bildes darin...
Das ist da nicht so einfach wie mit einer Paintbox. Du musst dich um das Bild darin und dessen Größe usw. selbst kümmern.
Sprich im OnResize des Formulars:
Delphi-Quellcode:
procedure TZeichenForm.FormResize(Sender: TObject);
begin
  Paintbox1.Picture.Bitmap.Width := Paintbox1.Width;
  Paintbox1.Picture.Bitmap.Height := Paintbox1.Height;
end;

benji316 11. Jul 2013 19:37

AW: Probleme mit TImage in XE3
 
Okay, danke, das war es :D
In Delphi 7 ging es aber, wie breits erwähnt, ohne etwas im FormResize zu bestimmen, aber egal.
Und das mit der Textvorschau hab ich wohl beim packen übersehen, da ich nur die "wichtigen" Sachen ohne die Backups und dcus gepackt habe, nur die dazugehörige dfm ist dabei :D
Aber den Code gibts sonst eh im verlinkten Thread, ist bis auf die XE3-spezifischen (verwendet System.UITypes, und doublebuffered:=true) Dinge derselbe ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:33 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz