KGF.dll - demandes ou suggestions de modifications ou ajouts

left 0,500:top 0,300
dim tic$,img%,dossier$
dossier$="D:\Programmation\Projet Panoramic\Gfx"
img%=9
label change
picture 1
top 1,10
left 1,10
width 1,39
height 1,39
file_load 1,dossier$+"Pot9.bmp"
on_mouse_down 1,change
end
change:

If scancode=2 Then img%=img%+2
If scancode=1 Then img%=img%-2

if img%=<1 then img%=1
if img%=>19 then img%=19

select img%
 case 1:file_load 1,dossier$+"Pot1.bmp"
 case 3:file_load 1,dossier$+"Pot3.bmp"
 case 5:file_load 1,dossier$+"Pot5.bmp"
 case 7:file_load 1,dossier$+"Pot7.bmp"
 case 9:file_load 1,dossier$+"Pot9.bmp"
 case 11:file_load 1,dossier$+"Pot11.bmp"
 case 13:file_load 1,dossier$+"Pot13.bmp"
 case 15:file_load 1,dossier$+"Pot15.bmp"
 case 17:file_load 1,dossier$+"Pot17.bmp"
 case 19:file_load 1,dossier$+"Pot19.bmp"
end_select
return

' test_DialButton.bas

label close0, Event, ChangeResultat

dim DB1%, DB2%, res%, f$
dim pos1%, pos2%

dll_on "KGF.dll"

caption 0,"Test de DialogButton"
on_close 0,close0

on_User_Event Event

alpha 1 : top 1,4 : left 1,10 : caption 1,"Résultat dans:"
combo 2 : top 2,2 : left 2,90 : width 2,200
  item_add 2,"../.."
  item_add 2,"USER_EVENT"
  item_add 2,"varable de type integer"
  item_add 2,"EDIT par handle"
  item_add 2,"SCROLL_BAR par handle"
  item_add 2,"PROGRESS_BAR par handle"
  item_add 2,"TRACK_BAR par handle"
  item_add 2,"caption(0)  (pour DEBUG)"
res% = dll_call2("SelectComboBoxItem",handle(2),1)
on_click 2,ChangeResultat
 
edit 11 : top 11,200 : left 11,10
scroll_bar 12 : top 12,230 : left 12,10 : min 12,0 : max 12,100
progress_bar 13 : top 13,260 : left 13,10 : min 13,0 : max 13,100
track_bar 14 : top 14,290 : left 14,10 : min 14,0 : max 14,100
edit 15 : top 15,320 : left 15,10


'  res% = dll_call3("SetDialButtonResultMode",DB1%,3,object_internal(13))
'  end


edit 21 : top 21,200 : left 21,230
scroll_bar 22 : top 22,230 : left 22,230 : min 22,0 : max 22,100
progress_bar 23 : top 23,260 : left 23,230 : min 23,0 : max 23,100
track_bar 24 : top 24,290 : left 24,230 : min 24,0 : max 24,100
edit 25 : top 25,320 : left 25,230


open_dialog 99 : filter 99,"Images (BMP,JPG,PNG,GIF)|*.bmp;*.jpg;*.png;*.gif"

f$ = file_name$(99)
if f$="_" then f$ = ""
' f$ = "Pascal10000_2.bmp"

res% = dll_call6("SetDialButtonDefaults",1,255,255,0,1,0)
res% = dll_call6("SetDialButtonDefaults",2,255,255,0,1,0)
res% = dll_call6("SetDialButtonDefaults",3,255,0,0,1,1)
' res% = dll_call6("SetDialButtonDefaults",4,255,255,255,1,10) : ' cette ligne avec marqueur
res% = dll_call6("SetDialButtonDefaults",4,255,255,255,1,0) : ' cette ligne sans marqueur

DB1% = dll_call2("CreateDialButton",handle(0),1)
' res% = dll_call4("SetDialButtonColor",DB1%,255,255,0)
' res% = dll_call6("SetDialButtonIndicator",DB1%,5,0,255,0,0)
res% = dll_call4("LocateDialButton",DB1%,30,30,100)
 
