LojaDev Theme

O LojaDev Theme é o padrão visual do LojaDev PRO em forma de componentes do Delphi: botão, rodapé de ações, cabeçalho, cartão, campos, abas, grade, Kanban, barra de status e a interface de abas da tela principal. A partir da versão 7.5 do ERP, toda tela nova nasce com eles, e as telas antigas vão sendo migradas uma a uma. Este manual diz como usá-los do jeito que o sistema espera. A lista de componentes e de cada propriedade está logo abaixo dele, e é extraída do próprio código a cada atualização.

A regra que vale para tudo: o que a IDE mostra é o que roda

O componente existe para uma coisa: o form aberto no Delphi tem de ser a foto da tela em execução. Cor, posição, tamanho, ordem dos botões, fonte, colunas da grade: tudo fica no .dfm, escolhido no Object Inspector. Nada visual é montado no FormCreate.

• Não posicione componente em código. Se um botão está no lugar errado, arraste-o no designer.
• Não troque cor, fonte ou tamanho no FormCreate, no FormShow nem no OnResize. Se a tela parece exigir isso, a propriedade certa existe no componente: procure-a antes.
• Não chame rotinas de arrumação por conta própria. O rodapé se arruma sozinho; a grade aplica o próprio modelo; o cabeçalho remede a própria altura.
• Não mude o que o padrão já decidiu (estilo das abas, cor do realce, tom do botão principal). O padrão é o default do componente, de propósito.

O que sobra para o código é o que o .dfm não guarda: preencher listas, ligar dados, reagir a eventos.

A tela típica, de cima para baixo

1. TCabecalhoBS alinhado em alTop, com Titulo e Subtitulo. Em diálogo pequeno, a TFaixaTituloBS.
2. TPainelBS com Cartao = True e Align = alClient: é o cartão branco onde vivem os campos e a grade. O fundo do form fica com a cor de página do tema.
3. Dentro do cartão, os campos: cada TDBEdit ou TEdit solto dentro de uma TCaixaCampo, que desenha a moldura arredondada e o foco. Lista suspensa é TCampoListaDB; data é TCampoDataDB.
4. A grade é uma TGradeBS, com Modelo = gmLista na consulta e gmCadastro na digitação de itens. As colunas são editadas no editor de colunas da IDE e cada uma é uma TColunaBS.
5. TRodapeBS alinhado em alBottom, com os TBotaoBS dentro. Cada botão declara a Funcao e o Caption no formato F2 - Gravar; a cor sai da função.

Abas: uma TAbasBS logo acima de um TPageControl, com a propriedade PageControl apontando para ele. Os rótulos vêm das páginas; a troca é automática.

A barra de título das janelas

A barra de título e a borda de todas as janelas do programa saem no grafite do tema (BS_GRAFITE, o mesmo do menu lateral), e a janela que não está em uso fica com o título apagado. Isso se liga uma vez só, no início do programa, com LigarMoldura (no ERP a chamada está em Service\uLigacoesTema.pas). Nenhuma tela precisa fazer nada, e nenhuma deve pintar a própria barra.

• No Windows 11 a cor é exata. No Windows 10 o próprio Windows não aceita cor na barra, e ela sai escura, no tom dele. Nas versões anteriores fica a barra do sistema.
• O designer não mostra a cor: no Delphi, a barra do form é desenhada pela própria IDE.
• Tela aberta numa aba da tela principal não tem barra de título, e fica como está.
• O menu lateral do ERP usa a mesma constante: mudar a cor de um muda a do outro.

Botões e rodapé

