Deixar o nome do campo em negrito

por **Daiane** » 28 Jul 2015 09:26

Pessoal não sei se esse topico deveria ser em Harbour ou Fivewin
Mas acredito que seja aqui mesmo no Harbour

Eu preciso deixar o nome dos campos na minha dlg em negrito,como posso fazer isso?
Para desenhar a dlg eu uso o Pelles C for windows
Coloquei dessa forma mas não adiantou

DEFINE FONT oFONT NAME "Arial"  SIZE 0, -13 BOLD

por **Kapiaba** » 28 Jul 2015 09:48

Daiane, entenda: harbour ou xHarbour para FiveWin, só servem de tradutores de nossa escrita em inglês e portugues para Linguagem C, para se compilar com o Compilador Borland, então, não existe Harbour ou xHarbour para Fivewin. É FiveWin for x[H]arbour, e pronto, portanto, poste sempre na Seção: Fivewin. exceto, se for Harbour o xHarbour, modo console.

Quanto a sua dúvida, poste a SINTAXE DO GET que você quer por em negrito. Tente com FONT Ms Sans Serif ou Courier New.

abs.

por **Daiane** » 28 Jul 2015 10:04

REDEFINE SAY ::gStatus          VAR ::cStatus          ID 4010 COLOR CLR_BLACK  OF ::oDlg 
::cStatus:= CHR(13) + "Atualizando..." 
::gStatus:Refresh()

por **Kapiaba** » 28 Jul 2015 10:22

   LOCAL oFnt, oFont

   DEFINE FONT oFnt  NAME "Ms Sans Serif" SIZE 00,  14 BOLD
   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD

   DEFINE DIA....

   REDEFINE SAY ::gStatus VAR ::cStatus ID 4010 OF ::oDlg  ;
      COLORS CLR_BLACK, CLR_WHITE TRANSPARENT UPDATE FONT oFont

 
   //::cStatus := CHR(13) + "Atualizando..."
   ::cStatus := CRLF + "Atualizando..."
 
   ::gStatus:Refresh()

   ACTIVATE DIA...

   oFnt:End()
   oFont:End()

Abs.

por **Daiane** » 28 Jul 2015 10:34

Obrigada,resolveu.
Mas se pudesse definir como negrito para todos os campos?
eu teria q usar isso em cada campo ou teria outra forma?

por **Kapiaba** » 28 Jul 2015 10:47

Daiane, em FiveWin for xHarbour, não existe resposta: Não pode ou não sei... Se pode tudo, você é o limite. Você está For windows.

   LOCAL oDlg,   oFnt, oFont,  oIncluir, oManut, oSaida, oBrush, ;
         oGroup, IDCor, nKey := VK_RETURN

      // Quantos ID's tem no Dialogo? Eu tenho 20... Entao:
      // Pinta 20 SAYs em meu DIALOGO.
      For IDCor = 401 To 420 // Os ID's dos TEXTOS na DIALOG.
         REDEFINE SAY ID IDCor OF oDlg            ;
         COLOR CLR_HCYAN, CLR_WHITE UPDATE FONT oFont TRANSPARENT
      Next IDCor

abs