PureBasic Forums - English

Code: Select all

Text$="PUREBASIC ROCKS"
If OpenWindow(0, 0, 0, 200, 200, "Testing", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  CreateImage(0,100,50)
  If StartDrawing(ImageOutput(0))
    tw=TextWidth(Text$):th=TextHeight(Text$)
    StopDrawing()
  EndIf
  FreeImage(0):tw+6:th+4
  CreateImage(1,tw,th)
  If StartDrawing(ImageOutput(1))
    Box(0,0,tw,th,$CCCCCC)
    DrawingMode(#PB_2DDrawing_Transparent)
    DrawText(3,3,Text$,$000000)
    DrawText(2,2,Text$,$FFFFFF)
    StopDrawing()
  EndIf
  ButtonImageGadget(0,10,10,tw,th,ImageID(1))
  Repeat : Event = WaitWindowEvent() : Until Event = #PB_Event_CloseWindow
EndIf

Code: Select all

; ===================================================
; 	Simplified form using the features "MAP" 
;                                                                                                   GeBonet
; ===================================================
; If you have ....
; 
    NewMap Test.s() ; 
    Dim T$(5)              ; Array with somme name or other thiing.... Here name. 
    ;                            
    ;                               Buld of the Map and array with the key... 
    ; 
    T$(1)="Fred"      :Test(T$(1)) = "1 - Any sentence that contains all the desired item"
    T$(2)="Timo"     :Test(T$(2)) = "2- Is two or 2"
    T$(3)="Albert"    :Test(T$(3)) = "3-	And this is the additional writing"
    T$(4)="Joseph" :Test(T$(4)) = "4- c'est une série B"
    T$(5)="Dorothe":Test(T$(5)) = "5- It's not a joke but not serious"
    T$(6)="Roberto":Test(T$(6)) = "6- Eu acho que o pais de você e o Brasil ?"
    ; 
    ; A Simple access of this is ... 
    ; 
    FindMapElement(Test.s(),InputRequester("research","Give the key name : ", Clef$))
    MessageRequester("Your answers is / Votre réponse est : ",Test.s(),#PB_MessageRequester_Ok  )
    ;
    End