DB2% = dll_call2("CreateDialButton",handle(0),2)
res% = dll_call2("LoadDialButtonImage",DB2%,adr(f$))
' res% = dll_call6("SetDialButtonIndicator",DB2%,5,10,255,255,255)
res% = dll_call4("LocateDialButton",DB2%,230,30,150)

end

close0:
  res% = dll_call1("DeleteDialButton",DB1%)
  res% = dll_call1("DeleteDialButton",DB2%)
  return

Event:
caption 0,hex$(USER_EVENT_WPARAM)
  if bin_and(USER_EVENT_WPARAM,hex("FFFF0000"))<>hex("07010000") then return
  select bin_and(USER_EVENT_WPARAM,hex("0000FFFF"))
    case 1
      text 15,"UserEvent 1 = "+str$(USER_EVENT_LPARAM)
    case 2
      text 25,"UserEvent 2 = "+str$(USER_EVENT_LPARAM)
  end_select
  return

ChangeResultat:
' pour type 1:
select item_index(2)-1
  case 0
  case 1
    res% = dll_call3("SetDialButtonResultMode",DB1%,1,0)          : ' USER_EVENT
  case 2
    res% = dll_call3("SetDialButtonResultMode",DB1%,2,adr(pos1%)) : ' variable
  case 3
    res% = dll_call3("SetDialButtonResultMode",DB1%,3,handle(11)) : ' EDIT
  case 4
    res% = dll_call3("SetDialButtonResultMode",DB1%,4,handle(12)) : ' SCROLL_BAR
  case 5
    res% = dll_call3("SetDialButtonResultMode",DB1%,5,handle(13)) : ' PROGRESS_BAR
  case 6
    res% = dll_call3("SetDialButtonResultMode",DB1%,6,handle(14)) : ' TRACK_BAR
  case 7
    res% = dll_call3("SetDialButtonResultMode",DB1%,7,0) : ' mode DEBUG
end_select 
' pour type 2:
select item_index(2)-1
  case 0
  case 1
    res% = dll_call3("SetDialButtonResultMode",DB2%,1,0)          : ' USER_EVENT
  case 2
    res% = dll_call3("SetDialButtonResultMode",DB2%,2,adr(pos2%)) : ' variable
  case 3
    res% = dll_call3("SetDialButtonResultMode",DB2%,3,handle(21)) : ' EDIT
  case 4
    res% = dll_call3("SetDialButtonResultMode",DB2%,4,handle(22)) : ' SCROLL_BAR
  case 5
    res% = dll_call3("SetDialButtonResultMode",DB2%,5,handle(23)) : ' PROGRESS_BAR
  case 6
    res% = dll_call3("SetDialButtonResultMode",DB2%,6,handle(24)) : ' TRACK_BAR
  case 7
  res% = dll_call3("SetDialButtonResultMode",DB2%,7,0) : ' mode DEBUG
end_select
return

res% = dll_call4("LocateDialButton",DB%,x%,y%,w%,h%)

res% = dll_call4("ConfigureDialButton",DB%,max%,min%,position%)

dim res%, neg%
neg% = 0 - 100
res% = dll_call4("ConfigureDialButton",DB2%,100,neg%,0)

dim res%, neg%
neg% = 0 - 100
res% = dll_call4("ConfigureDialButton",DB2%,neg%,100,0)

res% = dll_call4("LocateDialButton",DB%,x%,y%,d%)

