PNG's in Delphi

Danniolo · Beiträge: 693

Wie kann ich (halb) transparente PNG's (d.h. verschiedene Bereiche haben einen unterschiedlichen Alpha - Wert)
in Delphi darstellen??? :?:

Lossy eX · Beiträge: 1048 Erhaltene Danke: 4

Schau dir mal das an. pngdelphi.sourceforge.net/ Das brauchst du lediglich einzubinden und dann ist es möglich in einem TImage ein halbtransparentes Bild darzustellen. Um das dann auch zur Designzeit zu ermöglichen musst du das aber als Package installieren. Wie das alles genau geht findest du in der sehr gut gemachten Hilfe.

_________________
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.

TimonWorld · Beiträge: 397

*heul* funktioniert mit Delphi 3 nicht.

Gruß,
Timon.

BenBE · Verfasst: Mo 27.06.05 22:17

Da hast Du 2 Möglichkeiten:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

If Du.Source.Understand(PNGDelphi) and (not PNGDelphi.SourceErrors.Complicated) Then
    Du.Source.PortTo(Delphi3, PNGDelphi)
else
Begin
    Du.WalkTo(Kiosk);
    If not Du.Buy(CT.Current) Then
        Du.Nachbestellen(CT.Current);
end;

Ansonsten lohnt es sich oftmals nicht mehr D3 zu supporten (mangels in D3 unterstützter Features.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

TimonWorld · Beiträge: 397

BenBE hat folgendes geschrieben:

Da hast Du 2 Möglichkeiten:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

If Du.Source.Understand(PNGDelphi) and (not PNGDelphi.SourceErrors.Complicated) Then
    Du.Source.PortTo(Delphi3, PNGDelphi)
else
Begin
    Du.WalkTo(Kiosk);
    If not Du.Buy(CT.Current) Then
        Du.Nachbestellen(CT.Current);
end;

Ansonsten lohnt es sich oftmals nicht mehr D3 zu supporten (mangels in D3 unterstützter Features.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function GetAntwort: string;
begin
  Ich.Source.Understand := True and False;
  Delphi3.Version.SehrSehrAlt := True;
  Delphi3.KnowAllOperatorsAndSoOn := False;
  Result := 'Ich verstehe den Source zwar nicht komplett, aber ' +
  'in Delphi werden mir nur Meldungen angezeigt wie z.B.: ' +
  'Operatortyp nicht anwendbar, Felddefinition nicht erlaubt ' +
  'nach Methoden oder Eigenschaften.'#10#13 +
  'Also ich würde mehr sagen, dass das meiste Versionsabhängig ist. ' +
  'Aber ist ja nicht so wichtig. Aber Delphi 3 ist halt eben meine ' +
  'einzigste Prof-Version';
end;

PS.: Was steht in der CT.current? oder in der aktuellen ct?

Gruß,
Timon.

Coder · Beiträge: 1383 Erhaltene Danke: 1 WinXP D2005 PE

Da ist die Delphi 2005 Personal Edition drin.

Aber in der kann man doch keine Komponenten installieren, oder?

BenBE · Verfasst: Do 30.06.05 11:50

In der Personal kannst Du eigentlich alles an Komponenten installieren, was dein Herz begehrt; einzige Ausnahme sind Komponentenpakete, die Zugriff auf eine Datenbank (Win32) benötigen.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

Coder · Beiträge: 1383 Erhaltene Danke: 1 WinXP D2005 PE

Ich hatte versucht die JVCL zu installieren hat aber nicht funktioniert.

Hab ich da einen Fehler gemacht? :gruebel:

Danniolo · Beiträge: 693

Bei mir hat's auch nicht geklappt,
ich glaub', das lieg daran, dass die JVCL auf die Datei "dsgintf.pas/dcu" zugreift,
diese aber (ich glaube) seit Delphi 5 nicht mehr mitgeliefert und installiert ist.

Coder · Beiträge: 1383 Erhaltene Danke: 1 WinXP D2005 PE

DSDT News:

JVCL-Patch für D2005 Personal
Die JEDI VCL ist in ihrer ursprünglichen Form nicht unter Delphi 2005 Personal installierbar.
Um dieses Problem zu beheben, wird nun ein Patch angeboten. Nach dem Anwenden des Patches kann
die JVCL 3 mit der install.bat für Delphi 2005 Personal Edition installiert werden.

Patch für JVCL und Delphi 2005 Personal

[url=www.dsdt.info/news/delphi/?jahr=2005#163]Quelle[/url]

DaRkFiRe · Beiträge: 526 WinXP Home & Professional C, C++, Delphi

Nach GraphicEx googeln - dann kannste nahezu alle Grafiktypen laden!

_________________
Lang ist der Weg durch Lehren - kurz und wirksam durch Beispiele! Seneca

Danniolo · Beiträge: 693

TimonWorld hat folgendes geschrieben:

*heul* funktioniert mit Delphi 3 nicht.

TPNGImage funktioniert ohne Probleme auch mit Delphi 3!

Man muss jediglich eine Zeile verändern:
Hier der für Delphi 3 angepasste Code:

Normal:

markieren

Delphi-Quelltext

 
262:
263:

{ ... }
{Removes an item}
    procedure RemoveChunk(Chunk: TChunk); overload;

Angepasst:

markieren

Delphi-Quelltext

 
262:
263:

{ ... }
{Removes an item}
    procedure RemoveChunk(Chunk: TChunk);

Danach funktioniert alles ganz normal, so wie es soll... incl Alpha-Kanal etc. :wink:

TimonWorld · Beiträge: 397

Juhuu!!! Big-THX!!!

Stimmt es geht!!! Ohne einen einzigen Fehler!!!

Danke und Gruß,
Timon.

Danniolo · Beiträge: 693

Kein Problem! Dass das so einfach ist, hätt ich auch nicht gedacht, es gibt da viel schwerere Sachen.
Aber mit ein bisschen ausprobieren bekommt man meistens auch mit Delphi 3 die Kompos zum laufen! :wink:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme