Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

MINMAXINFO Problem

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Windows-spezifische Fragen
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
E-P-S



Anmeldungsdatum: 16.09.2004
Beiträge: 500
Wohnort: Neuruppin

BeitragVerfasst am: 28.03.2009, 15:18    Titel: MINMAXINFO Problem Antworten mit Zitat

Hallo zusammen,

ich tue mich etwas schwer diesen PureBasic Codeausschnitt hier nach FreeBasic zu übertragen. Kann mir da vielleicht jemand helfen?

Code:
   Protected *pMinMax.MINMAXINFO

   Select uMsg
      Case #WM_GETMINMAXINFO
         *pMinMax = lParam
         If mleft > 0
            *pMinMax\ptMinTrackSize\X = mleft
         EndIf
         If mright > 0
            *pMinMax\ptMaxTrackSize\X = mright
         EndIf
         If mtop > 0
            *pMinMax\ptMinTrackSize\Y = mtop
         EndIf
         If mbottom > 0
            *pMinMax\ptMaxTrackSize\Y = mbottom
         EndIf


Vielen Dank schonmal
_________________
Man kann sich öfter als zweimal im Leben halb tot lachen.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192

BeitragVerfasst am: 28.03.2009, 21:18    Titel: Antworten mit Zitat

nach http://www.cpp-tutor.de/mfc/mfc/kap3/tut/tut1.htm
sollte es so gehen:
Code:
Select uMsg
      Case WM_GETMINMAXINFO
         If mleft > 0 then
            cast(PMINMAXINFO, lParam) -> ptMinTrackSize.X = mleft
         End If
         If mright > 0 then
            cast(PMINMAXINFO, lParam) -> ptMaxTrackSize.X = mright
         End If
         If mtop > 0 then
            cast(PMINMAXINFO, lParam) -> ptMinTrackSize.Y = mtop
         End If
         If mbottom > 0 then
            cast(PMINMAXINFO, lParam) -> ptMaxTrackSize.Y = mbottom
         End If

!!! ungetestet !!!
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Windows-spezifische Fragen Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz