Hooks-sometimes hard to use them

[Roldan]

Hi for all.
i have a problem with using hook procedure in Choosefont Api funct.
Can me help somebody?

[Vlatko]

Please be more specific. If you need info on how to use the ChooseFont API then:

' This code is licensed according to the terms and conditions listed here.
 
' Display a Choose Font dialog box.  Print out the typeface name, point size,
' and style of the selected font.  More detail about topics in this example can be found in
' the pages for CHOOSEFONT_TYPE and LOGFONT.
Dim cf As CHOOSEFONT_TYPE  ' data structure needed for function
Dim lfont As LOGFONT  ' receives information about the chosen font
Dim hMem As Long, pMem As Long  ' handle and pointer to memory buffer
Dim fontname As String  ' receives name of font selected
Dim retval As Long  ' return value
 
' Initialize the default selected font: Times New Roman, regular, black, 12 point.
' (Note that some of that information is in the CHOOSEFONT_TYPE structure instead.)
lfont.lfHeight = 0  ' determine default height
lfont.lfWidth = 0  ' determine default width
lfont.lfEscapement = 0  ' angle between baseline and escapement vector
lfont.lfOrientation = 0  ' angle between baseline and orientation vector
lfont.lfWeight = FW_NORMAL  ' normal weight i.e. not bold
lfont.lfItalic = 0  ' not italic
lfont.lfUnderline = 0  ' not underline
lfont.lfStrikeOut = 0  ' not strikeout
lfont.lfCharSet = DEFAULT_CHARSET  ' use default character set
lfont.lfOutPrecision = OUT_DEFAULT_PRECIS  ' default precision mapping
lfont.lfClipPrecision = CLIP_DEFAULT_PRECIS  ' default clipping precision
lfont.lfQuality = DEFAULT_QUALITY  ' default quality setting
lfont.lfPitchAndFamily = DEFAULT_PITCH Or FF_ROMAN  ' default pitch, proportional with serifs
lfont.lfFaceName = "Times New Roman" & vbNullChar  ' string must be null-terminated
 
' Create the memory block which will act as the LOGFONT structure buffer.
hMem = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, Len(lfont))
pMem = GlobalLock(hMem)  ' lock and get pointer
CopyMemory ByVal pMem, lfont, Len(lfont)  ' copy structure's contents into block
 
' Initialize dialog box: Screen and printer fonts, point size between 10 and 72.
cf.lStructSize = Len(cf)  ' size of structure
cf.hwndOwner = Form1.hWnd  ' window Form1 is opening this dialog box
cf.hdc = Printer.hDC  ' device context of default printer (using VB's mechanism)
cf.lfLogFont = pMem  ' pointer to LOGFONT memory block buffer
cf.iPointSize = 120  ' 12 point font (in units of 1/10 point)
cf.flags = CF_BOTH Or CF_EFFECTS Or CF_FORCEFONTEXIST Or CF_INITTOLOGFONTSTRUCT Or CF_LIMITSIZE
cf.rgbColors = RGB(0, 0, 0)  ' black
cf.lCustData = 0  ' we don't use this here...
cf.lpfnHook = 0  ' ...or this...
cf.lpTemplateName = ""  ' ...or this...
cf.hInstance = 0  ' ...or this...
cf.lpszStyle = ""  ' ...or this
cf.nFontType = REGULAR_FONTTYPE  ' regular font type i.e. not bold or anything
cf.nSizeMin = 10  ' minimum point size
cf.nSizeMax = 72  ' maximum point size
 
' Now, call the function.  If successful, copy the LOGFONT structure back into the structure
' and then print out the attributes we mentioned earlier that the user selected.
retval = ChooseFont(cf)  ' open the dialog box
If retval <> 0 Then  ' success
  CopyMemory lfont, ByVal pMem, Len(lfont)  ' copy memory back
  ' Now make the fixed-length string holding the font name into a "normal" string.
  fontname = Left(lfont.lfFaceName, InStr(lfont.lfFaceName, vbNullChar) - 1)
  ' Display font name and a few attributes.
  Debug.Print "FONT NAME: "; fontname
  Debug.Print "FONT SIZE (points):"; cf.iPointSize / 10  ' in units of 1/10 point!
  Debug.Print "FONT STYLE(S): ";
  If lfont.lfWeight >= FW_BOLD Then Debug.Print "Bold ";
  If lfont.lfItalic <> 0 Then Debug.Print "Italic ";
  If lfont.lfUnderline <> 0 Then Debug.Print "Underline ";
  If lfont.lfStrikeOut <> 0 Then Debug.Print "Strikeout";
  Debug.Print  ' end the line
End If
 
' Deallocate the memory block we created earlier.  Note that this must
' be done whether the function succeeded or not.
retval = GlobalUnlock(hMem)  ' destroy pointer, unlock block
retval = GlobalFree(hMem)  ' free the allocated memory

[Roldan]

I have problems with 2 lines of your code))

cf.lCustData = 0 ' we don't use this here...
cf.lpfnHook = 0 ' ...or this...
I need to execute funct. a as hook procedure

Public Function a(ByVal hdlg As Long, ByVal uiMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
MsgBox "This is hook Procedure
End Function

How to do it??Ok

[Roldan]

My exact problem is :

I have a collection of fonts,
1. Arial,bold,underline
2.Ms Sans serif, italic
........etc.

I need to modify these fonts:
for example:
if user sets in commondialog bold=true, then set the bold to true in all fonts, and not modify other prop's.

[Roldan]

the bold property has 3 states:
1.all fonts have bold= true
2.all fonts have bold= false
3. some fonts have true and some false.

and commondialog has only 2 states bold= true or false.this is, why i need to capture users click in bold or other property in listbox.