Clipper On Line • Ver Tópico - Alinhar LAbel a Direita do Form

Alinhar LAbel a Direita do Form

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Alinhar LAbel a Direita do Form

Mensagempor asimoes » 16 Out 2013 20:04

Eu faço a criação e manutenção das minhas janelas em minigui na mão, então houve duas necessidades:
centralizar e alinhar a direita do form.

  
   DEFINE LABEL lbl_001A
         ROW 230
         COL 0
         VALUE cLabel1
         HEIGHT 20
         FONTCOLOR RED
         FONTNAME "Courier New"
         FONTSIZE 10
         AUTOSIZE .T.
      END LABEL

   DEFINE LABEL lbl_002A
         ROW 230
         COL 0
         VALUE cLabel2
         HEIGHT 20
         FONTCOLOR RED
         FONTNAME "Courier New"
         FONTSIZE 10
         AUTOSIZE .T.
      END LABEL
     
      fForm.lbl_001A.Col:=(fForm.Width-fForm.lbl_001A.Width) / 2 // Para centralizar.
      fForm.lbl_002A.Col:=(fForm.Width-fForm.lbl_002A.Width) -25 //Para alinhar a direita.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Alinhar LAbel a Direita do Form

Mensagempor Pablo César » 17 Out 2013 08:32

Já que você usa uma fonte do tipo mono-espaçada como a Courier New, acho mais fácil você alinhar-la através das funções PadC e PadR
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Alinhar LAbel a Direita do Form

Mensagempor asimoes » 17 Out 2013 09:17

Pablo,

A intenção é alinha o label no form (centralizar ou a direita), padc e padr não vão funcionar.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Alinhar LAbel a Direita do Form

Mensagempor Pablo César » 17 Out 2013 10:07

Sim Alexandre, vai funcionar sim, se os labels tiverem o tamanhos certos e fixados desde o começo onde eles ocupam dentro do form, vão funcionar. Experimenta ! Porque a fonte Courier tem o mesmo espaçamento em todos os caracteres, entendeu ?
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Alinhar LAbel a Direita do Form

Mensagempor Toledo » 17 Out 2013 11:12

Amigos, pode-se usar também os controles CENTERALIGN e RIGHTALIGN da LABEL.

Veja um exemplo:
#include "hmg.ch"

Function Main
cLabel1:="Forum Clipper On Line - Center"
cLabel2:="Forum Clipper On Line - Right"

   DEFINE WINDOW fForm ;
      AT 0,0 ;
      WIDTH 500 HEIGHT 300 ;
      TITLE "Demo Centralizar Label" ;
      MAIN ;
      FONT "Arial" SIZE 10

      DEFINE LABEL lbl_001A
         ROW 86
         COL 0
         VALUE cLabel1
         HEIGHT 20
         WIDTH (fForm.Width)
         FONTCOLOR RED
         FONTNAME "Courier New"
         FONTSIZE 10
         CENTERALIGN .T.
      END LABEL

      DEFINE LABEL lbl_002A
         ROW 192
         COL 0
         VALUE cLabel2
         HEIGHT 20
         WIDTH (fForm.Width-25)
         FONTCOLOR RED
         FONTNAME "Courier New"
         FONTSIZE 10
         RIGHTALIGN .T.
      END LABEL

   END WINDOW

   CENTER WINDOW fForm

   ACTIVATE WINDOW fForm

Return Nil


Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Avatar de usuário

Toledo
Administrador

Administrador
 
Mensagens: 3038
Data de registro: 22 Jul 2003 18:39
Cidade/Estado: Araçatuba - SP
Curtiu: 263 vezes
Mens.Curtidas: 258 vezes

Alinhar LAbel a Direita do Form

Mensagempor asimoes » 17 Out 2013 12:17

Toledo,

Eu estou usando a MiniGui extended, tem essas implementações?

Ops, desconsidere, vi que tem, obrigado!
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 11 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro