pmiroslav 19.02.2011 13:48
Predmet:Text Align u ListBox-u

Dali je moguće mjenjati poravnavanje teksta (Text Align) u ListBox-u.
Imam jednu kolonu u kojoj je cijena, a sve kolone poravnate su u lijevo, a ova bi trebala biti u desno.

zxz 19.02.2011 15:22
Predmet:Re: Text Align u ListBox-u

U gueryu u novu kolonu polja fields napisi CijenaTXT:str(Imepoljacijene)

pmiroslav 19.02.2011 17:17
Predmet:Re: Text Align u ListBox-u

Nažalost to ne pomaže opet je poravnato lijevo i to bez oznake valute.

10
1000
0
Da bih imao oznaku valute iza broja napisao sam u Query
TextCijena:Format([Cijena];"Currency")
tekst poravnat u lijevu stranu.

zxz 19.02.2011 22:28
Predmet:Re: Text Align u ListBox-u

Uf izvini ja sam mislio da hoces poravnati lijevo. Nije mi jasno kako si dobio lijevo ako je currenci, naime broj i novac sam poravnava desno.
Zbog toga ja nisam ni razmisljao dok si napisao da je novac mislio sam da hoces ulijevo misleci da je trenutno desno.
Ovu proceduru stavi u neki modul:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function PTXT(ByVal Str As String, P As String) As String
  2. Dim str1 As String * 50 ' ako ti je siroko onda ovdje stavi napr. 20 ali ne manje od broja karaktera
  3. str1 = Str
  4.  
  5. If P = "L" Then
  6. LSet str1 = Str
  7. PTXT = str1
  8. ElseIf P = "D" Then
  9. RSet str1 = Str
  10. PTXT = str1
  11. End If
  12. End Function
u Queriy u novom polju fields napisi:
I: PTXT([imepolja];"d")
a ucolumn width sirinu ovog polja 4,5

pmiroslav 20.02.2011 10:51
Predmet:Re: Text Align u ListBox-u

Nažalost ni to ne pomaže. Tekst se prikaže centiran na sredini i opet nema oznake valute.
Prilozi:
ListBox.rar (Velicina datoteke:14.40 KB)

Kiro 20.02.2011 12:29
Predmet:Re: Text Align u ListBox-u

http://www.lebans.com/justicombo.htm

Primjer:
Prilozi:
ListBox_a.zip (Velicina datoteke:28.12 KB)

pmiroslav 20.02.2011 17:06
Predmet:Re: Text Align u ListBox-u

Ovo je vrlo dobro iako malo bugovito.
Prijetio sam da kada se promjeni veličina fonta, poravnanje se poremerti, a i dosta je teÅ¡ko podesiti Å¡irinu kolone u kojoj je tekst koji se poravnava.

zxz 20.02.2011 19:27
Predmet:Re: Text Align u ListBox-u

Zakaci primjer.

pmiroslav 21.02.2011 10:03
Predmet:Re: Text Align u ListBox-u

Evo primjer.
Znači, ne mogu pravilno podesiti Å¡irinu kolone u kojoj je cijena. Ovdje je puno Å¡ira od potrebnog da bi se vidio tekst.
Prilozi:
ListBox_2.rar (Velicina datoteke:63.05 KB)

zxz 21.02.2011 11:52
Predmet:Re: Text Align u ListBox-u

U rowsource Lista upisi:
SELECT tblArtikli.IDgrupe, tblArtikli.Sifra, tblArtikli.Proizvod, PTXT([Cijena],"D") & " kn" AS C FROM tblArtikli;

a u proceduri:
Dim str1 As String * 27 '

ako ovo Mijenjas mora biti djeljivo sa 3.
Nisi ni tamo u listu dobro napravio.
Zbir svih kolona u listu mora biti jednak duzini lista.