Desktop Flippen & Auflösung

[DEADHunter]

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 ?

[HuxXx]

Hi...,

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

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

[Yan]

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.

[DEADHunter]

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