res% = dll_call4('FindMultipleStringsInString",adr(Instring$),adr(Separator$),handle(MultipleCombo%),handle(ResultCombo%))

' test_FindMultipleStringsInString.bas

label chercher

dim InString$, Separator$
dim res%


alpha 1 : caption 1,"Chaîne à traiter:" : top 1,10 : left 1,10
edit 2 : top 2,30 : left 2,10 : width 2,500
  text 2,"Esa minúscula muestra de los innumerables soles del universo ni siquiera es representativa de los mundos que existen."


alpha 11 : caption 11,"Séparateur:" : top 11,60 : left 11,10
edit 12 : top 12,80 : left 12,10 : width 12,200
  text 12,";locut;"

alpha 21 : caption 21,"Critères:" : top 21,110 : left 21,10
combo 22 : top 22,130 : left 22,10 : width 22,500
  item_add 22,"ni si quiera sé qué es lo que celebramos . ;locut; je ne sais même pas ce que l ' on est censé fêter ? '  ; locut;"
  item_add 22,"ni siquiera advirtieron a los matones anti - occupy central que habían suscitado el conflicto . ;locut; les malfrats anti - occupy central , qui avaient provoqué l ' affrontement n ' avaient , eux , même pas reçu d ' avertissement . ; locut;"

button 31 : top 31,160 : left 31,10 : caption 31,"Chercher" : on_click 31,chercher

alpha 41 : caption 41,"Résultats:" : top 41,190 : left 41,10
combo 42 : top 42,210 : left 42,10 : width 42,500

dll_on "KGF.dll"

end

   Mirando al cielo desde cualquiera de los hemisferios, se pueden ver sin telescopio unas 4.500 estrellas. Esa minúscula muestra de los innumerables soles del universo ni siquiera es representativa de los mundos que existen. Las estrellas más abundantes, tres de cada cuatro en la Vía Láctea, son las enanas rojas y tienen un brillo tan tenue que no pueden contemplarse a simple vista. Ni siquiera la más cercana de ellas, Proxima Centauri, a solo 4,5 años luz, es visible en el cielo nocturno. Sin embargo, es en torno a esos astros donde se empieza a plantear que, por probabilidad, será más fácil encontrar mundos habitables. Precisamente en esa estrella vecina, los astrónomos acaban de encontrar un nuevo planeta que puede ofrecer una idea sobre la naturaleza de los refugios de la vida en el cosmos, bastante distintos de nuestro planeta o de lo que cabría imaginar si la Tierra es nuestra referencia.

en el año de gracia ;locut; en l ' an de grâce ; locut;
en el año del trigésimo aniversario de galaksija , todos los colegios en serbia están equipados con computadoras para los estudiantes , la tasa de penetración de internet era cercana al 65 por ciento en 2012 , y los visitantes a menudo se sorprenden cuando ven que hay wifi disponible casi en todas partes en todas las ciudades y pueblos del país . ;locut; à l ' heure du trentième anniversaire du galaksija , chaque école en serbie est équipée d ' ordinateurs pour les élèves , le taux de pénétration d ' internet était proche de 65 % en 2012 , et les visiteurs sont souvent surpris de la disponibilité immédiate du wifi dans chacune des villes du pays . ; locut;
en el año fiscal 1985 había 82 ,000 productores domésticos de lácteos , que explotaban alrededor de 2 . 11 millones de animales . ;locut; il y avait près de 82 . 000 foyers de producteurs laitiers en 1985 , élevant autour de 2 ,11 millions d ' animaux . ; locut;
en el año reciente , hay más y más críticas que dicen que el departamento de noticias de tvb ha sido armonizado ( que ha adoptado la autocensura ) . ;locut; ces dernières années , de plus de plus de voix s ' élèvent pour dénoncer "l ' harmonisation" du service des informations de la tvb ( adoption de l ' autocensure ) . ; locut;
en el año , son muchas las malas decisiones que se han tomado , como por ejemplo la expulsión del embajador británico y las ineficientes leyes aprobadas por nuestros distinguidos miembros del parlamento . ;locut; de très mauvaises décisions ont été prises cette année comme l ' expulsion de l ' ambassadeur de grande - bretagne , les mauvaises lois adoptées par nos honorables parlementaires . ; locut;
en el antiguo egipto trabajaban esclavos . ;locut; dans l ' égypte ancienne , travaillaient des esclaves . ; locut;
en el anuncio de tallarines maggi ( nestlé ) , una madre le explica a su hijo : maggi es el mejor porque tiene proteína esencial y calcio que ayuda a construir músculos y huesos fuertes . '  ;locut; dans la publicité pour les nouilles maggi ( nestlé ) , une mère explique à son enfant : maggi est le meilleur produit , car il contient des des protéines et du calcium , essentiel pour la croissance des os et les muscles '  ; locut;
en el anuncio , que se puede ver en youtube subtitulado en inglés , se ve cómo un indio punjabí le habla a su nieta suman de su amigo de la niñez yousuf , de la tienda de dulces que los padres de este último poseían en el viejo lahore , y de cómo los amigos se separaron por la partición de india de 1947 . ;locut; sur le petit film publicitaire , disponible sur youtube avec des sous - titres en français , un indien du pendjab raconte à sa petite - fille suman des souvenirs de son enfance heureuse à lahore , au pakistan . il se souvient de son ami d ' enfance yousuf et de la boutique de bonbons que son père avait dans le vieux lahore , et lui raconte comment lui et son ami ont été séparés à cause de la partition de 1947 . ; locut;
en el apogeo de su poder , el imperio romano abarcaba desde gran bretaña a la península arábica , el norte de África y europa oriental . ;locut; proportionnellement au pouvoir qui était le sien , l ' empire romain s ' étendait de la bretagne à la péninsule arabique , à l ' afrique du nord et à l ' europe de l ' est . ; locut;
en el área cerrada por reparaciones de la central station estaban reunidos docenas de reporteros ; uno de ellos caminaba cerca de mi y hablaba por teléfono , oí ¿"presidente" ? ¿"todos murieron" ? etc . pensé que era una broma ( diciendo algo entre la multitud para iniciar un chisme ) . ;locut; dans la zone fermée pour rénovation de la gare centrale , des dizaines de journalistes étaient rassemblés . l ' un d ' eux cheminait à côté de moi en parlant au téléphone . j ' ai entendu président , '  tous morts ? '  etc . j ' ai cru que c ' était une blague ( lancer quelque chose dans la foule pour démarrer des ragots ) . ; locut;
en el área de asakusa , que es hogar del denkikan , la primera sala dedicada al cine de japón , construida a principios del 1900 y un lugar simbólico para la industria del cine japonés , fueron forzadas a cerrar el 21 de octubre de 2012 las tres últimas salas de cine tradicionales asakusa - meigaza , asakusa - chuei gekijo y asakusa - shin gekijo . ;locut; dans la zone d ' asakusa , où se trouve le denkikan , premier cinéma du japon , construit au début des années 1900 et lieu symbolique pour l ' industrie cinématographique japonaise , les trois derniers cinémas traditionnels asakusa - meigaza , asakusa - chuei gekijo et asakusa - shin gekijo furent contraints de fermer le 21 octobre 2012 . ; locut;
en el área de calidad del aire se informan algunos progresos . la consolidación de lo avanzado necesitaría la puesta en marcha de una legislación adaptada . ;locut; quelques progrès peuvent être constatés en matière de qualité de l ' air , la consolidation de l ' acquis demanderait la mise en oeuvre d ' une législation adaptée . trois protocoles supplémentaires du clrtap ( convention sur la pollution transfrontalière de l ' air ) ont été ratifiés . ; locut;

