AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TImage und Canvas.ClipRect

Ein Thema von easywk · begonnen am 27. Jan 2006 · letzter Beitrag vom 30. Aug 2007
 
easywk

Registriert seit: 9. Jul 2003
Ort: Schwanewede
117 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: TImage und Canvas.ClipRect

  Alt 27. Jan 2006, 11:30
Das funzt
Danke!

EDIT:
Oder auch nicht. Da habe ich mich davon täuschen lassen, dass das Image mit Maximierung der Form seine Größe ändert. Wenn ich dann im maximierten Zustand das Bild über obige Funktion neu zeichnen lasse, stimmt das ClipRect immer noch nicht und man erhält bei Stretch=True dann eben den Bildausschnitt gestreckt ...

Die Frage ist also weiterhin offen. Die Lösung aus der Onlinehilfe mit setzen des ClipRect:
Delphi-Quellcode:
    MyRgn: HRGN ;

begin

    MyRgn := CreateRectRgn(100,100,200,200);
    SelectClipRgn(Image1.Canvas.Handle,MyRgn);
    Image1.Canvas.Brush.Color := clRed;
    Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
    Image1.Invalidate;
    SelectClipRgn(Image1.Canvas.Handle,nil);
    DeleteObject(MyRgn);

end;
funktioniert übrigens auch nicht. Mal davon abgesehen, dass SelectClipRgn(Image1.Canvas.Handle,nil); vom Compiler nicht zugelassen wird ...
Björn
if all else fails - read the instructions
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz