(810)  Registro

Español
SDK-Helfer/ Tools

ActionBox (bessere MessageBox)

 

Jens-Arne
Reumschüssel
¡Hola zusammen,

Hier hay ahora Code para una muy deutlich verbesserte MessageBox, el Yo ActionBox genannt habe. Alles es en reinem XProfan geschrieben.

ActionBoxen unterscheiden se de MessageBoxen dadurch, dass
- cualquier viele Buttons con frei gewählter Aufschrift posible son
- Texto de una cierta Größe scrollbar es
- Texto- y Color de fondo frei determinado voluntad puede
- el Schriftart frei gewählt voluntad kann
- zwei weitere Icons disponible posición
- frei wählbare Buttons sólo después de el Scrollen bastante después de unten aktiviert voluntad puede
- una frei gewählte WAV-Expediente como Sound benutzt voluntad kann
- una incluso geschriebene PROC para el Ayuda-Button benutzt voluntad kann
- el alles, mi Yo, muy simplemente a handhaben es

Hier el Code. Wenn uno ihn ausführt, bekommt uno una Reihe de Beispielen adecuado, el el Möglichkeiten verdeutlichen.
KompilierenMarcaSeparación

STRUCT S_ACTIONBOX=Caption$(256),Texto$(10001),pText&,TextXSize&,TextMaxYSize&,TextColor&,BkColor&,AnzButtons&,ButtonTexts$(10000),DefButton&,ButtonXSize&,DeactivateButtonsTillLastLineSeen%,Icon&,Sound&,hFont&,HelpButton&,pHelpProc&,HelpProcParam&
STRUCT S_HELPINFO=cbSize&,iContextType&,iCtrlId&,hItemHandle&,dwContextId&,MousePosX&,MousePosY&
declarar _XMessageBox_TextColor&,_XMessageBox_BkColor&,_XMessageBox_hFont&,_XMessageBox_pHelpProc&,_XMessageBox_HelpProcParam&
_XMessageBox_TextColor&=@rgb(0,0,0)
_XMessageBox_BkColor&=@rgb(255,255,255)
_XMessageBox_hFont&=0
_XMessageBox_pHelpProc&=0
_XMessageBox_HelpProcParam&=0

declarar de#,fn$,s$,i%

PROC ActionBox 'propio MessageBox con beliebigen Buttons, gescrolltem Texto, beliebigen Farben y una beliebigen Sound
  'dim de#,S_ACTIONBOX
  'de#.Caption$: Fensterüberschrift (kann weggelassen voluntad, entonces ="Referencia")
  'de#.Texto$: Meldungstext con un máximo de 10000 Signo (se umgebrochen; Wörter, el länger como una Línea son, voluntad aufgeteilt)
  'de#.pText&: Pointer a una String con un cualquier langen Meldungstext (se genommen, si de#.Texto$="" y de#.pText&<>0)
  'de#.TextXSize&: Breite des Textfeldes en Pixeln (kann weggelassen voluntad, entonces =400)
  'de#.TextMaxYSize&: maximale Höhe des Textfeldes en Pixeln (kann weggelassen voluntad, entonces =500), después de Erreichen el maximalen vertikalen Ausdehnung se una Scrollbar benutzt
  'de#.TextColor&: Textfarbe (kann weggelassen voluntad, entonces schwarz)
  'de#.BkColor&: Color de fondo (kann weggelassen voluntad, entonces weiß)
  'de#.AnzButtons&: Anzahl el Buttons (kann weggelassen voluntad, entonces una Ok-Button; si gar no Buttons geben se, en -1 conjunto) - Ein Ayuda-Button (siehe más unten de#.HelpButton&) no es dazugezählt!
  'de#.ButtonTexts$: Buttonbeschriftungen, por "|" getrennt - Den Texto para una eventuellen Ayuda-Button puede ser como letzten Texto optional con angeben (sonst se "Ayuda" benutzt)
  'de#.DefButton&: Nummer des Default-Buttons (kann weggelassen voluntad, entonces el erste Button; si no Default-Button geben se, en -1 conjunto)
  'de#.ButtonXSize&: Breite el Buttons en Pixeln (kann weggelassen voluntad, entonces =100 o. =75 en Default-Ok-Button)
  'de#.DeactivateButtonsTillLastLineSeen%: hier puede bitweise Buttons angegeben voluntad, el sólo aktiviert voluntad, si la Texto a a letzten Línea gescrollt wurde (Button 1: 1, Button 2: 2, Button 3: 4, Button 4: 8 etc.)
  'de#.HelpButton&: 1=fügt una Ayuda-Button hinzu (si dieser geklickt se, se una ~WM_HELP-Message ans Ventana principal gesendet, wobei me unklar es, cómo el auswerten kann, während el MessageBox el Programa blockiert - Abhilfe: siehe direkt hier drunter)
  'de#.pHelpProc: una con @ProcAddr(...) ermittelte Einsprungadresse a uno Procedimiento, el aufgerufen se, si la Hilfebutton geklickt se (esta PROC muss genau una 4-Byte-Parámetro haben)
  'de#.HelpProcParam&: una benutzerdefinierter Parámetro, el a el HelpProc transferencia se
  'de#.Icon&: -1=kein Icon, 1=i, 2=?, 3=!, 4=X, 5=Security Shield, 6=Application Icon (kann weggelassen voluntad, entonces =1 sin Sound)
  'de#.Sound&: 1=Windows-Sound passend para Icon, -1=kein Sound, 11-14=Sound como en Icon 1X, 15=Beep, >15=Pointer a una String con un Sound-Dateinamen (kann weggelassen voluntad, entonces =1)
  'caso ActionBox(de#)=1: imprimir "Button 1 geklickt"
  'disponer de#
  '----------------------------------------------
  'Lo reicht also, sólo de#.Texto$ a conjunto, en una minimalistisches Hinweisfenster con un "i"-Icon y una Ok-Button sin Sound a obtener.
  '----------------------------------------------
  'Rückgabewert: Nummer des angeklickten Buttons o. 0 en Esc. y en Ventana schließen ("X"-Button rechts oben)
  parámetros de#
  declarar a%,b%,c%,d%,i%,o%,b#,hD%,hB%[],meldungstext$,s$,s2$,s3$,lines$[],anzlines%,aktline%,workline$,ende%,aktword%,anzwords%,savedfont%,saveddialogfont%,yofs%,xsize%,ysize%,ret%,hF%
  declarar xtextsize%,textrandsize%,xiconsize%,xbuttonsize%,ybuttonsize%,IconX1%,IconY1%,IconX2%,IconY2%,hVertScrollbar%,usevertscrollbar%,maxvscrollpos%,oldvscrollpos%,aktzeile%,oldfastmode%,hIcon%
  declarar HelpInfo#,oldusermess16%,oldusermess522%
  oldfastmode%=@Conjunto("FastMode",0)
  '{ 'Mensajes del usuario invertir
  oldusermess16%=@IsUserMessage($10)
  if oldusermess16%=0
    usermessages $10
  endif
  oldusermess522%=@IsUserMessage(522)
  if oldusermess522%=0
    usermessages 522
  endif
  '}
  '{ 'Variables füllen
  meldungstext$=""
  if de#.Texto$<>""
    meldungstext$=ab#.Texto$
  elseif de#.pText&<>0
    meldungstext$=@cadena$(de#.pText&,0)
  endif
  dim HelpInfo#,S_HELPINFO
  ret%=0
  textrandsize%=10
  hVertScrollbar%=0
  usevertscrollbar%=0
  oldvscrollpos%=0
  anzlines%=0
  hF%=@create("FONT","Segoe UI",-12,0,0,0,0)
  '}
  '{ 'Default-Werte conjunto, si no angegeben
  if de#.TextXSize&=0
    de#.TextXSize&=400
  endif
  if de#.TextMaxYSize&=0
    de#.TextMaxYSize&=500
  endif
  if de#.BkColor&=0
    de#.BkColor&=@rgb(255,255,255)
  endif
  if de#.Icon&=0
    de#.Icon&=1
    if de#.Sound&=0
      de#.Sound&=-1
    endif
  endif
  if de#.Icon&>0
    xiconsize%=50
  más
    xiconsize%=0
  endif
  if de#.Caption$=""
    de#.Caption$="Referencia"
    if de#.Icon&=2
      de#.Caption$="Cuestión"
    elseif de#.Icon&=3
      de#.Caption$="Achtung"
    elseif de#.Icon&=4
      de#.Caption$="Fehler"
    endif
  endif
  if de#.Sound&=0
    de#.Sound&=1
  endif
  if de#.ButtonXSize&=0
    if de#.AnzButtons&>0
      de#.ButtonXSize&=100
    más
      de#.ButtonXSize&=75
    endif
  endif
  if de#.AnzButtons&=0
    de#.AnzButtons&=1
    de#.ButtonTexts$="Ok"
  endif
  if de#.HelpButton&
    de#.AnzButtons&=ab#.AnzButtons&+1
    if @substr$(de#.ButtonTexts$,de#.AnzButtons&,"|")=0
      if de#.ButtonTexts$<>""
        de#.ButtonTexts$=ab#.ButtonTexts$+"|"
      endif
      de#.ButtonTexts$=ab#.ButtonTexts$+"Ayuda"
    endif
  endif
  if de#.AnzButtons&>0
    if de#.DefButton&=0
      de#.DefButton&=1 'si no Default-Button geben se, en -1 conjunto
    elseif de#.DefButton&>de#.AnzButtons& 'lo wurde offenbar vergessen, después de uno vorherigen ActionBox con mehr Buttons como dieser el DefButton así a conjunto, dass él a dieser ActionBox passt --> Button 1 nehmen
      de#.DefButton&=1 'si no Default-Button geben se, en -1 conjunto
    endif
  endif
  if de#.hFont&=0
    usefont "Segoe UI",-12,0,0,0,0
  más
    SetGrafikFont de#.hFont&
  endif
  '}
  xtextsize%=ab#.TextXSize&
  if de#.Icon&<1
    xtextsize%=xtextsize%+50 'xiconsize%
  endif
  xsize%=xiconsize%+textrandsize%+xtextsize%+textrandsize%
  xbuttonsize%=ab#.ButtonXSize&
  ybuttonsize%=25
  savedfont%=@GetGrafikFont()
  '{ '"\t" en sechs Spaces verwandeln
  meldungstext$=@translate$(meldungstext$,"\t","      ")
  '}
  if meldungstext$<>""
    '{ 'Zeilenumbrüche ("\n") durchführen
    anzlines%=1
    lines$[1]=meldungstext$
    i%=1
    mientras que i%<=anzlines%
      if @instr("\n",lines$[i%])
        inc anzlines%
        for o%,anzlines%-1,i%+1,-1
          lines$[o%+1]=lines$[o%]
        endfor 'o%
        s$=lines$[i%]
        lines$[i%]=@left$(s$,@instr("\n",s$)-1)
        lines$[i%+1]=@right$(s$,@len(s$)-@instr("\n",s$)-1)
      endif
      inc i%
    endwhile
    '}
    '{ 'texto$ en einzelne Zeilen aufteilen
    ende%=0
    aktword%=0
    aktline%=1
    workline$=lines$[aktline%]
    anzwords%=@len(workline$," ")
    s$=""
    whilenot ende%
      if anzwords%=0
      más
        inc aktword%
        if @GetDrawStringLenX(s$+" "+@substr$(workline$,aktword%," "))<=xtextsize%
          caso s$<>"": s$=s$+" "
          s$=s$+@substr$(workline$,aktword%," ")
        más
          if @GetDrawStringLenX(@substr$(workline$,aktword%," "))<=xtextsize%
            dec aktword%
            lines$[aktline%]=s$
            inc anzlines%
            for i%,anzlines%-1,aktline%+1,-1
              lines$[i%+1]=lines$[i%]
            endfor 'i%
            inc aktline%
            s$=""
          más 'el einzelne Wort es länger como una Línea: Buchstabe para Buchstabe verkürzen y Wort teilen
            s2$=@substr$(workline$,aktword%," ")
            for i%,@len(s2$)-1,1,-1
              if @GetDrawStringLenX(@left$(s2$,i%)+" ")<=xtextsize%
                s2$=@left$(s2$,i%)+" "+@right$(s2$,@len(s2$)-i%)
                romper
              endif
            endfor 'i%
            s3$=""
            for i%,1,anzwords%
              caso s3$<>"": s3$=s3$+" "
              if i%<>aktword%
                s3$=s3$+@substr$(workline$,i%," ")
              más
                s3$=s3$+s2$
              endif
            endfor 'i%
            workline$=s3$
            dec aktword%
            inc anzwords%
          endif
        endif
      endif
      if aktword%=anzwords%
        if s$<>""
          lines$[aktline%]=s$
        endif
        if aktline%=anzlines%
          ende%=1
        más
          inc aktline%
          workline$=lines$[aktline%]
          anzwords%=@len(workline$," ")
          aktword%=0
          s$=""
        endif
      endif
    endwhile
    '}
  endif
  '{ 'ggf. una zweite Línea hinzufügen (con Icon sieht sólo una Línea doof de)
  if de#.Icon&>0
    mientras que anzlines%<2
      inc anzlines%
      lines$[anzlines%]=""
    endwhile
  endif
  '}
  '{ 'xsize% adaptar
  a%=0
  for i%,1,anzlines%
    if lines$[i%]<>""
      b%=@GetDrawStringLenX(lines$[i%])
      if b%>a%
        a%=b%
      endif
    endif
  endfor 'i%
  xtextsize%=a%+textrandsize%
  xsize%=xiconsize%+textrandsize%+xtextsize%+textrandsize%
  if xsize%<(textrandsize%*(ab#.AnzButtons&+1))+(xbuttonsize%*ab#.AnzButtons&)+(2*@GetWindowThinBorderWidth())
    xsize%=(textrandsize%*(de#.AnzButtons&+1))+(xbuttonsize%*de#.AnzButtons&)+(2*@GetWindowThinBorderWidth())
  endif
  '}
  '{ 'yofs% & ysize& ermitteln
  yofs%=GetDrawStringLenY("X")
  if (anzlines%*yofs%)<=ab#.TextMaxYSize&
    ysize%=textrandsize%+(anzlines%*yofs%)+(textrandsize%*2)+ybuttonsize%+textrandsize%+(2*@GetWindowThinBorderWidth())
  más
    usevertscrollbar%=1
    ysize%=textrandsize%+(de#.TextMaxYSize&)+(textrandsize%*2)+ybuttonsize%+textrandsize%+(2*@GetWindowThinBorderWidth())
  endif
  '}
  '{ 'xsize% a mögliche Scrollbar adaptar
  if usevertscrollbar%
    xsize%=xsize%+15
  endif
  '}
  '{ 'Diálogo aufbauen
  hD%=@create("DIALOG",%HWnd,de#.Caption$,((%maxx\2)-(xsize%\2)),((%maxy\2)-(ysize%\2)),xsize%,ysize%)
  a%=@GetAbsWindowPosX1(hD%)
  b%=@GetAbsWindowPosY1(hD%)
  c%=@GetAbsWindowPosX2(hD%)
  d%=@GetAbsWindowPosY2(hD%)
  SetWindowPos hD%=a%,(b%-((ysize%-@height(hD%))\2))-(c%-a%),((d%-b%)+(ysize%-@height(hD%)));-1
  saveddialogfont%=@GetDialogFont()
  SetDialogFont hF%
  StartPaint hD%
  '{ 'Hintergrund malen
  'cls @rgb(255,255,255)
  UseBrush 1,de#.BkColor& '@rgb(255,255,255)
  USEP 0,0,de#.BkColor& '@rgb(255,255,255)
  rectangle 0,0-@width(hD%),(@height(hD%)-textrandsize%-ybuttonsize%-textrandsize%)
  '}
  '{ 'Scrollbar redactar
  if usevertscrollbar%
    hVertScrollbar%=@Crear("VScroll",hD%,"",@width(hD%)-15,0,15,textrandsize%+de#.TextMaxYSize&+textrandsize%)
    maxvscrollpos%=anzlines%-(de#.TextMaxYSize&\yofs%)+1
    SetScrollRange hVertScrollbar%,1,maxvscrollpos%
    oldvscrollpos%=@GetScrollPos(hVertScrollbar%)
  endif
  '}
  '{ 'Icon dibujar
  if de#.Icon&>0
    IconX1%=10
    IconY1%=10
    IconX2%=IconX1%+35
    IconY2%=IconY1%+35
    '{ 'JR-Icons (incluso suscrito) - auskommentiert
    /*
    '{ '1=i
    if de#.Icon&=1
      UseBrush 1,@rgb(0,100,255)
      USEP 0,0,@rgb(0,0,0)
      ellipse IconX1%,IconY1%-IconX2%,IconY2%
      usefont "Times New Roman",30,0,1,0,0
      textcolor @rgb(255,255,255),-1
      drawtext IconX1%+((IconX2%-IconX1%)\2),IconY1%+1,"i",6
    '}
    '{ '2=?
    elseif de#.Icon&=2
      UseBrush 1,@rgb(0,100,255)
      USEP 0,0,@rgb(0,0,0)
      ellipse IconX1%,IconY1%-IconX2%,IconY2%
      usefont "Times New Roman",30,0,1,0,0
      textcolor @rgb(255,255,255),-1
      drawtext IconX1%+((IconX2%-IconX1%)\2)+1,IconY1%+2,"?",6
    '}
    '{ '3=!
    elseif de#.Icon&=3
      UseBrush 1,@rgb(255,220,0)
      USEP 0,2,@rgb(255,180,0)
      line IconX1%,IconY2%-(IconX1%+((IconX2%-IconX1%)\2)),IconY1%
      line (IconX1%+((IconX2%-IconX1%)\2)),IconY1%-IconX2%,IconY2%
      line IconX1%,IconY2%-IconX2%,IconY2%
      fill IconX1%+10,IconY2%-10,@rgb(255,180,0)
      usefont "Arial",30,0,1,0,0
      textcolor @rgb(0,0,0),-1
      drawtext IconX1%+((IconX2%-IconX1%)\2)+1,IconY1%+5,"!",6
    '}
    '{ '4=X
    elseif de#.Icon&=4
      UseBrush 1,@rgb(255,0,0)
      USEP 0,0,@rgb(0,0,0)
      ellipse IconX1%,IconY1%-IconX2%,IconY2%
      usefont "Arial",30,0,1,0,0
      textcolor @rgb(255,255,255),-1
      drawtext IconX1%+((IconX2%-IconX1%)\2)+1,IconY1%+2,"X",6
    '}
    */
    '}
    '{ 'Windows-Icons
    '{ '1=i
    if de#.Icon&=1
      hIcon%=@external("USER32.DLL","LoadIconA",0,32516) '32516=~IDI_INFORMATION
      drawicon hIcon%,IconX1%,IconY1%
    '}
    '{ '2=?
    elseif de#.Icon&=2
      hIcon%=@external("USER32.DLL","LoadIconA",0,32514) '32514=~IDI_QUESTION
      drawicon hIcon%,IconX1%,IconY1%
    '}
    '{ '3=!
    elseif de#.Icon&=3
      hIcon%=@external("USER32.DLL","LoadIconA",0,32515) '32515=~IDI_WARNING
      drawicon hIcon%,IconX1%,IconY1%
    '}
    '{ '4=X
    elseif de#.Icon&=4
      hIcon%=@external("USER32.DLL","LoadIconA",0,32513) '32513=~IDI_ERROR
      drawicon hIcon%,IconX1%,IconY1%
    '}
    '{ '5=Security Shield
    elseif de#.Icon&=5
      hIcon%=@external("USER32.DLL","LoadIconA",0,32518) '32518=~IDI_SHIELD
      drawicon hIcon%,IconX1%,IconY1%
    '}
    '{ '6=Application Icon
    elseif de#.Icon&=6
      'hIcon%=@external("USER32.DLL","LoadIconA",0,~IDI_APPLICATION) '~IDI_WINLOGO 'funktioniert beides no correcto
      dim b#,10001
      @external("KERNEL32.DLL","GetModuleFileNameA",0,b#,10000)
      hIcon%=@create("HICON",@cadena$(b#,0),0)
      disponer b#
      drawicon hIcon%,IconX1%,IconY1%
      DeleteObject hIcon%
    '}
    '}
    endif
    textcolor @rgb(0,0,0),-1
  endif
  '}
  '{ 'Texto escribir
  if de#.hFont&=0
    usefont "Segoe UI",-12,0,0,0,0
  más
    SetGrafikFont de#.hFont&
  endif
  textcolor de#.TextColor&,-1
  aktzeile%=1
  a%=aktzeile%
  if usevertscrollbar%
    b%=aktzeile%+((de#.TextMaxYSize&\yofs%)-1)
  más
    b%=anzlines%
  endif
  for i%,a%,b%
    drawtext xiconsize%+textrandsize%,textrandsize%+(yofs%*(i%-a%)),lines$[i%],0
  endfor 'i%
  '}
  EndPaint
  '{ 'Buttons redactar
  for i%,1,de#.AnzButtons&
    if i%<>de#.DefButton&
      hB%[i%]=@create("BUTTON",hD%,@substr$(de#.ButtonTexts$,i%,"|"),@width(hD%)-(textrandsize%*(de#.AnzButtons&-(i%-1)))-(xbuttonsize%*(de#.AnzButtons&-(i%-1))),@height(hD%)-(ybuttonsize%+textrandsize%),xbuttonsize%,ybuttonsize%)
    más
      hB%[i%]=@create("DEFBUTTON",hD%,@substr$(de#.ButtonTexts$,i%,"|"),@width(hD%)-(textrandsize%*(de#.AnzButtons&-(i%-1)))-(xbuttonsize%*(de#.AnzButtons&-(i%-1))),@height(hD%)-(ybuttonsize%+textrandsize%),xbuttonsize%,ybuttonsize%)
    endif
  endfor 'i%
  if de#.DefButton&>0
    @setfocus(hB%[de#.DefButton&])
  endif
  if usevertscrollbar%
    for i%,1,de#.AnzButtons&
      if (de#.DeactivateButtonsTillLastLineSeen% & (2 ^ (i%-1)))=(2 ^ (i%-1))
        enablewindow hB%[i%],0
      endif
    endfor 'i%
  endif
  '}
  '{ 'Ton abspielen
  if de#.Sound&=1
    if de#.Icon&=1
      MessageBeep($40) '~MB_ICONASTERISK
    elseif de#.Icon&=2
      MessageBeep($20) '~MB_ICONQUESTION
    elseif de#.Icon&=3
      MessageBeep($30) '~MB_ICONEXCLAMATION
    elseif de#.Icon&=4
      MessageBeep($10) '~MB_ICONERROR
    elseif de#.Icon&=5
      MessageBeep($30) '~MB_ICONEXLAMATION
    endif
  elseif de#.Sound&=11
    MessageBeep($40) '~MB_ICONASTERISK
  elseif de#.Sound&=12
    MessageBeep($20) '~MB_ICONQUESTION
  elseif de#.Sound&=13
    MessageBeep($30) '~MB_ICONEXCLAMATION
  elseif de#.Sound&=14
    MessageBeep($10) '~MB_ICONERROR
  elseif de#.Sound&=15
    MessageBeep(0) '~MB_OK (Standard-Beep)
  elseif de#.Sound&>15
    PlaySound @cadena$(de#.Sound&,0),1
  endif
  '}
  '}
  '{ 'Eingabehandling
  ende%=0
  whilenot ende%
    waitinput
    '{ 'Esc. o. Ventana schließen
    if (((@iskey(27)=1) or (%umessage=$10)) and (@external("USER32.DLL","GetForegroundWindow")=hD%))
      ende%=1
      ret%=0
      mientras que @iskey(27)
        sleep 25
      endwhile
      ClearKeyboardBuffer
    '}
    '{ 'Scrollbar
    elseif (usevertscrollbar%=1) and (@GetScrollPos(hVertScrollbar%)<>oldvscrollpos%)
      oldvscrollpos%=@GetScrollPos(hVertScrollbar%)
      StartPaint hD%
      UseBrush 1,de#.BkColor& '@rgb(255,255,255)
      USEP 0,0,de#.BkColor& '@rgb(255,255,255)
      rectangle xiconsize%,textrandsize%-(xiconsize%+xtextsize%+textrandsize%),(textrandsize%+de#.TextMaxYSize&)
      if de#.hFont&=0
        usefont "Segoe UI",-12,0,0,0,0
      más
        SetGrafikFont de#.hFont&
      endif
      textcolor de#.TextColor&,-1
      aktzeile%=oldvscrollpos%
      a%=aktzeile%
      b%=aktzeile%+((de#.TextMaxYSize&\yofs%)-1)
      for i%,a%,b%
        drawtext xiconsize%+textrandsize%,textrandsize%+(yofs%*(i%-a%)),lines$[i% ],0
      endfor 'i%
      EndPaint
      if usevertscrollbar%
        if oldvscrollpos%=maxvscrollpos%
          for i%,1,de#.AnzButtons&
            if (de#.DeactivateButtonsTillLastLineSeen% & (2 ^ (i%-1)))=(2 ^ (i%-1))
              enablewindow hB%[i%],1
            endif
          endfor 'i%
        endif
      endif
    '}
    '{ 'Mausrad
    elseif %uMessage=522
      if &uwParam<0 'nach unten gedreht
        a%=@GetScrollPos(hVertScrollbar%)
        inc a%
        if a%>maxvscrollpos%
          a%=maxvscrollpos%
        endif
        if a%<>oldvscrollpos%
          oldvscrollpos%=a%
          SetScrollPos hVertScrollbar%,oldvscrollpos%
          StartPaint hD%
          UseBrush 1,ab#.BkColor& '@rgb(255,255,255)
          USEP 0,0,de#.BkColor& '@rgb(255,255,255)
          rectangle xiconsize%,textrandsize%-(xiconsize%+xtextsize%+textrandsize%),(textrandsize%+de#.TextMaxYSize&)
          if de#.hFont&=0
            usefont "Segoe UI",-12,0,0,0,0
          más
            SetGrafikFont de#.hFont&
          endif
          textcolor de#.TextColor&,-1
          aktzeile%=oldvscrollpos%
          a%=aktzeile%
          b%=aktzeile%+((de#.TextMaxYSize&\yofs%)-1)
          for i%,a%,b%
            drawtext xiconsize%+textrandsize%,textrandsize%+(yofs%*(i%-a%)),lines$[i% ],0
          endfor 'i%
          EndPaint
          if oldvscrollpos%=maxvscrollpos%
            for i%,1,de#.AnzButtons&
              if (de#.DeactivateButtonsTillLastLineSeen% & (2 ^ (i%-1)))=(2 ^ (i%-1))
                enablewindow hB%[i%],1
              endif
            endfor 'i%
          endif
        endif
      elseif &uwParam>0 'después de oben gedreht
        a%=@GetScrollPos(hVertScrollbar%)
        dec a%
        if a%<1
          a%=1
        endif
        if a%<>oldvscrollpos%
          oldvscrollpos%=a%
          SetScrollPos hVertScrollbar%,oldvscrollpos%
          StartPaint hD%
          UseBrush 1,de#.BkColor& '@rgb(255,255,255)
          USEP 0,0,de#.BkColor& '@rgb(255,255,255)
          rectangle xiconsize%,textrandsize%-(xiconsize%+xtextsize%+textrandsize%),(textrandsize%+de#.TextMaxYSize&)
          if de#.hFont&=0
            usefont "Segoe UI",-12,0,0,0,0
          más
            SetGrafikFont de#.hFont&
          endif
          textcolor de#.TextColor&,-1
          aktzeile%=oldvscrollpos%
          a%=aktzeile%
          b%=aktzeile%+((de#.TextMaxYSize&\yofs%)-1)
          for i%,a%,b%
            drawtext xiconsize%+textrandsize%,textrandsize%+(yofs%*(i%-a%)),lines$[i% ],0
          endfor 'i%
          EndPaint
        endif
      endif
    '}
    '{ 'Buttons
    más
      '{ 'normale Buttons
      if de#.HelpButton&=0
        a%=ab#.AnzButtons&
      más
        a%=ab#.AnzButtons&-1
      endif
      for i%,1,a%
        if @clicked(hB%[i%])
          ende%=1
          ret%=i%
          romper
        endif
      endfor 'i%
      '}
      '{ 'Help-Button
      if ende%=0
        if de#.HelpButton&
          if @clicked(hB%[de#.AnzButtons&])
            HelpInfo#.cbsize&=@sizeof(HelpInfo#)
            HelpInfo#.iContextType&=1 '1=~HELPINFO_WINDOW
            HelpInfo#.iCtrlId&=0
            HelpInfo#.hitemhandle&=hD%
            HelpInfo#.dwContextId&=0
            HelpInfo#.MousePosX&=@MouseAbsX()
            HelpInfo#.MousePosY&=@MouseAbsY()
            @sendmessage(%HWnd,83,0,HelpInfo#) '83=~WM_HELP
            if de#.pHelpProc&
              SetWindowPos hD%=@GetAbsWindowPosX1(hD%),@GetAbsWindowPosY1(hD%)-(@GetAbsWindowPosX2(hD%)-@GetAbsWindowPosX1(hD%)),(@GetAbsWindowPosY2(hD%)-@GetAbsWindowPosY1(hD%));1 'ActionBox en el Hintergrund befördern, como ellos eigentlich topmost es y una ggf. de el HelpProc benutztes Ventana überdecken sería
              @call(de#.pHelpProc&,de#.HelpProcParam&)
              SetWindowPos hD%=@GetAbsWindowPosX1(hD%),@GetAbsWindowPosY1(hD%)-(@GetAbsWindowPosX2(hD%)-@GetAbsWindowPosX1(hD%)),(@GetAbsWindowPosY2(hD%)-@GetAbsWindowPosY1(hD%));-1 'ActionBox otra vez topmost hacer
              if @iskey(27)
                mientras que @iskey(27)
                  sleep 25
                endwhile
                ClearKeyboardBuffer
              endif
            endif
          endif
        endif
      endif
      '}
    '}
    endif
  endwhile
  '}
  '{ 'aufräumen
  @setfocus(%HWnd)
  @destroywindow(hD%)
  DeleteObject hF%
  SetGrafikFont savedfont%
  SetDialogFont saveddialogfont%
  disponer HelpInfo#
  '{ 'Mensajes del usuario wiederherstellen
  if oldusermess16%=0
    usermessages -$10
  endif
  if oldusermess522%=0
    usermessages -522
  endif
  '}
  @set("FastMode",oldfastmode%)
  '}
  volver ret%
ENDPROC 'ActionBox

PROC ActionBoxReset 'setzt todos Werte uno ActionBox-Bereichsvariablen en Standard zurück (praktisch, si uno el Bereichsvariable weiterbenutzen möchte y vorher viele individuelle Einstellungen vorgenommen ha)
  parámetros de#
  @external("KERNEL32.DLL","RtlFillMemory",de#,@sizeof(de#),0)
ENDPROC 'ActionBoxReset

PROC XMessageBox 'simulado una Standard-MessageBox (gleiche Parámetro y Ausgabewerte) con el Vorteilen el ActionBox; simplemente "MessageBox" en el Code por "XMessageBox" sustituir (y esta Prozeduren sowie el globalen Struktur- y Variablendefinitionen tomar natürlich)
  'lo son fünf globale Variables, a Standard-Messageboxen doch una bisschen individuell gestalten a puede:
  '_XMessageBox_TextColor&: Textfarbe (con @RGB(...) a erzeugen)
  '_XMessageBox_BkColor&: Color de fondo (con @RGB(...) a erzeugen)
  '_XMessageBox_hFont&: Schriftart (con @Crear("FONT",...) a erzeugen)
  '_XMessageBox_pHelpProc&: Einsprungadresse a uno Help-Procedimiento, el aufgerufen se, si uno el Ayuda-Button aktiviert y ihn geklickt ha (es con @procaddr(...) a ermitteln; el PROC muss genau una 4-Byte-Parámetro haben)
  '_XMessageBox_HelpProcParam&: una benutzerdefinierter Parámetro, el el Help-Procedimiento transferencia se
  parámetros texto$,caption$,flags&
  declarar de#,ret&
  ret&=0
  dim de#,S_ACTIONBOX
  de#.Caption$=caption$
  de#.pText&=@addr(texto$)
  de#.TextXSize&=325
  de#.TextColor&=_XMessageBox_TextColor&
  de#.BkColor&=_XMessageBox_BkColor&
  if _XMessageBox_hFont&
    de#.hFont&=_XMessageBox_hFont&
  endif
  '{ 'Flags auswerten
  '{ 'Buttons
  if (flags& & 5)=5
    de#.AnzButtons&=2
    de#.ButtonTexts$="Wiederholen|Abbrechen"
  elseif (flags& & 4)=4
    de#.AnzButtons&=2
    de#.ButtonTexts$="Ja|Nein"
  elseif (flags& & 3)=3
    de#.AnzButtons&=3
    de#.ButtonTexts$="Ja|Nein|Abbrechen"
  elseif (flags& & 1)=1
    de#.AnzButtons&=2
    de#.ButtonTexts$="OK|Abbrechen"
  elseif (flags& & 2)=2
    de#.AnzButtons&=3
    de#.ButtonTexts$="Abbrechen|Wiederholen|Ignorieren"
  endif
  if (flags& & 768)=768
    de#.DefButton&=4
  elseif (flags& & 256)=256
    de#.DefButton&=2
  elseif (flags& & 512)=512
    de#.DefButton&=3
  más
    de#.DefButton&=1
  endif
  '}
  '{ 'Icon
  if (flags& & 96)=96
    de#.Icon&=-1
    de#.Sound&=15
  elseif (flags& & 64)=64
    de#.Icon&=1
  elseif (flags& & 48)=48
    de#.Icon&=3
  elseif (flags& & 16)=16
    de#.Icon&=4
  elseif (flags& & 32)=32
    de#.Icon&=2
  más
    de#.Icon&=-1
  endif
  '}
  '{ 'Ayuda-Button
  if (flags& & 16384)=16384
    de#.HelpButton&=1
    if _XMessageBox_pHelpProc&
      de#.pHelpProc&=_XMessageBox_pHelpProc&
      de#.HelpProcParam&=_XMessageBox_HelpProcParam&
    endif
  endif
  '}
  '}
  ret&=@ActionBox(de#)
  '{ 'Ergebnis mappen
  if (flags& & 5)=5
    'de#.ButtonTexts$="Wiederholen|Abbrechen"
    if ret&=1
      ret&=4
    elseif ret&=2
      ret&=2
    endif
  elseif (flags& & 4)=4
    'de#.ButtonTexts$="Ja|Nein"
    if ret&=1
      ret&=6
    elseif ret&=2
      ret&=7
    endif
  elseif (flags& & 3)=3
    'de#.ButtonTexts$="Ja|Nein|Abbrechen"
    if ret&=1
      ret&=6
    elseif ret&=2
      ret&=7
    elseif ret&=3
      ret&=2
    endif
   elseif (flags& & 1)=1
    'de#.ButtonTexts$="OK|Abbrechen"
    if ret&=1
      ret&=1
    elseif ret&=2
      ret&=2
    endif
  elseif (flags& & 2)=2
    'de#.ButtonTexts$="Abbrechen|Wiederholen|Ignorieren"
    if ret&=1
      ret&=3
    elseif ret&=2
      ret&=4
    elseif ret&=3
      ret&=5
    endif
  endif
 '}
  disponer de#
  volver ret&
ENDPROC 'XMessageBox

PROC pHelpProc 'se vom Ayuda-Button uno ActionBox aufgerufen
  'Hier kann desafortunadamente no weitere ActionBox benutzt voluntad! Das gäbe Variablenkonflikte. Wenn al necesariamente möchte, muss uno el ActionBox-Proc esta duplizieren (z.B. como PROC ActionBox2).
  parámetros hActionBox& 'benutzerdefinierter Parámetro (de#.HelpProcParam& en el Hauptprogramm), se hier no más benutzt - hilfreich z.B., si uno en verschiedene ActionBoxes con unterschiedlicher Ayuda reagieren möchte (ginge natürlich auch con separaten Procs)
  @MessageBox("Ayuda-Procedimiento aufgerufen. Vermutlich es una DLL defekt.\n\nKeine Panik, dies es sólo una Simulation.","Ayuda-Procedimiento",64)
ENDPROC 'pHelpProc

'{ 'Hilfsfunktionen:
PROC MessageBeep
  '{ 'mögliche Werte para flag
  ' Value 	Meaning
  '
  ' 0xFFFFFFFF 	A simple beep. If the sound card is not available, the sound is generated using the speaker.
  '
  ' MB_ICONASTERISK
  ' 0x00000040L
  ' 	See MB_ICONINFORMATION.
  '
  ' MB_ICONEXCLAMATION
  ' 0x00000030L
  ' 	See MB_ICONWARNING.
  '
  ' MB_ICONERROR
  ' 0x00000010L
  ' 	The sound specified as the Windows Critical Stop sound.
  '
  ' MB_ICONHAND
  ' 0x00000010L
  ' 	See MB_ICONERROR.
  '
  ' MB_ICONINFORMATION
  ' 0x00000040L
  ' 	The sound specified as the Windows Asterisk sound.
  '
  ' MB_ICONQUESTION
  ' 0x00000020L
  ' 	The sound specified as the Windows Question sound.
  '
  ' MB_ICONSTOP
  ' 0x00000010L
  ' 	See MB_ICONERROR.
  '
  ' MB_ICONWARNING
  ' 0x00000030L
  ' 	The sound specified as the Windows Exclamation sound.
  '
  ' MB_OK
  ' 0x00000000L
  ' 	The sound specified as the Windows Default Beep sound.
  '}
  parámetros flag&
  declarar pc&
  pc&=%pcount
  if pc&=0
    flag&=$FFFFFFFF
  endif
  @external("USER32.DLL","MessageBeep",flag&)
ENDPROC 'MessageBeep
PROC GetGrafikFont 'son auch en Systemschriftart una gültiges Handle zurück (y no 0); el kann später auch otra vez para Setzen benutzt voluntad
  parámetros HDC&
  declarar a&,pc&
  pc&=%PCount
  if pc&=0
    HDC&=%HDC
  endif
  a&=@external("GDI32.DLL","GetCurrentObject",HDC&,6) '6=~obj_font
  volver a&
ENDPROC 'GetGrafikFont
PROC SetGrafikFont
  parámetros hF%,HDC& 'hF% kann no 0 para Systemfont ser, aber natürlich una con GetSystemFont ermitteltes Handle. Mit dieser Función puede ser »usefont hF%« realisieren, qué Profano no kann (en usefont muss siempre hart el Schriftartspezifikation angegeben voluntad).
  declarar a&,pc&
  pc&=%PCount
  if pc&=1
    HDC&=%HDC
  endif
  a&=@external("GDI32.DLL","Seleccionar objeto",HDC&,hF%)
  volver a&
ENDPROC 'SetGrafikFont
PROC GetDrawStringLenX 'ermittelt el horizontale Ausdehnung de TrueType-Texto
  parámetros s$
  declarar b#,ret&
  dim b#,8
  if @external("GDI32.DLL","GetTextExtentPoint32A",%HDC,@addr(s$),@len(s$),b#)=1
    ret&=@long(b#,0)
  más
    ret&=0
  endif
  disponer b#
  volver ret&
ENDPROC 'GetDrawStringLen
PROC GetDrawStringLenY 'ermittelt el vertikale Ausdehnung de TrueType-Texto
  parámetros s$
  declarar b#,ret&
  dim b#,8
  if @external("GDI32.DLL","GetTextExtentPoint32A",%HDC,@addr(s$),@len(s$),b#)=1
    ret&=@long(b#,4)
  más
    ret&=0
  endif
  disponer b#
  volver ret&
ENDPROC 'GetDrawStringLen
PROC GetAbsWindowPosX1 'ermittelt el linke obere absolute Fensterposition
  parámetros hW&
  declarar b#,ret&
  dim b#,4*4
  @external("user32.dll","GetWindowRect",hW&,b#)
  ret&=@long(b#,0)
  disponer b#
  volver ret&
ENDPROC 'GetAbsWindowPosX1
PROC GetAbsWindowPosY1
  parámetros hW&
  declarar b#,ret&
  dim b#,4*4
  @external("user32.dll","GetWindowRect",hW&,b#)
  ret&=@long(b#,4)
  disponer b#
  volver ret&
ENDPROC 'GetAbsWindowPosY1
PROC GetAbsWindowPosX2
  'Lo se el absolute Position ermittelt! Für Breite/Höhe GetWindowSpan uso!
  parámetros hW&
  declarar b#,ret&
  dim b#,4*4
  @external("user32.dll","GetWindowRect",hW&,b#)
  ret&=@long(b#,8)
  disponer b#
  volver ret&
ENDPROC 'GetAbsWindowPosX2
PROC GetAbsWindowPosY2
  'Lo se el absolute Position ermittelt! Für Breite/Höhe GetWindowSpan uso!
  parámetros hW&
  declarar b#,ret&
  dim b#,4*4
  @external("user32.dll","GetWindowRect",hW&,b#)
  ret&=@long(b#,12)
  disponer b#
  volver ret&
ENDPROC 'GetAbsWindowPosY2
PROC GetWindowThinBorderWidth
  declarar erg&
  erg&=@external("user32.dll","GetSystemMetrics",7) '~SM_CXFIXEDFRAME=7
  volver erg&
ENDPROC 'GetWindowThinBorderWidth
PROC GetDialogFont 'son una Handle a aktuell gesetzten DialogFont zurück (0, si la Systemschriftart eingestellt es)
  declarar dummycontrol%,hF%
  dummycontrol%=@create("TEXT",%HWnd,"",0,0,0,0)
  hF%=@sendmessage(dummycontrol%,49,0,0) '49=~wm_getfont
  @destroywindow(dummycontrol%)
  volver hF%
ENDPROC 'GetDialogFont
PROC ClearKeyboardBuffer
  mientras que @inkey$()<>""
  endwhile
ENDPROC 'ClearKeyboardBuffer
PROC MouseAbsX 'absolute x-Mausposition
  Declarar Punto#,XX&
  Dim Punto#,8
  @external("user32.dll","GetCursorPos",Punto#)
  XX&=@long(Punto#,0)
  Disponer Punto#
  Volver XX&
ENDPROC 'MouseX
PROC MouseAbsY 'absolute y-Mausposition
  Declarar Punto#,YY&
  Dim Punto#,8
  @external("user32.dll","GetCursorPos",Punto#)
  YY&=@long(Punto#,4)
  Disponer Punto#
  Volver YY&
ENDPROC 'MouseY
'}


'Hauptprogramm:
cls
dim de#,S_ACTIONBOX
'{ 'einfache ActionBox con bastante wenig Programmieraufwand
de#.texto$="Dies es una bastante einfache Actionbox con sólo una Button.\n\nSie benötigt sólo una Definition, nämlich el anzuzeigenden Texto."
imprimir "Button: "+@str$(@actionbox(de#))
'}
'{ 'Actionbox con drei benutzerdefinierten Buttons
ActionBoxReset(de#) 'setzt todos Werte en Standard zurück
de#.texto$="Diese ActionBox ha drei Buttons, deren Texto frei gewählt voluntad kann.\n\nDer Rückgabewert es el geklickte Button oder 0 en el Falle de Esc. oder Ventana schließen (\qX\q rechts oben)."
de#.AnzButtons&=3
de#.ButtonTexts$="Button 1|Button 2|Button 3"
imprimir "Button: "+@str$(@actionbox(de#))
'}
'{ 'Actionbox con drei benutzerdefinierten Buttons, uno definierten Titelzeile y una definierten Icon
ActionBoxReset(de#)
de#.Caption$="propio Überschrift"
de#.texto$="Diese ActionBox ha erneut drei Buttons, diesmal una definierte Titelzeile y una definiertes Icon, welches vom Standard-Windowston begleitet se.\n\nDies es bewusst dasselbe Icon, en el el reciente ActionBoxes verwendet wurde. Aunque se diesmal el passende Sound dazu gespielt, porque el Icon explizit gesetzt wurde."
de#.AnzButtons&=3
de#.ButtonTexts$="Button 1|Button 2|Button 3"
de#.Icon&=1
imprimir "Button: "+@str$(@actionbox(de#))
'}
'{ 'otra vez con anderem Icon
ActionBoxReset(de#)
de#.Caption$="propio Überschrift"
de#.texto$="Dasselbe otra vez, sólo anderem Icon.\n\nEs son sechs su (en lugar de el de Profano bekannten vier):\n- .Icon&=1: \qi\q\n- .Icon&=2: \q?\q (sin Ton, Windows ha dafür no (mehr))\n- .Icon&=3: \q!\q\n- .Icon&=4: \qX\q\n- .Icon&=5: Security Shield\n- .Icon&=6: Programa-Icon\n\n\
           Lo son en dieser ActionBox ahora außerdem una vom ersten abweichenden Default-Button.\n\n\
           Man es de paso no a el Windows-Sounds gebunden, pero kann, si uno möchte, una völlig frei wählbaren Sound beim Öffnen el ActionBox abspielen (de uno beliebigen WAV-Expediente)."
de#.AnzButtons&=3
de#.ButtonTexts$="Button 1|Button 2|Button 3"
de#.DefButton&=2
de#.Icon&=3
imprimir "Button: "+@str$(@actionbox(de#))
'}
'{ 'con muy langem Texto, el gescrollt se
ActionBoxReset(de#)
de#.Caption$="ActionBox con scrollbarem Texto"
de#.texto$="Hier hay muy viel Texto. Anstatt el Box siempre größer a hacer, como Windows lo tun sería, hay hier una Maximalgröße, de el el Texto scrollbar gemacht se. Das Textfeld es standardmäßig máximo 500 Pixel hoch, el es aber natürlich ajustable.\n\nHier se \
           diesmal el neue Security Shield-Icon de Windows verwendet. Sehr brauchbar z.B. para el Meldung, dass una Contraseña-Abfrage fehlgeschlagen es.\n\n\
           Lo war a merken, dass el Berechnung el Zeilenumbrüche una fühlbare Tiempo gedauert ha (a el ActionBox adecuado wurde). Yo podría natürlich una DLL escribir, el el más rápido hecho, aber heute pensamiento Yo, dass reines XProfan sin Schnickschnack y weitere \
           Archivos auch veces otra vez bastante entspannend para todos wäre. ;-)\n\n\
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto.\n\nUngefähr a Hälfte como.\n\n \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto.\n\nUnten angekommen!"
de#.AnzButtons&=3
de#.ButtonTexts$="Button 1|Button 2|Button 3"
de#.DefButton&=2
de#.Icon&=5
imprimir "Button: "+@str$(@actionbox(de#))
'}
'{ 'ausgewählte Buttons voluntad sólo hacer clic, si uno el Texto a después de unten gescrollt ha
ActionBoxReset(de#)
de#.Caption$="ActionBox con scrollbarem Texto y primero deaktivierten Buttons"
de#.texto$="Diesmal es el 3. Button primero deaktiviert. Erst entonces, si la Benutzer el Texto bastante después de unten gescrollt (y hoffentlich gelesen) ha, se dieser Button aktiviert. So es z.B. una Lizenzvereinbarung antes Aktivierung des Installationsbuttons bastante ligeramente a realisieren.\n\n\
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto.\n\nUngefähr a Hälfte como.\n\n \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. \
           Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto. Ganz viel Texto.\n\nUnten angekommen. El Installation kann nun comenzó voluntad."
de#.AnzButtons&=3
de#.ButtonTexts$="Zurück|Abbruch|Installieren"
de#.DefButton&=2
de#.DeactivateButtonsTillLastLineSeen%=4 'el primero deaktivierten Buttons voluntad bitweise transferencia (Button 1=1, Button 2=2, Button 3=4, Button 4=8 usw.)
imprimir "Button: "+@str$(@actionbox(de#))
'}
'{ 'Fehlermeldungs-ActionBox con rotem Hintergrund y großer Schrift
ActionBoxReset(de#)
de#.Caption$="Fehlermeldungs-ActionBox con rotem Hintergrund y großer Schrift"
de#.texto$="FEHLER!\n\nDie Expediente Blablub.dll wurde No se ha encontrado. Ihre Auswahl:"
de#.AnzButtons&=3
de#.ButtonTexts$="Wiederholen|Übergehen|Abbrechen"
de#.DefButton&=3
de#.hFont&=@create("Font","Arial",20,0,1,0,0)
de#.TextColor&=@rgb(255,255,255)
de#.BkColor&=@rgb(200,0,0)
de#.Icon&=4
imprimir "Button: "+@str$(@actionbox(de#))
DeleteObject de#.hFont&
'}
'{ 'Fehlermeldungs-ActionBox con Ayuda-Button
ActionBoxReset(de#)
de#.Caption$="Fehlermeldungs-ActionBox con rotem Hintergrund y Ayuda-Button"
de#.texto$="Nun hay una zusätzlichen Ayuda-Button. Dies es una spezieller Button, el una benutzerdefinierte Función aufruft, en el uno alles anstellen kann, qué möchte, en weitere Hilfestellung a uno Meldung a leisten.\n\nBei el Standard-MessageBox se demgegenüber lediglich \
           una ~WM_HELP-Message gesendet, el uno por desgracia, no bearbeiten kann, während el MessageBox el Sistema blockiert.\n\n\nFEHLER!\n\nDie Expediente Blablub.dll wurde No se ha encontrado. Ihre Auswahl:"
de#.AnzButtons&=3 'Lo restos en 3 incluso definierten Buttons! Der Ayuda-Button se automáticamente hinzugefügt.
de#.HelpButton&=1 'Der Ayuda-Button se aktiviert.
de#.pHelpProc&=@ProcAddr("pHelpProc",1) 'El Einsprung-Adresse para el benutzerdefinierte Ayuda-Procedimiento se definiert.
de#.HelpProcParam&=0 'Kann irgendein incluso gewählter Parámetro ser.
de#.ButtonTexts$="Wiederholen|Übergehen|Abbrechen|HILF MIR!!!" 'Der Texto para el Ayuda-Button kann sin embargo como letzter Texto hinzugefügt voluntad. Anderenfalls se "Ayuda" benutzt.
de#.DefButton&=3
de#.TextColor&=@rgb(255,255,255)
de#.BkColor&=@rgb(200,0,0)
de#.Icon&=4
imprimir "Button: "+@str$(@actionbox(de#))
@ProcAddr("pHelpProc",-1) 'el ProcAddr otra vez liberación, porque uno tal vez todavía otro en el Programa uso möchte (je Parameterzahl hay sólo 5 freie Plätze)
'}
'{ 'XMessageBoxen
ActionBoxReset(de#)
de#.Caption$="XMessageBoxen"
de#.texto$="Um bisher bestehenden Code ligeramente a ActionBoxen adaptar a puede, hay el Procedimiento »XMessageBox«. Diese ruft intern una ActionBox en, aber así, dass uno dieselben drei Parámetro como en Standard-XProfan-MessageBox uso kann y außerdem dieselben Rückgabewerte erhält. \
           Man muss sólo »MessageBox« en el Code por »XMessageBox« sustituir. Mit el Füllen de Werten en el Struktur el ActionBox-Bereichsvariable muss uno se esta also no beschäftigen.\n\n\
           Diese Función es natürlich en el Standard-Buttontexte y -Rückgabewerte beschränkt. Aber uno kann con fünf globalen Variables immerhin el Texto- y Color de fondo sowie el Schriftart frei wählen. Auch el frei programmierbare Hilfeprozedur se unterstützt.\n\n\
           Wenn uno todos MessageBoxen en un Programa z.B. con un sanften lindgrün como en dieser Box unterlegt, hebt uno se ya una vez gewaltig de fast allen otro Programmen de.\n\n\
           Ayuda findet se a Beginn el Procedimiento como Kommentare.\n\n\
           En dieser ActionBox wurde de paso el normale Windows-Standard-Beep como Sound gewählt. Dieser Klang es una otro como el Standardton para el aktuell gewählte Icon."
de#.BkColor&=@rgb(200,220,100)
de#.Icon&=1
de#.Sound&=15
imprimir "Button: "+@str$(@actionbox(de#))
'}
'{ 'para Schluss ni Warnung (sólo una ActionBox a Tiempo)
ActionBoxReset(de#)
de#.Caption$="Warnung y Ende des Tutoriales"
de#.texto$="Zum Schluss ni Warnung:\n\nEs darf siempre sólo una ActionBox a Tiempo geben, sonst hay Variablenkonflikte. Es en el Normalfall überhaupt kein Problema. Aber en el Subclassproc debería uno el ActionBox vorsichtshalber wohl más bien no benutzen.\n\n\
           Nun aber viel Spaß con el neuen Möglichkeiten! Wer el ActionBox benutzen möchte, packt el Struktur- y Variablendeklarationen sowie el Prozeduren al besten en un INC-Expediente. Hier Yo alles hintereinander weg geschrieben, así una einziger \
           Sourcecode para el Veröffentlichung reicht.\n\nBeste Grüße, Jens-Arne\n\nAnregungen y Hinweise: jreumsc@web.de"
de#.BkColor&=@rgb(255,255,0)
de#.Icon&=3
imprimir "Button: "+@str$(@actionbox(de#))
'}
imprimir:imprimir "Zum Beenden Taste drücken oder Mausklick."
disponer de#
waitinput
end
 
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de
26.02.2023  ▲
 




Manfred
Barei
Super!!
 
XProfan X2
Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |
08.03.2023  ▲
 




Georg
Teles
 
Alle Sprachen
TC-Programming [...] 
XProfan 8.0 - 10.0 - X2 - X3 - X4

16.03.2023  ▲
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

2.470 Views

Untitledvor 0 min.
RudiB. vor 10 Tagen
E.T.23.02.2025
Gast.081524.07.2024
Matzbub03.02.2024
Más...

Themeninformationen

Dieses Thema ha 3 subscriber:

Georg Teles (1x)
Manfred Barei (1x)
Jens-Arne Reumschüssel (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie