realbasic-nug.it
[Top] [All Lists]

Edit field a lettura facilitiata

To: REALbasic NUG Italian <realbasic-nug dot it at lists dot realsoftware dot com>
Subject: Edit field a lettura facilitiata
From: Lucio Liberi <lucioing at tin dot it>
Date: Wed, 13 Feb 2008 20:00:01 +0100
Delivered-to: listarchive at realsoftware dot com
Delivered-to: realbasic-nug dot it at lists dot realsoftware dot com
Ciao a tutti...
Sappiamo come realizzare una Listbox con le righe a lettura facilitata... tipo, bianche e azzurrine... Mi chiedevo se ci fosse la possibilità di fare la stessa cosa con un EditField... Dentro c'è una relazione di calcolo che vorrei visualizzare come fosse stampata su carta a lettura facilitata.
Qualche idea?

Ciao e grazie.


PS per quelli che si chiedessero cosa sia una list box a lettura facilitata...
basta mettere il seguente codice dentro

CellBackgroundPaint   della ListBox in questione...

  Dim i, TotRow, res As Integer

  TotRow=me.ListCount




  for i=0 to TotRow
    res=row mod 2
    if res=1 then
      g.ForeColor=RGB(230,240,250)
      g.FillRect(0,0,g.Width,g.Height)
    end if
  next

<Prev in Thread] Current Thread [Next in Thread>