XProfan

English

Georg
Bernhardt

Hi,

with sharing the program EigeneEingaben can I Yes beautiful in the List view with the Keys hither and thither jumping. some Split fit but not in that Window and if I end the Fensters be and there yet some Split come realisiere I with the
Compile Mark Separation

b&=Long(bereich1#,20)       Breite
@Setfocus(LV_Handle&)
nbr% = (b&*2)/10
n% = 0

While N% <nbr%

    @SendKey(LV_Handle&,39)
    N% = N% + 1

en

goes, is one right langsames Put. gives it a Possibility, the faster To manage?

Georg

XProfan 10

01/31/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

Hi,

Yes, that here ought to you help:
Compile Mark Separation

Sendmessage(listviewhandle&,$1013,spalte&,0)

Rückt The angegebene slot complete in that Sichtfeld.

01/31/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Bernhardt

Hello

habs attempts goes by me but not and having already gejubelt

Georg

XProfan 10

01/31/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hello Frank
it would To beautiful been (ultimately has my Adressor 16 Split) - but it works not

greeting
horst

02/01/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

Hi,

pity, The Message shows The slot only complete on, as they already partly visible was...
then even with another engineering, this time as Prozedure:
Compile Mark Separation

JumpToColumn listview&,spalte&    Listviewhandle, Spaltenindex

Proc JumpToColumn

    Parameters pslistview&,psspalte&
    Declare psrect#
    Dim psrect#,16
    Clear psrect#
    Long psrect#,4=psspalte&
    Sendmessage(pslistview&,$1038,psspalte&,psrect#)
    Sendmessage(pslistview&,$1014,Long(psrect#,0),-1)
    Dispose psrect#