Italia
Fonte/ Codesnippets

Elternfenster Kindfenster

 

KompilierenMarkierenSeparieren
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Elternfenster und Kindfenster
Dieses Demo ist lauffähig ab XProfan 10 und ist
eine Anregung von Horst Horn zur Weiterentwicklung
der Programmoberfläche des XProfan-Managers
http://www.web-treffpunkt.de
Wir danken Horst Horn für die Anregung und seinen Code!
Dietmar Horn
DEF ExtractIcon(3) !SHELL32,ExtractIconA
DEF LoadImage(6) ! USER32,LoadImageA
DEF &BM_SETIMAGE $0F7
DEF &IMAGE_ICON $01
DECLARE main_M%,steig%,spalte%,zeile%,tip%
main_M%=34 Hauptmass - danach richtet sich alles
steig%=main_M%
DECLARE EE%
EE%=0
DECLARE meine_DLL$,icon_DLL$,pfad$
pfad$=GETDIR$(@)+\ICONS
pfad$=$ProgDir
meine_DLL$=pfad$+\meine_XP.DLL
icon_DLL$=USEDLL($SysPath+\SHELL32.DLL)
DECLARE titel$[10] usw...
titel$[1]=Projekte:titel$[2]=XProfan:titel$[3]=Helfer:titel$[4]=Tools:titel$[5]=Internet
titel$[6]=Extern:titel$[7]=Windows-System:titel$[8]=Setup:titel$[9]=Info:titel$[10]=Hilfe
DECLARE win01&,win02& usw....
DECLARE b01%[20],b02%[20] uws...

PROC CreateIconButton

    Parameters Exe$,Index&,Window&,X&,Y&,W&,H&,ID&
    Declare Button&,Icon&
    Button& = Control(Button,,$56000040,X&,Y&,W&,H&,Window&,ID&,%Hinstance)
    Icon& = ExtractIcon(%Hinstance,Addr(Exe$),Index&)
    Sendmessage(Button&,&BM_SETIMAGE,&IMAGE_ICON,Icon&)
    Return Button&

ENDPROC

PROC POP_MENU

    PopUp &+titel$[1]
    PopUp &+titel$[2]
    PopUp &+titel$[3]
    PopUp &+titel$[4]
    PopUp &+titel$[5]
    PopUp &+titel$[6]
    PopUp &+titel$[7]
    PopUp &+titel$[8]
    PopUp &+titel$[9]
    PopUp &+titel$[10]

ENDPROC

PROC FENSTER_01

    zeile%=0:spalte%=0
    win01&=CREATE(CHILDWINDOW,%HWnd,titel$[1],0,0,((steig%*24)-8),(steig%*3))
    CreateIconButton meine_DLL$,51,win01&,spalte%,zeile%,main_M%,main_M%,1001
    b01%[1] = &(0)
    tip%=CREATE(TOOLTIP,win01&,b01%[1], Einstellung für das aktuelle Projekt )
    Add spalte%,steig%
    CreateIconButton icon_dll$,21,win01&,spalte%,zeile%,main_M%,main_M%,1002
    b01%[2] = &(0)
    tip%=CREATE(TOOLTIP,win01&,b01%[2], XProfan-Editor starten...)
    Add spalte%,steig%
    CreateIconButton icon_dll$,137,win01&,spalte%,zeile%,main_M%,main_M%,1003
    b01%[3] = &(0)
    tip%=CREATE(TOOLTIP,win01&,b01%[3], Projektdatei ausführen (Interpretermodus) )
    Add spalte%,steig%
    CreateIconButton icon_dll$,55,win01&,spalte%,zeile%,main_M%,main_M%,1004
    b01%[4] = &(0)
    tip%=CREATE(TOOLTIP,win01&,b01%[4], Mini-Debugger )
    Add spalte%,steig%
    CreateIconButton icon_dll$,65,win01&,spalte%,zeile%,main_M%,main_M%,1005
    b01%[5] = &(0)
    tip%=CREATE(TOOLTIP,win01&,b01%[5], Projektdatei kopieren )
    Add spalte%,steig%
    CreateIconButton icon_dll$,48,win01&,spalte%,zeile%,main_M%,main_M%,1006
    b01%[6] = &(0)
    tip%=CREATE(TOOLTIP,win01&,b01%[6], Installationssetup erstellen)

ENDPROC

PROC FENSTER_02

    zeile%=0:spalte%=0
    win02&=CREATE(CHILDWINDOW,%HWnd,titel$[2],0,(steig%*3),((steig%*24)-8),(steig%*3))
    CreateIconButton meine_dll$,22,win02&,spalte%,zeile%,main_M%,main_M%,2001
    b02%[1] = &(0)
    tip%=CREATE(TOOLTIP,win02&,b02%[1], Lustige  Sachen )

ENDPROC

##############################################################################
WINDOW (%MaxX/2-(steig%*12)),(%MaxY/2-(steig%*9))-(steig%*24),(steig%*18)
WindowTitle XProfan-Manager - Startbild-Vorschlag von Horst Horn  - http://www.web-treffpunkt.de -
POP_MENU
FENSTER_01
FENSTER_02

WHILENOT EE%

    WAITINPUT
    Case ISKEY(27):EE%=pan class=s2>1

ENDWHILE

 
15.07.2007  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

1.019 Views

Untitledvor 0 min.
H.Brill18.09.2023
AndreasS27.11.2018
rquindt04.10.2015
Torsten Boo05.03.2011
Di più...

Themeninformationen

Dieses Thema hat 1 subscriber:

unbekannt (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie