Hi,

gibt es unter Delphi 7 eine Funktion, die es zulässt, das der Desktop geflippt (gespiegelt) wird oder kann man die Auflösung per Button klick ändern ?

Hi...,

also zum Verändern der Bldschirmauflösung hab ich folgendes gefunden:
(EasyHelper):

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
const breite=800; {Auflösung, unter der das Fenster erstellt wurde}
  hoehe=600;
var schrift: integer;
begin
  schrift := pixelsperinch-96;
  if screen.width>breite then begin
    if schrift>0 then
      {für große Schriften}
      ScaleBy(round(((screen.width/breite)*100)-((screen.width/breite-1)*100)),100)
    else
      {für kleine Schriften}
      ScaleBy(round(((screen.width/breite)*100)),100);
  end
  else begin
    if screen.width=breite then
      ScaleBy(round(((screen.width/breite)*100)-schrift),100)
    else begin
      if schrift>0 then
        {für große Schriften}
        ScaleBy(round((100-(breite/screen.width-1)*100)-(breite/screen.width-1)*100),100)
      else
        {für kleine Schriften}
        ScaleBy(round((100-(breite/screen.width-1)*100)),100);
    end;
  end;
end;

Ähm..., und den Desktop spiegeln..., hm...
da hab ich keine Ahnung!
Willst du dir ein Scherzprogramm machen, oder was?

Also dann, viel Spass...

Greetz by Hux

Mmh... du könntest einen Screenshot machen und den dan gespiegelt auf den Desktop zeichnen. Guck mal hier: Bitmap spiegeln

Tips für einen Screenshot findest du in der DP Suche und auf den Deskop zeichnen kannst du so: Direkt auf den Desktop zeichnen.

Danke für eure Hilfe, ich werde es testen, danke