Se houver alguma interface ou componente que não seja herdado das classes ADA_FUNCOES, ADA_COMPONENTES ou ADA_FORMULARIOS, será necessário adicionar o bloco de código abaixo em seu INIT para que a interface do Autocom3 mantenha o novo padrão visual da versão 6.0.

Blocos de Código para o PROJETO ERP

*- INIT: BOTOES EM GERAL (Se incluir o botão pelo ADA_COMPONENTES, não precisa colocar este bloco)

IF NOT EMPTY(this.caption)

this.caption = space(3)+ALLTRIM(this.caption)

ENDIF

this.Alignment = 0

this.ColorScheme = 24

this.ColorSource = 0

this.FontSize = 8

this.Height = 50

this.PicturePosition = 1

this.SpecialEffect = 2

this.Themes = .F.

IF this.Width<156

this.Width = 156

ENDIF

*- INIT: BOTAO DE PESQUISA (Se incluir o botão pelo ADA_COMPONENTES, não precisa colocar este bloco)

This.top = This.top – 6

This.Caption = ”

this.Alignment = 0

this.ColorScheme = 24

this.ColorSource = 0

this.FontSize = 8

this.Height = 40

this.PicturePosition = 1

this.SpecialEffect = 2

this.Themes = .F.

This.Width = 40

This.Picture = “4212_32x32.png”

*- INIT: GRID EM GERAL (Incluir sempre)

THIS.Highlight = .T.

THIS.HighlightBackColor = Grid_ItemBackColor

THIS.HighlightForeColor = Grid_ItemForeColor

THIS.SelectedItemBackColor = Grid_SelectedItemBackColor

THIS.SelectedItemForeColor = Grid_SelectedItemForeColor

THIS.HighlightRow = .T.

THIS.HighlightRowLineWidth = 1

THIS.HighlightStyle = 1

THIS.HeaderHeight = Grid_AlturaLinhaGrid

THIS.RowHeight = Grid_AlturaLinhaGrid

*- INIT: PADRAO PARA LISTBOX COM FONTE COURIER NEW (Se incluir o botão pelo ADA_COMPONENTES, não precisa colocar este bloco)

THIS.BorderColor = List_BorderColor

THIS.SelectedItemBackColor = List_SelectedItemBackColor

THIS.SelectedItemForeColor = List_SelectedItemForeColor

THIS.DisabledItemBackColor = List_DisabledItemBackColor

THIS.DisabledItemForeColor = List_DisabledItemForeColor

THIS.ItemBackcolor = List_ItemBackcolor

THIS.ItemForeColor = List_ItemForeColor

THIS.FontName = ‘Courier New’

THIS.ItemTips = .T.

THIS.FontSize = List_Fontsize

THIS.FontUnderline = List_FontUnderline

THIS.SpecialEffect = 1

THIS.Themes = .F.

*- INIT: PADRAO PARA CONTEINER SEM CLASSE NO SISTEMA (Se incluir o botão pelo ADA_COMPONENTES, não precisa colocar este bloco)

THIS.BACKCOLOR = RGB(255,255,255)

THIS.BORDERCOLOR = RGB(124,6,19)

THIS.BORDERWIDTH = 5

THIS.STYLE = 0

*- INIT: PADRAO PARA EDITBOX (Se incluir o botão pelo ADA_COMPONENTES, não precisa colocar este bloco)

THIS.BORDERCOLOR = RGB(100,100,100)

THIS.BORDERSTYLE = 1

THIS.SPECIALEFFECT = 1

THIS.FORECOLOR = RGB(124,6,19)

*- FIGURA PADRAO PARA PROCESSOS

c:\065-projetos\imagensnovas\figura-processo\27.gif

Blocos de Código para o PROJETO PDV

Configuração padrão do sistema

*- PADRAO DO SOFTWARE

PUBLIC List_SelectedItemBackColor

PUBLIC List_SelectedItemForeColor

PUBLIC List_DisabledItemBackColor

PUBLIC List_DisabledItemForeColor

PUBLIC List_ItemBackcolor

PUBLIC List_ItemForeColor

PUBLIC List_Menu_ItemBackcolor

PUBLIC List_Menu_ItemForeColor

PUBLIC List_Menu_SelectItemBackcolor

PUBLIC List_Menu_SelectItemForeColor

PUBLIC List_Menu_DisabledItemForeColor

PUBLIC List_Fontsize

PUBLIC List_FontUnderline

PUBLIC Grid_ItemBackColor

PUBLIC Grid_ItemForeColor

PUBLIC Grid_SelectedItemBackColor

PUBLIC Grid_SelectedItemForeColor

PUBLIC Grid_AlturaLinhaGrid

PUBLIC Botao_Backcolor

PUBLIC Botao_ForeColor

PUBLIC Botao_SelectedItemBackColor

PUBLIC Botao_SelectedItemForeColor

PUBLIC Botao_DisabledItemBackColor

PUBLIC Botao_DisabledItemForeColor

List_SelectedItemBackColor = RGB(124,6,19)

List_SelectedItemForeColor = RGB(255,255,0)

List_DisabledItemBackColor = RGB(230,230,230)

List_DisabledItemForeColor = RGB(128,128,128)

List_ItemBackcolor = RGB(255,255,255)

