Form2 in Form1 verkleinert darstellen

draco · Beiträge: 21

Hallo,

ich habe gerade angefangen ein kleines Präsentationsprogramm für Texte zu erstellen.
Das Programm besteht aus 2 Formularen, eins zum Steuern der Präsentation und eins das die Präsentation auf dem 2.Monitor anzeigt.
Um dem Bediener einen kleinen gefallen zu machen würde ich jetzt gerne in dem Steuerungsformular eine verkleinerte Version von dem Präsentationsformular einblenden.
Wie macht man das am geschicktesten? Hatte es mal mit einem Frame probiert, allerdings wurde dort durch verkleinern nur der Ausschnitt des Frames verkleinert und nicht die komplett ansicht.

Gruß
Tom

Tilman · Verfasst: Fr 07.01.11 00:34

Angenommen du willst ein Bild von Form2 machen, und es in einer Paintbox in Form1 anzeigen, dann kannst du das so machen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  paintbox1.Canvas.CopyRect(form1.paintbox1.ClientRect,form2.Canvas,form2.ClientRect);
end;

So bekommst du Form2 (allerdings ohne Titelleiste und so). Das kann man auch irgendwie bekommen, glaube mittels getDC oder so. Aber vielleicht reicht's ja so.
//edit: ne, getWindowDC wars. Damit kannst du ein Handle bekommen, das du einem TCanvas-Objekt zuweisen kannst, dann bekommst du das gesamte Fenster.

_________________
Bringe einen Menschen zum grübeln, dann kannst du heimlich seinen Reis essen.
(Koreanisches Sprichwort)

draco · Beiträge: 21

Ok, danke!
Das probiere ich bei Gelegenheit mal aus und gucke wie das von der Geschwindigkeit her ist, für den Anfang dürfte es aber reichen.

Bergmann89 · Verfasst: Fr 07.01.11 00:54

Hey,

wenn du Form2 1 zu 1 in Form1 darstellen willst, dann kannst du die Parent-Eigenschaft von Form2 auch auf Form1 setzen:

markieren

Delphi-Quelltext

1:	Form2.Parent := Form1;

Dann wird Form 2 vom System aus auf dem Client von Form 1 gezeichnet und man kann sie trotzdem noch ganz normal benutzen. Wenn du Form2 dann wieder freigeben willst einfach die Parent-Eigenschaft auf nil setzen.

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

BenBE · Verfasst: Fr 07.01.11 07:30

Zusätzlich kann man via GDI die Viewport-Settings des Canvas auf dem Form2 gezeichnet wird so anpassen, dass eine Koordinaten-Transformation stattfindet. Man also z.B. 10kPx horizontal zeichnen kann, das aber auf dem Bildschirm nur 1kPx sind; ohne selbst rechnen zu müssen. Siehe Dokumentation der GDI bzw. der Window Viewports.

Auf Grund der Sateliten-Verbindung, über die ich im Death Valley grad surfe, verzichte ich aber mal darauf, im MSDN Lib nachzugucken, wie die Funktion genau heißt (Google-Ping ~2000ms). Kann ich aber ggf. nach meinem Urlaub nachholen.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

jaenicke · Verfasst: Fr 07.01.11 08:25

Ich habe gerade keine Zeit nachzuschauen, aber hier ist auf jeden Fall der richtige Einsprungspunkt in die Doku:
msdn.microsoft.com/e...145104(v=VS.85).aspx
SetWorldTransform gibt es da, das müsste es schon sein, und wenn du links über die Kategorien weiterschaust, findest du auch noch viele andere Funktionen. Damit sollte sich sowas machen lassen was user profile icon

BenBE geschrieben hat.

draco · Beiträge: 21

Ok, danke!
Werde mir das mal durchlesen und ausprobieren, bei Problemen schreie ich hier einfach nach Hilfe

Bergmann89 · Verfasst: So 09.01.11 03:18

Hey,

ich hab das ganze grad eben mal ausporbiert, weil ich mich auch dafür interessiere, aber iwie haut das noch nich so ganz hin:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var
  m: XForm;
  h: THandle;
  e: Cardinal;

m.eM11 := 0.5;
m.eM12 := 0.0;
m.eM21 := 0.0;
m.eM22 := 0.5;
m.eDx  := 0.0;
m.eDy  := 0.0;
h := GetDC(Handle);
if not SetWorldTransform(h, m) then begin
  e := GetLastError;
  Caption := 'Error '+IntToStr(e);
end else Caption := 'SUCCESS';

Damit sollte ja die Form jetzt 50% kleiner dargestellt werden, aber SetWorldTransform wird nicht erfolgreich ausgeführt und die Caption ist 'Error 0' (ERROR_SUCCESS --> The operation completed successfully.) Jmd ne Idee woran das liegt?

MfG Bergmann

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

jaenicke · Verfasst: So 09.01.11 04:52

Du hast den Eintrag in der Doku nicht bis zum Ende gelesen. ;-)

Zitat:

The SetWorldTransform function will fail unless the graphics mode for the given device context has been set to GM_ADVANCED by previously calling the SetGraphicsMode function. [...]

Direkt auf ein Formular habe ich das bisher allerdings nicht angewendet. ;-)

Bergmann89 · Verfasst: So 09.01.11 05:48

Hey,

jetzt werden die Funktionen korrekt ausgeführt, aber an der Darstellung hat sich nich wirklich was geändert, alles wie vorher.

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

bummi · Verfasst: So 09.01.11 11:46

Häng den Code mal ins OnPaint des Forms rein....

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var
  m: XForm;
  h: THandle;
  e: Cardinal;
begin
 Canvas.Ellipse(10,10,100,100);
m.eM11 := 0.5;
m.eM12 := 0.1;
m.eM21 := 0.0;
m.eM22 := 0.5;
m.eDx  := 0.1;
m.eDy  := 0.0;

h := Canvas.Handle;
SetGraphicsMode(h,GM_ADVANCED);
h := Canvas.Handle;
if not SetWorldTransform(h, m) then begin
  e := GetLastError;
  Caption := 'Error '+IntToStr(e);
end else Caption := 'SUCCESS';
Canvas.Ellipse(10,10,100,100);

end;

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme