Página 1 de 1
Deixar o nome do campo em negrito
Enviado: 28 Jul 2015 09:26
por 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
Deixar o nome do campo em negrito
Enviado: 28 Jul 2015 09:48
por 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.
Deixar o nome do campo em negrito
Enviado: 28 Jul 2015 10:04
por Daiane
Código: Selecionar todos
REDEFINE SAY ::gStatus VAR ::cStatus ID 4010 COLOR CLR_BLACK OF ::oDlg
::cStatus:= CHR(13) + "Atualizando..."
::gStatus:Refresh()
Deixar o nome do campo em negrito
Enviado: 28 Jul 2015 10:22
por 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.
Deixar o nome do campo em negrito
Enviado: 28 Jul 2015 10:34
por 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?
Deixar o nome do campo em negrito
Enviado: 28 Jul 2015 10:47
por 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