• Escolha a Funcao pelo que o botão faz. É dela que saem a cor e o tom; a tabela do tema já decide "azul começa, verde grava, amarelo altera, vermelho desfaz, cinza é acessório".
• Não escolha Cor à mão salvo caso raro; se a função certa não parece existir, quase sempre ela existe e é fnNeutro.
• O Sair é o botão com Funcao = fnSair. Ele fica na ponta direita sozinho; não o arraste para lá.
• Grupo junta botões do mesmo assunto num bloco; entre grupos o rodapé abre um respiro maior. Você só numera.
• Align escolhe a ponta do rodapé quando a função não basta (um Gravar ao lado do Sair, por exemplo). Não é o Align comum do Delphi: os valores são pela função, esquerda e direita, e o rodapé continua enfileirando. Em tempo de projeto todos os botões aparecem na fila, mesmo os que a tela esconde em execução.
• Em execução o rodapé recolhe no "... Mais" o que não cabe na largura. Não estreite o rodapé para "testar": desenhe no tamanho de projeto e deixe a largura real por conta dele.
• Esconder um botão por permissão é Visible := False, em código; o rodapé fecha o vão sozinho. Para saber se uma tecla de atalho vale, consulte Disponivel, não Visible: o botão recolhido no "... Mais" continua disponível.

Campos

• A TCaixaCampo adota o campo solto dentro dela. Depois disso o pai do campo é a caixa: quem precisa mover o campo em código move a caixa.
• TCampoLista e TCampoListaDB: ItemIndex = -1 é "selecione", de propósito; campo que decide a regra de outros não pode vir escolhido. A regra da tela vai no OnTrocar; FocoSeguinte manda o cursor para o campo seguinte após a escolha.
• Lista FIXA (ambiente, versão, UF) se escreve em Itens no Object Inspector, e no TCampoListaDB o valor que a coluna guarda vai em Chaves, na mesma ordem (a coluna guarda 0/1 e a tela mostra Produção/Homologação). Lista que vem do banco continua sendo enchida em código. Coluna NULA pinta o item de chave vazia ('' em Chaves), quando a lista tem um: base antiga guarda NULL onde a nova guarda '', e as duas querem dizer a mesma coisa.
• TCampoData e TCampoDataDB: o operador digita a data; o calendário é atalho. Campo vazio não grava data nenhuma: confira Vazio antes de ler Data.
• Fonte: use Font.Height em pixels (-13 é o corpo padrão), nunca Font.Size em pontos. O designer é ciente de DPI e o ERP não; só a altura em pixels sai igual nos dois.

Grade

• Modelo acerta fontes, cores e opções de uma vez. Não aplique modelo por código numa TGradeBS: ela já o faz no Loaded.
• Coluna que o operador não pode digitar: ReadOnly = True na coluna (não no campo do dataset, que bloquearia também a atribuição em código).
• Checkbox, lista com chave gravada (KeyList), quebra de linha e lookup de outro dataset são propriedades da TColunaBS, no editor de colunas.
• A largura escolhida no designer sobrevive ao Open do dataset. Não a recalcule em código.
• Título em dois níveis: escreva Grupo|Coluna no título (Custo|Nota, Custo|Final). As colunas vizinhas com o mesmo grupo ganham uma faixa em cima, com o grupo centrado sobre elas, e cada uma fica só com o próprio nome embaixo; coluna sem a barra ocupa a altura toda. Serve para a grade de muitas colunas de valor, em que a palavra repetida no título travava a largura da coluna.
• Coluna de campo de lookup (fkLookup) escolhe pelo teclado, como a grade do EhLib: a primeira tecla abre a lista e procura, Alt+Seta ou F4 abrem e fecham, as setas andam na lista, Enter grava e Esc fecha sem gravar (sem fechar a janela). Nada a ligar: vale para toda coluna de lookup de grade que aceita digitação. Para a lista mostrar mais de um campo (código, descrição, estoque, preço), preencha ListaCampos na coluna com os campos do dataset do lookup, separados por ponto e vírgula, e ListaLargura se ela precisar ser mais larga que a célula; o campo do LookupResultField tem de estar entre eles, e é nele que a digitação procura. A largura de cada campo na lista é o DisplayWidth dele no dataset.
• O OnDrawColumnCell da tela, se existir, roda por cima da pintura do tema: guarde nele só o que é seu (um selo, um ícone) e apague o resto.

