TForm im aussehn ändern?

[Clane]

Ich eine "Tochter" von TForm erstellen welches in form z.b. eines Herzes ist ?? Also eine TForm in herzform ??

MfG Clane

[mkinzler]

Ja. Indem du eine Form mit Tranzparenz erstellst und dann ein Hintergrundbild mit tranzparenten Randteilen verwendest.

[Clane]

wie gehts das genau ?? kleines tut oder sowas wäre hilfreicht hab mich noch nie sooo tief in die TFormen gewagt

[mkinzler]

http://www.dsdt.info/tipps/?id=9
http://www.dsdt.info/tipps/?id=241

[Clane]

ja nur mit poligonen kann ich schlecht n herz machen .... kann ich als rgn auch eine alphamap nehmen ?

[mkinzler]

http://www.torry.net/vcl/forms/nonrect/tdformshape.zip
http://www.torry.net/vcl/forms/nonrect/vwimageshape.zip

[Popov]

Zitat:

Zitat von mkinzler

Ja. Indem du eine Form mit Tranzparenz erstellst und dann ein Hintergrundbild mit tranzparenten Randteilen verwendest.

Ist nicht böse gemeint, aber das mit der Transparenz ist leider eine Unsitte und nicht die wirkliche Art wie man es machen sollte.

@Clane

Der richtige Weg um dem Formular eine Form zu geben sind Regionen. Da wird das Formular zugeschnitten.

Hier ein Beispiel das das Prinzip anzeigt. Die betreffende Funktion zu Berechnung der Region ist langsam. Der Code stammt aus meinem Beispiele Ordner wo es eher um das Prinzip als um Effizienz geht. Wenn man das mit einer vernünftigen Geschwindigkeit machen will, dann sollte man es mit ScanLine machen. Hier im Beispiel habe ich es mit Pixels gemacht, da mir die Geschwindigkeit nicht wichtig war sondern das Verständnis.

Wenn du keine Erfahrung mit ScanLine hast, dann sag bescheid und ich erstelle dir eine bessere Funktion.

Im Beispiel wird eine Beispiel-Bitmap aus Text erstellt und alles drumherum wird weggeschnitten.

Delphi-Quellcode:

var
  RGN: THandle;

function CreateRGN(Bmp: TBitmap; TransparentColor: TColor): THandle;
var
  X, Y: Integer;
  PixRGN: THandle;
begin
  Result := CreateRectRGN(0, 0, Bmp.Width, Bmp.Height);

  for Y := 0 to Bmp.Height - 1 do
    for X := 0 to Bmp.Width - 1 do
      if Bmp.Canvas.Pixels[X, Y] = TransparentColor then
      begin
        PixRGN := CreateRectRGN(X, Y, X + 1, Y + 1);
        try
          CombineRGN(Result, Result, PixRGN, RGN_DIFF);
        finally
          DeleteObject(PixRGN);
        end;
      end;
end;

//Erstellt nur eine Beispiel-Bitmap mit einem Text (Font: Arial, Fett, 72)
procedure BeispielBitmapErstellen(Bmp: TBitmap);
var
  MyText: String;
begin
  MyText := 'Delphi Regio';

  //Bitmap Teil (eine Beispiel-Bitmap mit einem Text wird erstellt)
  Bmp.Canvas.Font.Name := 'Arial';
  Bmp.Canvas.Font.Size := 72;
  Bmp.Canvas.Font.Style := Bmp.Canvas.Font.Style + [fsBold];
  Bmp.Height := Bmp.Canvas.TextHeight(MyText);
  Bmp.Width := Bmp.Canvas.TextWidth(MyText);
  Bmp.Canvas.TextOut(0, 0, MyText);
end;


procedure TForm1.FormDestroy(Sender: TObject);
begin
  //Wieder freigeben
  DeleteObject(RGN);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp: TBitmap;
begin
  Button1.Enabled := False;
  
  Color := clRed;

  Bmp := TBitmap.Create;
  try
    //Bitmap erstellen
    BeispielBitmapErstellen(Bmp);

    //Größe des Formulars an Bitmap anpassen
    ClientHeight := Bmp.Height;
    ClientWidth := Bmp.Width;

    //Region erstellen
    RGN := CreateRGN(Bmp, Bmp.Canvas.Pixels[0, 0]);

    //Zeichenbereich eines Fensters setzen
    SetWindowRGN(Handle, RGN, True);
  finally
    Bmp.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close
end;

[Clane]

das ist doch mal ne richtig gute hilfe allerdings versteh ich net wie ich da jezt da herz mache ??

[mkinzler]

Na als das Bitmap.

[Clane]

als ganz normales bitmap in der var da ?? richtig oda ??

[mkinzler]

Ja, statt dem Beispielbitmap, welches hier zur Laufzeit erzeugt wird ein vorhandenes laden.

[Clane]

aso ja kla ^^ sry bin heute wohl bissel verpeilt funzt super danke

[Popov]

Zitat:

Zitat von Clane

als ganz normales bitmap in der var da ?? richtig oda ??

Was ist "oda"?

Die Bitmap hat eine Art transparente Farbe. Diese Farbe dient dazu zu bestimmen was nicht Teil der neunen Form sein soll. Dese Farbe wird weggeschnitten.

Guck dir das Beispiel selbst genau an, studiere es. Es ist wirklich sehr einfach geschrieben. Eigentlich kann man es nicht mißverstehen.

[Clane]

soweit funktioniert das alles danke dafür schonmal aber ich bekomme das nicht compiliert ....

Zitat:

[DCC Fehler] Unit1.pas(54): E2008 Inkompatible Typen

betreffende stelle

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

begin
  Color := clRed;

  try
        //Bitmap erstellen
    

//Fehler 
AssignFile(Bmp, 'testbmp.bmp');
//Fehler
 

   //Größe des Formulars an Bitmap anpassen
    ClientHeight := Bmp.Height;
    ClientWidth := Bmp.Width;

    //Region erstellen
    RGN := CreateRGN(Bmp, Bmp.Canvas.Pixels[0, 0]);

    //Zeichenbereich eines Fensters setzen
    SetWindowRGN(Handle, RGN, True);
  finally
    Bmp.Free;
  end;
end;

end.

[mkinzler]

.LoadFromFile()

[Clane]

danke so jetz geht alles so wie es soll auch mit eigenen bitmaps ^^ danke

[hedie]

So ich roll das hier mal kurz auf... sorry...

Was muss man tun, damit es die Farben des Bitmap übernimmt?

Ansonsten funktioniert der Code ganz gut, nur ein bisschen dof, das man
Die "Form" danach nichtmer verschieben kann...

Und es hat ein paar sekunden bis es die Form übernommen hat

[MSSSSM]

ist zwar alt aber...

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var p:TPoint;
begin
if [ssLeft] = Shift then
  begin
    p:=self.ClientToScreen(Point(x,y));
    self.Left:=p.X;
    self.Top:=p.Y;
  end;

end;

da gibt leider nur nen nachteil :(

[DeddyH]

Aha, und welchen?

[toms]

Zitat:

Zitat von DeddyH

Aha, und welchen?

Dass der Code Unsinn ist..

Delphi-Quellcode:

 self.Left:=p.X; 
 self.Top:=p.Y;

:wall:

[DeddyH]

Ich würde das eh anders machen ;)