ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Afficher un icon dans une listBox avec une Array comme rowsource   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

lun. 08 janvier 2018, 15h12
ybenam
Algérie Algérie

atoutfox.public.association

Re: Afficher un icon dans une listBox avec une Array comme rowsource

Bonjour
ci après,et pour illustrer ce que j'ai dit par un code test (avec les différents cas de figure):
*!*Listbox rowSource anomaly demo
*!*  the listbox item picture property is only valid for rowSourceType = 0 (default), rowSourceType = 1 (values), rowSourcetYpe = 9 (menu)
*!*  this allows you to add icons or custom images (bmp, jpg, png ...) to the left of each item in the list.
*!*  for the others (rowsource = 2,3,4,5,6,7,8,10) even coded the image does not appear in the listbox.
*!*  No help (especially FoxHelp) speaks of this. This is worth mentioning in foxHelp...

PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
read events
RETURN

DEFINE CLASS form1 AS form
  Top = 78
  Left = 204
  Height = 420
  Width = 1163
  Caption = "ListBox control rowsource anomaly."
  Name = "Form1"

  ADD OBJECT list1 AS listbox WITH ;
    Height = 301, ;
    Left = 6, ;
    Top = 36, ;
    Width = 253, ;
    Name = "List1"

  ADD OBJECT list2 AS listbox WITH ;
    Height = 252, ;
    Left = 265, ;
    Top = 36, ;
    Width = 145, ;
    Name = "List2"

  ADD OBJECT list3 AS listbox WITH ;
    Height = 174, ;
    Left = 413, ;
    Top = 36, ;
    Width = 181, ;
    Name = "List3"

  ADD OBJECT edit1 AS editbox WITH ;
    Height = 380, ;
    Left = 868, ;
    Top = 24, ;
    Width = 288, ;
    Name = "Edit1"

  ADD OBJECT list4 AS listbox WITH ;
    Height = 241, ;
    Left = 598, ;
    Top = 36, ;
    Width = 264, ;
    Name = "List4"

  PROCEDURE Destroy
    clea events
  ENDPROC

  PROCEDURE list1.Init
    sele company from home(1)+"samples\data\customer" into cursor ycurs
    with this
    .rowsource="ycurs.company"
    .rowsourcetype=6   &&fields
    sele ycurs
    for i=1 to .listcount
    .picture[m.i]home(1)+"graphics\icons\misc\misc15.ico"
    endfor
    .refresh
    endwith
  ENDPROC

  PROCEDURE list2.Init
    local gnbre
    gnbre=adir(gabase0, HOME(4)+"icons\win95\*.ico")
    with this
    .rowSourcetype=0   &&1
    for i=1 to 10
    .additem(" item"+trans(i))
    .picture[i]=HOME(4)+"icons\win95\"+gabase0(i,1)
    endfor
    endwith
  ENDPROC

  PROCEDURE list3.Init
    local gnbre
    gnbre=adir(gabase1,HOME(4)+"Bitmaps\Tlbr_w95\*.bmp")
      WITH this
      local m.xx
      m.xx=""
        DEFINE POPUP ymenu RELATIVE
     DEFINE BAR 1  of ymenu PROMPT " item1" COLOR ,RGB(0,128,0,200,200,255)   PICTURE  HOME(4)+"Bitmaps\Tlbr_w95\" +gabase1(1,1)
     DEFINE BAR 2  of ymenu PROMPT " item2" COLOR ,RGB(0,128,0,100,200,255)   PICTURE  HOME(4)+"Bitmaps\Tlbr_w95\" +gabase1(2,1)
     DEFINE BAR 3  of ymenu PROMPT " item3" COLOR ,RGB(0,128,0,150,200,255)   PICTURE  HOME(4)+"Bitmaps\Tlbr_w95\" +gabase1(3,1)
     DEFINE BAR 4  of ymenu PROMPT " item4" COLOR ,RGB(0,128,0,50,200,255)   PICTURE  HOME(4)+"Bitmaps\Tlbr_w95\" +gabase1(4,1)
     DEFINE BAR 5  of ymenu PROMPT " item5" COLOR ,RGB(0,128,0,120,200,255)   PICTURE  HOME(4)+"Bitmaps\Tlbr_w95\" +gabase1(5,1)
     DEFINE BAR 6  of ymenu PROMPT " item6" COLOR ,RGB(0,128,0,190,200,255)   PICTURE  HOME(4)+"Bitmaps\Tlbr_w95\" +gabase1(6,1)
     DEFINE BAR 7 of ymenu PROMPT  " item7" COLOR ,RGB(0,128,0,30,200,255)   PICTURE  HOME(4)+"Bitmaps\Tlbr_w95\" +gabase1(7,1)
     DEFINE BAR 8  of ymenu PROMPT " item8" COLOR ,RGB(0,128,0,240,200,255)   PICTURE  HOME(4)+"Bitmaps\Tlbr_w95\" +gabase1(8,1)
     DEFINE BAR 9  of ymenu PROMPT " item9" COLOR ,RGB(0,128,0,200,205,255)   PICTURE  HOME(4)+"Bitmaps\Tlbr_w95\" +gabase1(9,1)
     DEFINE BAR 10 of ymenu PROMPT " item10"COLOR ,RGB(0,128,0,100,1200,255)   PICTURE  HOME(4)+"Bitmaps\Tlbr_w95\" +gabase1(10,1)
         .RowSourceType=9  &&Pop-up
        .RowSource ='ymenu'
      ENDWITH
  ENDPROC

  PROCEDURE edit1.Init
    with this
    .fontsize=8
    text to .value noshow
     Listbox  RowSourceType 0-10

    0  None. (Default)
    1 Value.
    2 Table alias.
    3 SQL statement.
    4 Query (.qprfile.
    5  Array.
    6  Fields.
    7  Files.
    8  Field structure of a table.
    9  Pop-up. Included for backward compatibility.
    10  Collection object.

    the listbox item picture property is only valid for rowSourceType = 0 (default), rowSourceType = 1 (values), rowSourcetYpe = 9 (menu)
    this allows you to add icons or custom images (bmp, jpg, png ...) to the left of each item in the list.
    for the others (rowsource = 2,3,4,5,6,7,8,10) even coded the image does not appear in the listbox.
    No help (especially FoxHelp) speaks of thisThis is worth mentioning in foxHelp...

    endtext
    .fontbold=.t.
    .readonly=.t.
    .scrollbars=0
    .borderstyle=0
    endwith
  ENDPROC

  PROCEDURE list4.Init
    local gnbre
    gnbre=adir(gabase2, HOME(4)+"icons\win95\*.ico")
    with this
    .rowSourcetype=5
    .rowSource="gabase2"
    .requery()
    *disp memo like gabase*
    for i=1 to .listcount
    .picture[i]=HOME(4)+"icons\win95\"+gabase2(i,1)
    endfor
    endwith
  ENDPROC

ENDDEFINE
*
*-- EndDefine: form1



Journal

FoxInCloud (Th. Nivelet) pense que ce message est la bonne réponse ou qu'il est utile
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000018791
19 140 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2018.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0