Telas de configuração: a pilha e a linha de opção

• A TPilhaBS é a lateral de uma tela com muitos assuntos (a Central de Configurações do ERP é a primeira). Solte-a em alLeft, preencha Itens no editor da coleção (cada assunto tem Titulo, Dica, Cor e Detalhe) e aponte PageControl para o TPageControl do conteúdo: cada assunto abre a página de mesmo índice e as abas nativas somem em execução. No designer as abas ficam, para você trocar de página enquanto desenha. Sem PageControl, troque o conteúdo no OnTrocar. As setas do teclado andam entre os assuntos sozinhas.
• A Cor do assunto o identifica na tela inteira: uma por assunto, sem repetir. Detalhe é um texto curto à direita (uma contagem); deixe vazio se o título for longo.
• A TOpcaoBS é uma configuração. Solte a linha no painel em alTop com AlignWithMargins, escreva Titulo e Dica e solte DENTRO dela o controle que muda o valor. Caixa de marcar (TCheckBox, TDBCheckBox) vai à esquerda do título, e clicar no texto marca a caixa; campo (TCaixaCampo, TCampoListaDB, TCampoDataDB) fica embaixo do título, na largura da linha, com a dica embaixo dele.
• A altura da linha sai do texto. Não acerte Height à mão nem em código: mude o texto ou a largura e ela acompanha.
• Campo curto (a série, um número, a UF) não precisa ocupar a linha inteira: LarguraCampo dá a largura dele. 0 é a linha inteira, o certo para pasta e texto longo.
• A Dica diz o EFEITO da opção para quem usa ("a NFC-e sai off-line e é transmitida depois"), nunca o nome da coluna no banco.
• Selo só quando o alcance da opção é diferente do da página ("Este computador" numa página que vale para a empresa). Termos são palavras a mais para a busca (a sigla, o nome antigo) e não aparecem na tela.
• Para desligar uma opção, desligue a LINHA (Enabled da TOpcaoBS): ela apaga o texto e desliga o controle de dentro junto. Desligar só o controle não avisa a linha, e o título só apaga quando ela se pintar de novo.
• A busca da tela pergunta a cada linha com Casa('texto'), que ignora maiúscula e acento, e acende a que achou com Destacada := True.

Ao migrar uma tela antiga

• Troque o painel de baixo por um TRodapeBS e cada TSpeedButton/TButton por um TBotaoBS com a Funcao certa; apague a rotina que posicionava os botões.
• Troque TPanel de cartão por TPainelBS com Cartao = True; cabeçalho por TCabecalhoBS.
• Embrulhe cada TDBEdit numa TCaixaCampo; troque TDBComboBox por TCampoListaDB e o TDBEdit de data por TCampoDataDB.
• Troque a TDBGrid (ou a do EhLib) por TGradeBS; leve o ReadOnly das colunas junto.
• Tire do FormCreate tudo o que era ajuste visual. O teste de pronto: abra o form na IDE e compare com a tela em execução; têm de ser iguais, menos o dado.

Instalar e atualizar

O instalador (InstaladorLojaDevTheme.exe, distribuído pelo Discord da LojaDev) grava o fonte do tema em C:\Componentes\LojaDevTema, compila o tema no seu próprio Delphi, acrescenta a Lib ao Library Path e registra o pacote na IDE. Rode-o com o Delphi fechado. Ele precisa do EhLib instalado na IDE, que o ERP já exige.

Quando sair versão nova do componente, rode o instalador de novo, com o Delphi fechado, antes de abrir os forms do ERP: um form com propriedade que o pacote antigo não conhece morre em "Property X does not exist", e clicar em Ignorar e salvar apaga o componente do formulário. O "Leia" de cada versão do ERP diz quando a atualização é obrigatória.

Se o instalador disser que a compilação falhou, o arquivo C:\Componentes\LojaDevTema\compila_23.0.log diz o motivo; mande-o para o suporte.