TImage durchsichtig

[Schwanengel]

Ich beschäftige mich schon ne ganze Weile mit diesem Problem.
Ich habe ein Zeichenprogramm soweit fertig, aber es gelingt mir nicht eine durchsichtige Image zu erstellen. Oder was kann man da machen.
Danke für die Antwort.

[Daniel B]

Hallo und herzlich Willkommen im Forum!

Ich verschieb das mal nach Multimedia!

Grüsse, Daniel :hi:

[Mirilin]

Property Transparent

oder was meinst Du mit durchsichtig?

[Schwanengel]

Nochmal zurück zu meiner Frage:
Ich möchte über eine bestehende TImage die als Untergrund gilt, eine
TImage erzeugen die Transparent(durchsichtig) ist. Diese 2te TImage enthält ein TBitmap welches wiederum Transparente Farbbereiche enthält.
Oder geht das alles einfacher?
Mit der Erstellung von Komponenten kenne ich mich noch nicht aus.
Wie kann man das Problem lösen. Ich habe Delphi2.0.
Vielen Dank für die schnellen Antworten, bin angenehm überrascht...

[Mirilin]

Einfacher, weiss nicht ob das einfacher ist, aber machs doch mit einer TPaintBox, und 3 TBitmaps (oder wieviele Du auch brauchst).
(TBitmap.TransparentColor ... )

[Schwanengel]

Hallo ich bin's schon wieder.

Nochmals die Transparent Frage.
Kann man eine TImage, überhaupt Transparent machen unter Delphi 2.0.
Mein Zeichenprogramm ist nämlich so gut wie fertig, daher
möchte ich nicht unbedingt auf eine TPaintbox umsteigen. Macht zuviel Arbeit...

danke für die Antwort

[Mirilin]

Hat das TImage in Delphi2 die Property Transparent?
Wenn ja, dann kannst Du es dort auf true setzen (nach der Hilfe geht das nur, wenn ein Bitmap im Image ist) sonst, weiss ich selber nicht wie das geht, sorry.

[Schwanengel]

Halo!

Danke für Deine Antwort, aber die Property Transparent gibt's da nicht.
Könnte ich nicht die Komponente TImage als grundlage nehmen und diese
Property Transparent in einer neuen Komponente hinzufügen.

Aber hier geht's los, keine Ahnung von Komponenten erstellen,
großes Haareraufen und so :oops:

kannst Du mir helfen? :hello:

[Mirilin]

Delphi-Quellcode:

unit TranspImage;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TTranspImage = class(TImage)
  private
    FTransparenz: Boolean;
    procedure SetTransparenz(const Value: Boolean);

    { Private-Deklarationen}
  protected
    { Protected-Deklarationen}
  public
    property Transparenz : Boolean read FTransparenz write SetTransparenz;
    { Public-Deklarationen}
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MY', [TTranspImage]);
end;

{ TTranspImage }


{ TTranspImage }

procedure TTranspImage.SetTransparenz(const Value: Boolean);
begin
  FTransparenz := Value;
  Picture.Bitmap.Transparent := FTransparenz;
end;

end.

Gruss Mirilin versuchs mal so, bei mir hat es geklappt.


'Datei'->'Neu'->'Komponente'->'VorfahrTyp : TImage'...

[Schwanengel]

Freude über Deine schnelle Hilfe :bounce2:

Hab's sofort Probiert

Aber wie immer ich hatte Pech, bei'm einbinden der Komponente: 'TTransparentImage'
Die Fehlermeldung die mich immer
Begleitet: undefinierter Bezeichner 'Transparent'

Vielleicht liegt hier der Hund begraben, das ich nur Delphi2.0 habe...

Einen Tag später:
Hallo Mirilin
Schnell noch ein neuer Gedanke :angle2:
Kann man nicht für das ganze, ein 'TShape' als Ausgang nehmen. Dieser
müste doch einen 'canvas' haben?
Wenn man jetzt auf dieser Basis weiter arbeitet, könnte es doch klappen.
Ich hatte festgestellt, wenn man im 'Brush.style' auf 'bsclear' stellt
habe ich die Komponente Transparent.