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

Liste déroulante avec les polices disponibles   



L'auteur

laurent.dellacherie2
Belgique Belgique
Membre Simple
# 0000000485
enregistré le 18/07/2005
37 ans
Laurent
Fiche personnelle


Note des membres
pas de note

Contributions > 20 - Trucs et Astuces

Liste déroulante avec les polices disponibles
# 0000000430
ajouté le 26/03/2007 18:19:23 et modifié le 26/03/2007
consulté 4593 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Description

Voici un petit exemple de liste déroulante avec toutes les polices, que possède le système.

J'utilise une petite astuce permettant de créer mon popup dynamiquement (Utile pour les débutants).

Code source :
PUBLIC PoForm1,PaFonts
PoForm1=CREATEOBJECT("form1")
PoForm1.Show
RETURN

DEFINE CLASS form1 AS form
    Top = 0
    Left = 0
    Height = 400
    Width = 400
    Caption = "Test Font"
    Name = "Form1"

    PROCEDURE Init
       PRIVATE i, lnFonts, lcExec

    DEFINE POPUP PaFonts

      this.AddObject("Cmb_Font","ComboBox")
      WITH this.Cmb_Font
        .visible = .T.
    .RowSourceType = 9
        .RowSource = "PaFonts"
    .width = 300
    .Left = 60
    .Top = 30
    .Style = 2
    .Sorted = .T.
    .DisplayCount = 30
      ENDWITH

      AFONT(laFontArray)        && Array contains font names
      lnFonts = ALEN(laFontArray)    && Return the number of font
      FOR i = 1 TO lnFonts
        && Create a line into ComboBox
        lcExec = [DEFINE BAR ]+STR(i)+;
         [OF PaFonts PROMPT "] + ALLTRIM(laFontArray(i)) +;
         [" FONT "] + laFontArray(i) +[",10 style "B"]
     &lcExec
      ENDFOR

    ENDPROC
ENDDEFINE
Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

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