chaine$ = "..."

combo 2 : top 2,30 : left 2,10 : width 2,500
  item_add 2,"Mirando al cielo desde cualquiera de los hemisferios, se pueden ver sin telescopio unas 4.500 estrellas."
  item_add 2,"Esa minúscula muestra de los innumerables soles del universo ni siquiera es representativa de los mundos que existen."
  item_add 2,"Las estrellas más abundantes, tres de cada cuatro en la Vía Láctea, son las enanas rojas y tienen un brillo tan tenue que no pueden contemplarse a simple vista."
  item_add 2,"Ni siquiera la más cercana de ellas, Proxima Centauri, a solo 4,5 años luz, es visible en el cielo nocturno."
  item_add 2,"Sin embargo, es en torno a esos astros donde se empieza a plantear que, por probabilidad, será más fácil encontrar mundos habitables."
  item_add 2,"Precisamente en esa estrella vecina, los astrónomos acaban de encontrar un nuevo planeta que puede ofrecer una idea sobre la naturaleza de los refugios de la vida en el cosmos, bastante distintos de nuestro planeta o de lo que cabría imaginar si la Tierra es nuestra referencia."

res% = dll_call4("FindMultipleStringsInString",handle(InputCombo%),adr(separator$),handle(MultipleCombo%),handle(ResultCombo%))