Xailer & OZ Software

Senhores,
Quando Recortamos e Colamos um Componente de um "Group Box" para outro
as vezes acontece coisas não normais.
Att.
Marcelo Coelho Silva
Brasil.
PS: Abaixo trecho de um TArrayBrowse que após ser copiado de Group Box
para outro passou a ter um comportamento estranho:
(Frm_CrgEdi.xfm - Observem nas Ultimas linhas: ":OnPostEdit :=" ; que
automaticamente se multiplicaram )
WITH OBJECT ::oGroupBox16 := TGroupBox():New( ::oFolderPage21 )
:SetBounds( 16, 16, 554, 242 )
:cText := "Carga Perigosa"
:Create()
END
WITH OBJECT ::oBrwPrg := TArrayBrowse():New( ::oGroupBox16 )
:SetBounds( 12, 24, 534, 178 )
WITH OBJECT TArrayBrwColumn():New( ::oBrwPrg )
:cHeader := "ONU"
:nWidth := 57
:nEditType := beGET
:nEditLength := 4
:OnPostEdit := "BrwPrgColumn1PostEdit"
:Create()
END
WITH OBJECT TArrayBrwColumn():New( ::oBrwPrg )
:cHeader := "Nome"
:cTooltip := e"Nome apropriado para embarque do
produto.rnPara o Aeroviário o nome apropriado para transporte deve ser
em inglíªs.rnPara o rodoviário e ferroviário, o nome apropriado deve
ser em portuguíªs."
:nWidth := 146
:nEditType := beGET
:nEditLength := 150
:OnPostEdit := "BrwPrgColumn2PostEdit"
:Create()
END
WITH OBJECT TArrayBrwColumn():New( ::oBrwPrg )
:cHeader := "Risco"
:cTooltip := "Classe ou subclasse/divisão, e risco
subsidiário/risco secundário"
:nWidth := 104
:nEditType := beGET
:nEditLength := 40
:OnPostEdit := "BrwPrgColumn3PostEdit"
:Create()
END
WITH OBJECT TArrayBrwColumn():New( ::oBrwPrg )
:cHeader := "Embalagem"
:cTooltip := "Grupo de Embalagem"
:nWidth := 69
:nEditType := beGET
:nEditLength := 6
:OnPostEdit := "BrwPrgColumn4PostEdit"
:Create()
END
WITH OBJECT TArrayBrwColumn():New( ::oBrwPrg )
:cHeader := "Quant Produto"
:cTooltip := "Quantidade total por produto"
:nWidth := 82
:nEditType := beGET
:nEditLength := 20
:OnPostEdit := "BrwPrgColumn5PostEdit"
:Create()
END
WITH OBJECT TArrayBrwColumn():New( ::oBrwPrg )
:cHeader := "Quant Volume"
:cTooltip := "Quantidade e Tipo de volumes"
:nWidth := 116
:nEditType := beGET
:nEditLength := 60
:OnPostEdit := "BrwPrgColumn6PostEdit"
:Create()
END
WITH OBJECT TArrayBrwColumn():New( ::oBrwPrg )
:cHeader := "Fulgor"
:cTooltip := "Ponto de Fulgor"
:nWidth := 59
:nEditType := beGET
:nEditLength := 6
:OnPostEdit := "BrwPrgColumn7PostEdit"
:Create()
END
TBrwRecSel():Create( ::oBrwPrg )
:OnPastEof := "BrwPrgPastEof"
:OnPostEdit := "BrwPrgPostEdit"
:OnPostEdit := "BrwPrgColumn1PostEdit"
:OnPostEdit := "BrwPrgColumn2PostEdit"
:OnPostEdit := "BrwPrgColumn3PostEdit"
:OnPostEdit := "BrwPrgColumn4PostEdit"
:OnPostEdit := "BrwPrgColumn5PostEdit"
:OnPostEdit := "BrwPrgColumn6PostEdit"
:Create()
END