Zwei Malebenen

[Jibiel]

Guckguck :)

für ein Projekt brauche ich 2 Malebenen, eine für den Hintergrund, die zweite für kleine Animationen.
Hier im Forum haben die meisten zwei Bilder mit TBitmap verknüpft, aber ich lad ja gar keine Bilder von meiner Festplatte, sondern male bisher direkt auf das Formular :gruebel:

Meine Frage wäre, ob ich stattdessen am besten zB zwei TPaintBoxen oder TImage benutze und wie ich es schaffe die vordere Paintbox mit der hinteren verschmelzen zu lassen.
Unter den Eigenschaften von den beiden konnte ich nicht wirklich etwas finden, was mir da weiterhelfen konnte :/

Jibi

[mkinzler]

Du könntest auch TImage32 von Graphics32 nehmen. Dort werden mehrere Ebenen unterstützt.

[Jibiel]

Du weisst nicht zufällig auch mit welcher Eigenschaft ich das zweite TImage32 durchsichtig kriege?
Image322.color := ?;

Welche "Farbe" müsste ich für das Fragezeichen einsetzen? bei transparent wird es nur schwarz.

Jib

[mkinzler]

Du mußt die farbe nehmen, welche du als transparent deklariert hast.

[DocE]

Wenn Du direkt aufs Form zeichnen möchtest, würde ich die Ebenen einfach in "umgekehrter" Reihenfolge zeichnen, also die unterste zuerst. Dann kannst Du das zwar nicht so einfach verschieben, müßte aber den gleichen Effekt bringen, wie mehrere Images übereinander oder ein Image mit mehreren Ebenen.

[EDIT]Gerade erst gelesen, dass die zweite Ebene Animationen beinhalten soll... Dann bringt das natürlich nichts...[/EDIT]

Grüsse
...Doc

[Jibiel]

TImage32 besitzt die Eigenschaft .transparent nicht, TImage schon. Damit klappt es nun prima und hoffentlich gleich auch beim komplizierteren Programm^^

danke für die Hilfe :>

[Jibiel]

Direkt das nächste Problem, bei dem ich nicht weiter weiß :/
Die erste Unit besitzt eine Komponente vom Typ TImage. In der Unit2 möchte ich auf diese zugreifen und in ihr ein Rechteck zeichnen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GR32_RangeBars, GR32_Image, Unit2, StdCtrls, ColorGrd, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;
  Haus1: THaus;
implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
Haus1 := THaus.create(Form1, Image1);
end;

end.

Delphi-Quellcode:

unit Unit2;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
  
type Thaus = class(Tobject)
  private
   zformular : Tform;
   zimghinten : TImage;
  public
   constructor create(formular : Tform; imghinten : TImage); virtual;
   procedure Zeichnen;
  end;

implementation

constructor THaus.create(formular : Tform; imghinten : TImage);
begin
  inherited create;
  zformular := formular;
  zimghinten := imghinten;
end;

procedure THaus.Zeichnen;
begin
  zformular.zimghinten.Canvas.Rectangle(5,5,20,20);
end;

In der zweiten Unit in der Prozedur Zeichnen; beschwert er sich, dass zimghinten ein undefinierter Bezeichner ist, aber zformular kennt er. Wie kann ich von Unit2 aus auf Komponenten von Unit1 zugreifen, wenn nicht so?

[mkinzler]

Delphi-Quellcode:

Uses Unit1, ...;

Form1.Image1.

[DocE]

Das liegt daran, dass Du zformular als TForm ansprichst. Das TForm kennt Deine Komponente aber (noch) nicht. Also entweder:

Delphi-Quellcode:

constructor THaus.create(formular : TForm1; imghinten : TImage); // <-- hier TForm1
begin 
  inherited create; 
  zformular := formular; 
  zimghinten := imghinten; 
end;

und natürlich dann auch

Delphi-Quellcode:

private 
   zformular : TForm1;

- oder -

Delphi-Quellcode:

procedure THaus.Zeichnen; 
begin 
  TForm1(zformular).zimghinten.Canvas.Rectangle(5,5,20,20); 
end;

Grüsse
...Doc

[Jibiel]

@mkinzler [Fataler Fehler] Unit1.pas(7): Überkreuzender Bezug zweier Units auf 'Unit1'
klappt nicht :/

@Doc woimmer ich TForm1 in der Unit2 benutze, beschwert er sich, dass auch TForm1 ein undefinierter Bezeichner wäre.

Was mach ich da noch falsch? :gruebel: