I wanna know there is way to separate fonts by type
for example : i wanna load all arabic fonts to a combobox only
You could enumerate the fonts you want using the EnumFontFamiliesEx API call. Specify ARABIC_CHARSET as the character set in the LogFont you supply to the routine, and have your callback routine add the font names to your combo box.
I don't have any VB code to do that but maybe this Delphi code will get you started. It should be easy enough to convert to VB.
function FontEnumerator( const EnumLogFontEx: TEnumLogFontEx; const NewTextMetricEx: PNewTextMetricEx; FontType: Integer; Strings: TStrings): Integer; stdcall; const CONTINUE_ENUMERATION = 1; // Any non-zero value will do begin Strings.Add(EnumLogFontEx.elfFullName); Result := CONTINUE_ENUMERATION; end; procedure GetArabicFonts(FontNames : TStrings); var DC : THandle; LogFont : TLogFont; begin DC := GetDC(GetDesktopWindow); // We will list the fonts available in desktop window's device context if DC <> 0 then try FillChar(LogFont, SizeOf(LogFont), 0); // Initialise spec of fonts we want to include all fints LogFont.lfCharSet := ARABIC_CHARSET; // Then narrow it down to just Arabic fonts EnumFontFamiliesEx(DC, LogFont, @FontEnumerator, lParam(FontNames), 0); // List the fonts finally ReleaseDC(GetDesktopWindow, DC) end end; procedure TForm1.FormCreate(Sender: TObject); begin GetArabicFonts(ComboBox1.Items); end;
i am trying to create a library management system which is supposed to be used to store/keep infp for the library and the library members( book title, author, name and picture for borrower and other stuffs). The app has 6 buttons, delete, save, add,previsous,next, and upload( for upload ...
Im trying to bind my custom vertical scrollbar to datagridview is this possible.. Please help Thnak you..
I have two tables, I will call them first-half and second-half (of the year)
Table: first id jan feb mar apr ----------------------- 2 80 90 70 60 3 50 40 60 30 Table: second id jan feb mar apr ----------------------- 2 50 70 60 90 3 80 60 50 ...