List_ItemForeColor = RGB(0,0,0)

List_Menu_ItemBackcolor = RGB(51,51,51)

List_Menu_ItemForeColor = RGB(200,200,200)

List_Menu_SelectItemBackcolor = RGB(124,6,19)

List_Menu_SelectItemForeColor = RGB(255,255,0)

List_Menu_DisabledItemForeColor = RGB(255,128,0)

List_Fontsize = 10

List_FontUnderline = .F.

Grid_ItemBackColor = RGB(255,255,255)

Grid_ItemForeColor = RGB(0,0,0)

Grid_SelectedItemBackColor = RGB(124,6,19)

Grid_SelectedItemForeColor = RGB(255,255,0)

Grid_AlturaLinhaGrid = 40

Botao_Backcolor = RGB(51,51,51)

Botao_ForeColor = RGB(200,200,200)

Botao_SelectedItemBackColor = RGB(124,6,19)

Botao_SelectedItemForeColor = RGB(255,255,0)

Botao_DisabledItemBackColor = RGB(230,230,230)

Botao_DisabledItemForeColor = RGB(128,128,128)

*- INIT: BOTOES EM GERAL (Se incluir o botão pela classe SIXCLASS, não precisa colocar este bloco)

IF NOT EMPTY(this.caption)

this.caption = space(3)+ALLTRIM(this.caption)

ENDIF

this.Alignment = 0

this.ColorScheme = 24

this.ColorSource = 0

this.FontBold = .F.

this.FontSize = 10

this.Height = 40

this.PicturePosition = 1

this.SpecialEffect = 2

this.Themes = .F.

IF this.Width<156

this.Width = 156

ENDIF

THIS.BackColor = Botao_Backcolor

THIS.ForeColor = Botao_ForeColor

THIS.DisabledBackColor = Botao_DisabledItemBackColor

THIS.DisabledForeColor = Botao_DisabledItemForeColor

*- GOFOCUS: BOTOES EM GERAL (Se incluir o botão pela classe SIXCLASS, não precisa colocar este bloco)

THIS.BackColor = Botao_SelectedItemBackColor

THIS.ForeColor = Botao_SelectedItemForeColor

*- LOSTFOCUS: BOTOES EM GERAL (Se incluir o botão pela classe SIXCLASS, não precisa colocar este bloco)

THIS.BackColor = Botao_Backcolor

THIS.ForeColor = Botao_ForeColor

*- INIT: LISTBOX NOS MENUS (Se incluir o botão pela classe SIXCLASS, não precisa colocar este bloco)

this.AutoHideScrollbar = 1

this.BorderColor = List_Menu_ItemBackcolor

this.DisabledBackColor = List_Menu_ItemBackcolor

this.DisabledItemBackColor = List_Menu_ItemBackcolor

this.DisabledItemForeColor = List_Menu_DisabledItemForeColor

this.ItemBackColor = List_Menu_ItemBackcolor

this.ItemForeColor = List_Menu_ItemForeColor

this.SelectedItemBackColor = List_Menu_SelectItemBackcolor

this.SelectedItemForeColor = List_Menu_SelectItemForeColor

this.SpecialEffect = 1

this.FontSize = 10

this.ItemTips = .F.

this.Themes = .F.

this.Top = 45

this.Left = 22

this.Width = 276

this.Height = 333

this.Picture = “listbox_espacamento.png”

*- INIT: LISTBOX NOS FORMULARIOS (Se incluir o botão pela classe SIXCLASS, não precisa colocar este bloco)

this.AutoHideScrollbar = 1

this.BorderColor = List_Menu_ItemBackcolor

this.DisabledBackColor = List_DisabledItemBackColor

this.DisabledItemBackColor = List_DisabledItemBackColor

this.DisabledItemForeColor = List_DisabledItemForeColor

this.ItemBackColor = List_ItemBackcolor

this.ItemForeColor = List_ItemForeColor

this.SelectedItemBackColor = List_SelectedItemBackColor

this.SelectedItemForeColor = List_SelectedItemForeColor

this.SpecialEffect = 1

this.FontSize = 10

this.ItemTips = .F.

this.Themes = .F.

this.Picture = “listbox_espacamento_branco.png”

*- INIT: GRID NOS FORMULARIOS (Incluir sempre)

THIS.Themes = .T.

THIS.Highlight = .T.

THIS.HighlightBackColor = Grid_SelectedItemBackColor

THIS.HighlightForeColor = Grid_SelectedItemForeColor

THIS.SelectedItemBackColor = Grid_SelectedItemBackColor

THIS.SelectedItemForeColor = Grid_SelectedItemForeColor

THIS.HighlightRow = .T.

THIS.HighlightRowLineWidth = 1

THIS.HighlightStyle = 1

THIS.HeaderHeight = Grid_AlturaLinhaGrid

THIS.RowHeight = Grid_AlturaLinhaGrid

*- VALUE EM TEXTBOX PARA ACEITAR O TECLADO TOUCH. (Se incluir o textbox pela classe SIXCLASS, não precisa colocar este bloco)

IF NOT (LASTKEY()=13 OR LASTKEY()=27)

RETURN(.T.)

ENDIF

IF EMPTY(THIS.Value)

RETURN(.T.)

ENDIF

Print Friendly, PDF & Email