Deixar o nome do campo em negrito

[Daiane]

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

Código: Selecionar todos

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

[Kapiaba]

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.

[Daiane]

Código: Selecionar todos

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

[Kapiaba]

Código: Selecionar todos

   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.

[Daiane]

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

[Kapiaba]

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.

Código: Selecionar todos

   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