[Gambas-user] Coding problem / bug ?

[Steven Lobbezoo]

Sorry, forgot the form, here it is 


Le samedi 12 mai 2007 13:52, Benoit Minisini a écrit :
> On samedi 12 mai 2007, Steven Lobbezoo wrote:
> > 1.9.49 downloaded for 2 days from the trunk
> > Steven
>
> Can you send me more code? The full code of the module/form/class should be
> sufficient.
>
> Regards,
-------------- next part --------------
A non-text attachment was scrubbed...
Name: FormPrintSelect.class
Type: application/x-java
Size: 6578 bytes
Desc: not available
URL: <http://lists.gambas-basic.org/pipermail/user/attachments/20070512/c8e05ddb/attachment.bin>
-------------- next part --------------
# Gambas Form File 1.0

{ Form Form
  MoveScaled(0,0,54,32)
  'Move(0,0,378,224)
  Background = &HFFFFBF&
  Text = ("")
  Border = Window.None
  { Panel2 Panel
    MoveScaled(0,0,54,32)
    'Move(0,0,378,224)
    Background = &HC0C000&
    Border = Border.Raised
    { Panel1 Panel
      MoveScaled(0.4286,0.4286,53,31)
      'Move(3,3,371,217)
      Background = &HFFFFBF&
      Foreground = &H000080&
      Border = Border.Etched
      { fbon CheckBox
        MoveScaled(2,5,2,3)
        'Move(14,35,14,21)
        Font = Font["8"]
        Text = ("")
      }
      { fbq SpinBox
        MoveScaled(6,5,5,3)
        'Move(42,35,35,21)
        Font = Font["8"]
        MinValue = 1
      }
      { TextLabel1 TextLabel
        MoveScaled(13,5,9,3)
        'Move(91,35,63,21)
        Font = Font["8"]
        Text = ("Fiche bien")
      }
      { vvq SpinBox
        MoveScaled(6,9,5,3)
        'Move(42,63,35,21)
        Font = Font["8"]
        MinValue = 1
      }
      { TextLabel2 TextLabel
        MoveScaled(13,9,12,3)
        'Move(91,63,84,21)
        Font = Font["8"]
        Text = ("Vitrine Vertical")
      }
      { vvon CheckBox
        MoveScaled(2,9,2,3)
        'Move(14,63,14,21)
        Font = Font["8"]
        Text = ("CheckBox1")
      }
      { vhq SpinBox
        MoveScaled(6,13,5,3)
        'Move(42,91,35,21)
        Font = Font["8"]
        MinValue = 1
      }
      { TextLabel3 TextLabel
        MoveScaled(13,13,13,3)
        'Move(91,91,91,21)
        Font = Font["8"]
        Text = ("Vitrine Horizontal")
      }
      { vhon CheckBox
        MoveScaled(2,13,2,3)
        'Move(14,91,14,21)
        Font = Font["8"]
        Text = ("CheckBox1")
      }
      { psq SpinBox
        MoveScaled(6,17,5,3)
        'Move(42,119,35,21)
        Font = Font["8"]
        MinValue = 1
      }
      { TextLabel4 TextLabel
        MoveScaled(13,17,17,3)
        'Move(91,119,119,21)
        Font = Font["8"]
        Text = ("Photos supplémentaires")
      }
      { pson CheckBox
        MoveScaled(2,17,2,3)
        'Move(14,119,14,21)
        Font = Font["8"]
        Text = ("CheckBox1")
      }
      { fiq SpinBox
        MoveScaled(6,21,5,3)
        'Move(42,147,35,21)
        Font = Font["8"]
        MinValue = 1
      }
      { TextLabel5 TextLabel
        MoveScaled(13,21,11,3)
        'Move(91,147,77,21)
        Font = Font["8"]
        Text = ("Fiche interne")
      }
      { fion CheckBox
        MoveScaled(2,21,2,3)
        'Move(14,147,14,21)
        Font = Font["8"]
        Text = ("CheckBox1")
      }
      { impron CheckBox
        MoveScaled(37,5,2,3)
        'Move(259,35,14,21)
        Text = ("CheckBox5")
        Value = CheckBox.True
      }
      { TextLabel6 TextLabel
        MoveScaled(41,5,7,3)
        'Move(287,35,49,21)
        Font = Font["8"]
        Text = ("Imprimer")
      }
      { TextLabel7 TextLabel
        MoveScaled(41,9,6,3)
        'Move(287,63,42,21)
        Font = Font["8"]
        Text = ("Ouvrir")
      }
      { TextLabel8 TextLabel
        MoveScaled(41,13,10,3)
        'Move(287,91,70,21)
        Font = Font["8"]
        Text = ("PDF -> E-mail")
      }
      { ouvron CheckBox
        MoveScaled(37,9,2,3)
        'Move(259,63,14,21)
        Text = ("CheckBox5")
      }
      { mailon CheckBox
        MoveScaled(37,13,2,3)
        'Move(259,91,14,21)
        Text = ("CheckBox5")
      }
      { Button6 Button
        MoveScaled(40,26,11,3)
        'Move(280,182,77,21)
        Background = &HDEBA28&
        Foreground = &HFFFFBF&
        ToolTip = ("Imprimer / Voir\nune fiche maison")
        Text = ("Imprimer")
      }
      { Close Button
        MoveScaled(25,26,13,3)
        'Move(175,182,91,21)
        Background = &H800000&
        Foreground = &HFFFFBF&
        ToolTip = ("Appuyer pour \nfermer cette\nfenêtre")
        Text = ("Arreter")
      }
      { Separator1 Separator
        MoveScaled(1,3,51,2)
        'Move(7,21,357,14)
      }
      { TextLabel9 TextLabel
        MoveScaled(1,1,51,2)
        'Move(7,7,357,14)
        Font = Font["Bold,10"]
        Text = ("Selection de vos imprimées")
        Alignment = Align.Center
      }
      { saveon CheckBox
        MoveScaled(37,17,2,3)
        'Move(259,119,14,21)
        Text = ("CheckBox5")
      }
      { TextLabel10 TextLabel
        MoveScaled(41,17,9,3)
        'Move(287,119,63,21)
        Font = Font["8"]
        Text = ("Saufgarder")
      }
      { status TextLabel
        MoveScaled(2,26,21,3)
        'Move(14,182,147,21)
        Foreground = &H000080&
        Text = ("Choisi vos imprimées")
        Alignment = Align.BottomLeft
        Border = Border.Etched
      }
    }
  }
}