AGB  ·  Datenschutz  ·  Impressum  







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

Verständnisfrage: TImage

Ein Thema von SearchBot · begonnen am 9. Sep 2012 · letzter Beitrag vom 17. Sep 2012
Antwort Antwort
Seite 3 von 4     123 4      
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.541 Beiträge
 
Delphi 11 Alexandria
 
#21

AW: Verständnisfrage: TImage

  Alt 15. Sep 2012, 09:56
Code:
 panel1.Picture.Bitmap:=nil;
 Can:=panel1.Picture.Bitmap;
 Can.Canvas.Brush.Color:=clBlack;
 Can.SetSize(panel1.Width, panel1.Height);
 showmessage('Hallo');
Du setzt erst das Bitmap des TImage auf nil und weist dann Can eben dieses zu, Can ist somit auch nil. Anschließend greifst Du auf den Canvas von "nichts" zu. Ist das so beabsichtigt?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.009 Beiträge
 
Delphi 12 Athens
 
#22

AW: Verständnisfrage: TImage

  Alt 15. Sep 2012, 10:04
Du setzt erst das Bitmap des TImage auf nil und weist dann Can eben dieses zu, Can ist somit auch nil. Anschließend greifst Du auf den Canvas von "nichts" zu. Ist das so beabsichtigt?
Der Getter von TPicture.Bitmap erzeugt automatisch eine neue Instanz, wenn keine da ist oder kein TBitmap ist.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.541 Beiträge
 
Delphi 11 Alexandria
 
#23

AW: Verständnisfrage: TImage

  Alt 15. Sep 2012, 10:25
Achja, stimmt, sry. Trotzdem sieht das verwirrend aus, oder?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#24

AW: Verständnisfrage: TImage

  Alt 15. Sep 2012, 10:25
Da Du mit dem automatisch generierten Format in clWhite nicht glücklich bist....
Delphi-Quellcode:
Procedure SetEmptyBitmap(i:TImage;C:TColor);
var
  bmp:TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.PixelFormat := pf32Bit;
    bmp.Canvas.Brush.Color := C;
    bmp.Width := i.Width;
    bmp.Height := i.Height;
    i.Picture.Assign(BMP);
  finally
    bmp.Free;
  end;
end;

.....
.....
und dann Statt
 panel1.Picture.Bitmap:=nil;
>>
SetEmptyBitmap(Panel1,clBlack);
BTW: wie kommt man auf die Idee ein TImage Panel1 zu benennen
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
SearchBot

Registriert seit: 27. Jun 2004
Ort: N-W vom Bodensee
272 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#25

AW: Verständnisfrage: TImage

  Alt 15. Sep 2012, 10:32
Panel1 ist "historisch" bedingt; siehe erste Postings im Thread.

Ich habe die Macke entdeckt; ok, das ist jetzt eine neue Information: ich habe die Eigenschaften
Code:
Form2.Glassframe.enabled:=true
Form2.Glassframe.SheetOfGlass:=true
gesetzt.

Setze ich die auf FALSE, dann geht es so wie ihr mir beschrieben habt.

Die neue Frage ist nun: Warum ist das mit diesem Feature so anders?
  Mit Zitat antworten Zitat
SearchBot

Registriert seit: 27. Jun 2004
Ort: N-W vom Bodensee
272 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#26

AW: Verständnisfrage: TImage

  Alt 15. Sep 2012, 11:06
Testprojekte sind schon eine feine Sache

Bestimmte Kombinationen von Eigenschaften vertragen sich ganz schlecht...

Das eigentliche Problem scheint in Form2.Image1.Transparent zu liegen, wenn man das auf True setzt.
Probiert es aus (Code und Exe (im Debug/win32-Ordner) angehängt)..
Button klicken, mit der Maus klicken, Esc, Button klicken (um zu sehen, ob es gelöscht wurde).
Angehängte Dateien
Dateityp: zip TImage-Problem.zip (572,9 KB, 2x aufgerufen)
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.679 Beiträge
 
Delphi 2007 Enterprise
 
#27

AW: Verständnisfrage: TImage

  Alt 16. Sep 2012, 01:14
Es ist der absolut übliche, und vermutlich auch performanteste Weg, ein Bitmap zu leeren, in dem man es wirklich einfach mit einem großen Rechteck übermalt.

Selbst 3D APIs machen das im Prinzip so, es ist auch auch der aus Computersicht offensichtlichste Weg. Der Speicher in dem das leere neu erzeugte Bild sein soll muss irgendwie initialisiert werden um nicht buntes Rauschen darin zu haben, also wird auch das Neu-Erzeugen einer frischen Instanz letztlich intern das frische neue Bitmap anfangs so "leeren" müssen. Warum dann erst den ganzen Aufwand drumrum mit verursachen?

Das Erzeugen neuer Instanzen bedingt hier insbesondere auch immer wieder Griffe in die GDI, was i.A. am Ende kaum besser sein kann. Vor allem nicht, wenn auch noch munter Größen neu angepasst werden müssen etc., wodurch schlimmstenfalls auch noch große Blöcke umher kopiert werden müssen - von den nötigen Allokationen mit ggf. Auslagern u.ä. mal ganz abgesehen. Es macht einfach null komma gar kein Sinn das so tun zu wollen.

Übermal einfach. Schnell, schlank, usus.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
SearchBot

Registriert seit: 27. Jun 2004
Ort: N-W vom Bodensee
272 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#28

AW: Verständnisfrage: TImage

  Alt 16. Sep 2012, 12:07
Es ist der absolut übliche, und vermutlich auch performanteste Weg, ein Bitmap zu leeren, in dem man es wirklich einfach mit einem großen Rechteck übermalt.
...
Übermal einfach. Schnell, schlank, usus.
Gefällt mir.
(Blöd daß es keinen Button/smiley dafür gibt )
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.679 Beiträge
 
Delphi 2007 Enterprise
 
#29

AW: Verständnisfrage: TImage

  Alt 16. Sep 2012, 22:36
Zusatz: Man könnte natürlich auch ein wenig freaky werden, sich den Pointer auf die Rohdaten abholen (Scanline), und da mit ZeroMemory() oder FillChar() rumfuchteln. Könnte sogar noch einen Happs flotter sein, man muss dabei nur aufpassen wie rum das Bitmap im Speicher liegt. (Normal ist Bottom-Up, also quasi falsch rum. Muss es aber nicht, und Windows entscheidet recht eigenmächtig wann das so ist )
So arg viel schneller sollte man damit aber im Mittel auch nicht werden, aaaber es würde wohl gehen und auch sehr schlank sein

Edit: Noch ein sehr schneller Weg: Eine Bitmap mit dem "Leerbild" vorhalten, und zum leeren dieses mit BitBlt() kopieren. Könnte sogar noch besser sein als das obige! (Zumindest etwas weniger "hacky")
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)

Geändert von Medium (16. Sep 2012 um 22:38 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.142 Beiträge
 
Delphi 12 Athens
 
#30

AW: Verständnisfrage: TImage

  Alt 17. Sep 2012, 02:01
Was mag wohl theoretisch schneller sein?

- etwas zu kopieren/abzumalen (viele Bytes von hier nach da kopieren)
- oder einen Eimer voll Farbe drüberzukippen (nur einen kleinen Wert laden und damit alles füllen)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 4     123 4      


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 15:24 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