OFrame.dll: Verschieb- und skalierbare Controls

[Frabbing]

Bitte um Test unter XP, Vista & 7, ggf. mit Screenshot.
http://frabbing.bplaced.net/OFrame.zip

[Jochen2011]

hi,
das verschieben funktioniert

dieses kleine Programm ist schon 353 kb groß
in VB komm ich mit der gleichen Funktion auf ca. 40 kb

[Jochen2011]

scrennshot

a1.jpg

[Bangkok]

Ja aber du brauchst nur 40 kb, weil alles was du brauchst für dein Programm mit ca 2 MB in Windows ist. Wer das nicht hat muss das alles erst mal downloaden

[Jochen2011]

und wer hat kein Windows ?

[THFR]

Frank, unter XP2 alles OK und die Anzeige wie bei dir, jedoch ohne gepunktetem Rahmen.
Schöner kleiner Helfer und optimal, wenn die Eckpunkte des Controls auch gleich als Variable zur Verfügung stünden.
Naja, sonst muß man sie halt ermitteln über:

Def @Getwindowrect(2) !"USER32", "GetWindowRect"
Def @Screentoclient(2) !"USER32","ScreenToClient"
Declare B#

While 1
  WaitInput
  Case %key=2:Break
   Locate 1,1
   Dim B#,16
   @Getwindowrect(Test&,B#)
   @Screentoclient(%Hwnd,B#)
   @Screentoclient(%Hwnd,B#+8)
   Print "Eckpunkte von Test& bezogen auf %hwnd:",Long(B#,0),Long(B#,4),Long(B#,8),Long(B#,12);"   "
   Dispose B#
Endwhile

Gruß Thomas

[Frabbing]

dieses kleine Programm ist schon 353 kb groß
in VB komm ich mit der gleichen Funktion auf ca. 40 kb

Ja, dafür ist die Dll nur 4,5 KB groß, und um die geht es hier ja. Die Exe ist nur für Nicht-XProfaner dazu gepackt, damit die Testen können. XProfaner benötigen nur die 1.1 KB-Sourcedatei.

Danke schonmal an alle Tester! Vielleicht kann noch jemand mit Windows 7 testen?

Schöner kleiner Helfer und optimal, wenn die Eckpunkte des Controls auch gleich als Variable zur Verfügung stünden.

Ich hab noch mehr vor. Die Eckpunkte sollen noch ziehbar gemacht werden und das Control soll auch noch zusätzlich Text anzeigen können. Geplant ist ein Objektrahmen-Control. Mal sehen, weas ich alles umsetzen kann von meinen Ideen. Ist mein erstes Custom-Control mit eigener Klasse.

[Bangkok]

@Jochy: ich meinte natürlich nicht Windows, sondern die Runtimes für VB

[AHT]

Nochmals Vista Home Premium -> keine Probleme mit der EXE:

[Frabbing]

Danke schonmal an euch!
Ich hab das Control etwas weiter gesponnen. Jetzt ist die Richtung schon erkennbar, in die es gehen soll, hoffe das klappt weiterhin überall: http://frabbing.bplaced.net/OFrame2.zip

[AHT]

Keine Probleme unter meinem Vista-System:



Geile Sache!

[horsthorn]

...und so sieht die Sache unter WINDOWS-7 RC aus:

[Frabbing]

Dank euch! Sieht ja genauso aus wie unter XP.
Ich hab noch vor, die minimale/maximale Position und Ausdehnung jedes einzelnen Controls durch den User begrenzen lassen zu können und zusätzlich (zu Bild oder Farbhintergrund) einen Text im Control zuzulassen. Damit ist es dann sehr einfach, Objekte in einem Programm zu erstellen, z.B. für Controlbuilderprogramme a la Rolf's ROC oder für Grafikprogramme. Gibt sicher noch jede Menge anderer Einsatzgebiete.

Unter WinXP-Prof. SP3 u. Vista Home-Premium auch keinerlei Probleme.

Gruß Mike

[AHT]

Bei mir auf allen Windows98 Systemen bis einschließlich SP2d:




Bei mir unter allen Windows2000 Systemen (SP2 und SP4) keine Probleme:




Unter XP ohne Servicepacks keine Probleme, läuft tadellos: