Formen drehen oder zu spiegeln?

[Code]

Hallo Alle!

Gibt es mit Delphi eine Möglichkeit Formen zu drehen oder zu spiegeln?

Gruß
Klaus

[Nikolas]

Was verstehst du unter einer Form?

[Code]

Zitat:

Zitat von Nikolas

Was verstehst du unter einer Form?

Hi.

Ja, ganz einfach, eine Delphi- Form (Fenster). Form1, Form2. usw.

Gruß
Klaus

[Nikolas]

Du müsstest so ein Formular dann selbst zeichnen. Was willst du denn damit anstellen?

[RavenIV]

Zitat:

Zitat von Code

Hallo Alle!

Gibt es mit Delphi eine Möglichkeit Formen zu drehen oder zu spiegeln?

Da das layout der Windows-Fenster erstmal von Windows vorgegeben wird, kannst Du nicht "einfach" ein anderes Design vorgeben.
Du müsstest dann schon das Fenster selber malen...

[Code]

Zitat:

Zitat von RavenIV

Zitat:

Zitat von Code

Hallo Alle!

Gibt es mit Delphi eine Möglichkeit Formen zu drehen oder zu spiegeln?

Da das layout der Windows-Fenster erstmal von Windows vorgegeben wird, kannst Du nicht "einfach" ein anderes Design vorgeben.
Du müsstest dann schon das Fenster selber malen...

Hi.

Eigentlich brauche ich von dem Fenster nur einen screenshott und das dann gespiegelt darstellen.

Gruß
Klaus

[Matze]

Dann nutze die DP Suche, gib als Suchbegriff "spiegeln" ein und lasse nur die Beitragstitel durchsuchen (unter dem Suchfeld auswählen).

[RavenIV]

Zitat:

Zitat von Code

Eigentlich brauche ich von dem Fenster nur einen screenshott und das dann gespiegelt darstellen.

Gruß
Klaus

Das kann jedes bessere Bildverarbeitungsprogramm machen.
Oder willst Du es in Delphi programmieren?

[offtopic]
Hilfe, noch ein Klaus ;-)

[bitsetter]

Zitat:

Zitat von Code

Eigentlich brauche ich von dem Fenster nur einen screenshott und das dann gespiegelt darstellen.

Hi,

so in etwa könnte man ein Formular spiegeln:

Delphi-Quellcode:

procedure Spiegeln(MyForm: TCustomForm);
var
  Bmp: TBitmap;
  c: TCanvas;
begin
  Windows.SetForegroundWindow(MyForm.Handle);
  c:= TCanvas.Create;
  c.Handle:= GetWindowDC(MyForm.Handle);
  Bmp:= TBitmap.Create;
  try
    Bmp.Width:= MyForm.BoundsRect.Right - MyForm.BoundsRect.Left;
    Bmp.Height:= MyForm.BoundsRect.Bottom- MyForm.BoundsRect.Top;
    StretchBlt(Bmp.canvas.handle, 0, 0, Bmp.Width,Bmp.Height, c.handle, Bmp.Width, 0, -Bmp.Width, Bmp.Height, SRCCOPY);
  finally
    Bmp.SaveToFile('C:\test.bmp');
    Bmp.Free;
    ReleaseDC(MyForm.Handle, c.handle);
    c.Free;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Spiegeln(self);
end;

EDIT: CopyRect() rausgenommen da überflüssig

[Code]

Zitat:

Zitat von bitsetter

Hi,

so in etwa könnte man ein Formular spiegeln:......

Vielen Dank, hast mir sehr weiter geholfen. Dank auch an Alle Anderen.

Gruß
Klaus