Posisi Cursor ada dikiri pada saat click cell Grid

[wildan70]

Help me,

input data pada grid menemui kesulitan, pada saat klik di cell yg mau diinput cursor nya tidak rapat kiri mengakibatkan data inputan nyebrang ke cell sebelah kanannya

Bagaimana caranya  pada saat click cell Grid posisi cursor rapat kiri ,help me


Terima kasih

[onytoo]

* event MouseUp object Text1 di Grid -> Column yg bersangkutan

this.SelStart=0
this.SelLength=LEN(ALLTRIM(this.Value))

[davidmustakim]

atau property 'format' untuk kolom ybs beri nilai 'K', eperimenlah mana yang enak tapi juga yakin lah bahwa kelakuan default dari komponen2 sudah lolos berbagai pertimbangan panjang para ahli yang mendesainnya dulu (emang nggak bersama saya sih) jadi, harusnya untuk kepentingan umum begitu adanya lah yang terbaik, pertimbangkan baik2 sebelum meng-oprek buang waktu

[wildan70]

@onytoo
@Davidmustaqim

Terima kasih banyak, sudah berhasil 

[wildan70]

Minta Tolong lagi,
Cell nya kan banyak & variatif jumlahnya
kalo diterapkan menggunakan BINDEVENT syntax nya bagaimana?
saya cobain salah melulu,   

thanks boss

FOR EACH oPage IN thisform.grid1.Columns
   BINDEVENT( oPage, "MouseUp",thisform, "SelStart=0")
ENDFOR

[onytoo]

* event thisform.init

FOR EACH oColumn IN thisform.grid1.Columns
   BINDEVENT(oColumn.Text1, "MouseUp",thisform, "CellMouseUp")
ENDFOR


* bikin method CellMouseUp di form
* tuliskan ini:

WITH thisform.grid1
  m.loText = .Columns(.ActiveColumn).Text1
  m.loText.SelStart=0
  m.loText.SelLength=LEN(ALLTRIM(m.loText.Value))
ENDWITH

NB:
---> LEN(ALLTRIM(m.loText.Value))
hanya berlaku untuk tipe character !!!
kalau mau tipe yang lain konversi dulu ya.

[davidmustakim]

sebenarnya beberapa hal bisa disederhanakan: misalnya untuk ke ujung text pada event gotfocus dari textbox yang dalam kolom beri saja koding: KEYBOARD '{END}' ato terserah kombinasi lain sesuai kebutuhan

[wildan70]

@ onytoo

Boss udah dicoba tapi keluar
"No PARAMETER statement is found"

WITH thisform.grid1
  m.loText = .Columns(.ActiveColumn).Text1
  m.loText.SelStart=0
***  m.loText.SelLength=LEN(ALLTRIM(m.loText.Value))
ENDWITH

[wildan70]

@ davidmustakim

thanks boss, ok juga pake KEYBOARD '{HOME}' di procedure CLICK nya

Naro BINDEVENT() nya gimana boss, sorry banyak nanya  , lagi belajar
..
..
udah bisa
di CellMouseUp  'onytoo ' diganti
KEYBOARD '{HOME}'


Thanks boss

[wildan70]

kalo menggunakan Selstart=0 , absolut ke posisi paling kiri

kalo menggunakan Keyboard {HOME} pointer kadang berpindah ke kiri (move left) walaupun .INPUTMASK & .FORMAT nya sudah disesuaikan

masalahnya Selstart=0 , saat BINDEVENT() salah melulu

*** event thisform.init

FOR EACH oColumn IN thisform.grid1.Columns
   BINDEVENT(oColumn.Text1, "MouseUp",thisform, "CellMouseUp")
ENDFOR


* method CellMouseUp di form
WITH thisform.grid1
  m.loText = .Columns(.ActiveColumn).Text1
  m.loText.SelStart=0
 ** m.loText.SelLength=LEN(ALLTRIM(m.loText.Value))
ENDWITH

[onytoo]

sorry saya lupa,
karena kita mem-bind event MouseUp, yang kita ketahui event MouseUp mempunyai parameter.

coba tambahin :

LPARAMETERS nButton, nShift, nXCoord, nYCoord

di baris paling atas method CellMouseUp

 

[armen]

sorry saya lupa,
karena kita mem-bind event MouseUp, yang kita ketahui event MouseUp mempunyai parameter.
.....<skip>

Manusiawi benaaaaaar....
Anda pria yang penuh tanggung jawab

[wildan70]

@ onytoo
Thanks boss, lupa juga ngasih tahu kalo masalahnya udah ketemu, thanks banget
 

Cara tersebut sudah diterapkan.