Alinhar LAbel a Direita do Form

[asimoes]

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.

Código: Selecionar todos

  
   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.

[Pablo César]

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

[asimoes]

Pablo,

A intenção é alinha o label no form (centralizar ou a direita), padc e padr não vão funcionar.

[Pablo César]

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 ?

[Toledo]

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

Veja um exemplo:

Código: Selecionar todos

#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,

[asimoes]

Toledo,

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

Ops, desconsidere, vi que tem, obrigado!