Why I must in Dialog use FROM 0,0 to 400,500 PIXEL where in "last button" I have row 200 /to see last button/
my source
static function EditWplaty( oLBX2, lAppend )
local oDLG2
local lSave := .f.
local NR_REK := RecNo()
local oFont
local nr_ord:=indexord()
// DEFAULT lAppend := .f.
if lAppend
zeruj('k')
dbsetorder(1)
GOTO BOTTOM
kNR:=mNR
kROK:=ROK_M
kMSC:=MSC_M
else
podstaw('k')
endif
DEFINE FONT oFont NAME "ARIAL CE" SIZE 0, -12
DEFINE DIALOG oDLG2 FROM 0,0 to 400,500 PIXEL ;
TITLE If( lAppend, "Nowy", "Modyfikacja" ) FONT oFont
k1:=10
k2:=30
k3:=80
k4:=100
k5:=150
k6:=170
@ 10, k1 SAY "D01:" OF oDLG2 PIXEL
@ 10, k2 GET kD01 picture '!' OF oDLG2 PIXEL
@ 25, k1 SAY "D02:" OF oDLG2 PIXEL
@ 25, k2 GET kD02 picture '!' OF oDLG2 PIXEL
@ 40, k1 SAY "D03:" OF oDLG2 PIXEL
@ 40, k2 GET kD03 picture '!' OF oDLG2 PIXEL
@ 55, k1 SAY "D04:" OF oDLG2 PIXEL
@ 55, k2 GET kD04 picture '!' OF oDLG2 PIXEL
@ 70, k1 SAY "D05:" OF oDLG2 PIXEL
@ 70, k2 GET kD05 picture '!' OF oDLG2 PIXEL
@ 85, k1 SAY "D06:" OF oDLG2 PIXEL
@ 85, k2 GET kD06 picture '!' OF oDLG2 PIXEL
@100, k1 SAY "D07:" OF oDLG2 PIXEL
@100, k2 GET kD07 picture '!' OF oDLG2 PIXEL
@115, k1 SAY "D08:" OF oDLG2 PIXEL
@115, k2 GET kD08 picture '!' OF oDLG2 PIXEL
@130, k1 SAY "D09:" OF oDLG2 PIXEL
@130, k2 GET kD09 picture '!' OF oDLG2 PIXEL
@145, k1 SAY "D10:" OF oDLG2 PIXEL
@145, k2 GET kD10 picture '!' OF oDLG2 PIXEL
@ 10, k3 SAY "D11:" OF oDLG2 PIXEL
@ 10, k4 GET kD11 picture '!' OF oDLG2 PIXEL
@ 25, k3 SAY "D12:" OF oDLG2 PIXEL
@ 25, k4 GET kD12 picture '!' OF oDLG2 PIXEL
@ 40, k3 SAY "D13:" OF oDLG2 PIXEL
@ 40, k4 GET kD13 picture '!' OF oDLG2 PIXEL
@ 55, k3 SAY "D14:" OF oDLG2 PIXEL
@ 55, k4 GET kD14 picture '!' OF oDLG2 PIXEL
@ 70, k3 SAY "D15:" OF oDLG2 PIXEL
@ 70, k4 GET kD15 picture '!' OF oDLG2 PIXEL
@ 85, k3 SAY "D16:" OF oDLG2 PIXEL
@ 85, k4 GET kD16 picture '!' OF oDLG2 PIXEL
@100, k3 SAY "D17:" OF oDLG2 PIXEL
@100, k4 GET kD17 picture '!' OF oDLG2 PIXEL
@115, k3 SAY "D18:" OF oDLG2 PIXEL
@115, k4 GET kD18 picture '!' OF oDLG2 PIXEL
@130, k3 SAY "D19:" OF oDLG2 PIXEL
@130, k4 GET kD19 picture '!' OF oDLG2 PIXEL
@145, k3 SAY "D20:" OF oDLG2 PIXEL
@145, k4 GET kD20 picture '!' OF oDLG2 PIXEL
@ 10, k5 SAY "D21:" OF oDLG2 PIXEL
@ 10, k6 GET kD21 picture '!' OF oDLG2 PIXEL
@ 25, k5 SAY "D22:" OF oDLG2 PIXEL
@ 25, k6 GET kD22 picture '!' OF oDLG2 PIXEL
@ 40, k5 SAY "D23:" OF oDLG2 PIXEL
@ 40, k6 GET kD23 picture '!' OF oDLG2 PIXEL
@ 55, k5 SAY "D24:" OF oDLG2 PIXEL
@ 55, k6 GET kD24 picture '!' OF oDLG2 PIXEL
@ 70, k5 SAY "D25:" OF oDLG2 PIXEL
@ 70, k6 GET kD25 picture '!' OF oDLG2 PIXEL
@ 85, k5 SAY "D26:" OF oDLG2 PIXEL
@ 85, k6 GET kD26 picture '!' OF oDLG2 PIXEL
@100, k5 SAY "D27:" OF oDLG2 PIXEL
@100, k6 GET kD27 picture '!' OF oDLG2 PIXEL
@115, k5 SAY "D28:" OF oDLG2 PIXEL
@115, k6 GET kD28 picture '!' OF oDLG2 PIXEL
@130, k5 SAY "D29:" OF oDLG2 PIXEL
@130, k6 GET kD29 picture '!' OF oDLG2 PIXEL
@145, k5 SAY "D30:" OF oDLG2 PIXEL
@145, k6 GET kD30 picture '!' OF oDLG2 PIXEL
@160, k5 SAY "D31:" OF oDLG2 PIXEL
@160, k6 GET kD31 picture '!' OF oDLG2 PIXEL
@200, 60 BUTTON "&Rezygnacja" OF oDLG2 SIZE 50, 12 PIXEL ACTION oDLG2:End()
@200, 120 BUTTON "&Zapis" OF oDLG2 SIZE 50, 12 PIXEL ACTION ( lSave := .T., oDLG2:End() )
ACTIVATE DIALOG oDLG2 CENTER
if lSave //.and. !empty( cNazwisko )
if lAppend
APPEND BLANK
else
if !rlock()
msginfo('Baza KARTA zajęta')
break
endif
endif
zapisz('k')
else
DBGOTO(nr_rek)
endif
dbunlock()
dbsetorder(nr_ord)
oLBX2:Refresh()
return nil
regards
kajot
