Деталь элемента TListView Шрифт в Monospace - PullRequest
Новая
       67

Деталь элемента TListView Шрифт в Monospace

0 голосов
/ 27 апреля 2020

Я пытаюсь установить моноширинный шрифт в моем приложении Androaid, используя один из шрифтов по умолчанию, но он не работает. Я пробовал «Новый курьер» или «Консолас», но ничего из этого не получилось. Кажется, пользовательский интерфейс вообще не отвечает мне относительно шрифтов, но их размера. 

TListViewItem* item2;
while(!myQuery->Eof)
{
   item2 = ListView2->Items->Add();

   item2->Objects->DetailObject->Font->Family = "Courier New";
   item2->Objects->DetailObject->Font->Style = TFontStyles()<< fsBold;
   item2->Objects->DetailObject->Font->Size =13;

   item2->Text      = myQuery->FieldByName("Description")->AsString.Trim();
   item2->Detail    = " | "+Format("%-5s", OPENARRAY(TVarRec,(myQuery->FieldByName("Unit")->AsString)))+" | "+Format("%7s", OPENARRAY(TVarRec,(myQuery->FieldByName("Qty")->AsString)))+" |   "+CurrToStrF(myQuery->FieldByName("Price")->AsCurrency,ffFixed,2)+" | "+Format("%3s", OPENARRAY(TVarRec,(myQuery->FieldByName("Dsc")->AsString)))+"%|"+Format("%4s", OPENARRAY(TVarRec,(CurrToStrF(myQuery->FieldByName("Vat")->AsCurrency,ffFixed,1))))+"%|"+Format("%-20s", OPENARRAY(TVarRec,(myQuery->FieldByName("Notes")->AsString)))+"|";
   myQuery->Next();
}

1 Ответ

0 голосов
/ 27 апреля 2020

Я постоянно использую моноширинные тексты в VCL. Проблема в том, что на это способны только несколько шрифтов. Попробуйте это: 

mm_log->Font->Charset=OEM_CHARSET;
mm_log->Font->Name="System";
mm_log->Font->Pitch=fpFixed;

, где mm_log - это ваш компонент, который вы хотите разделить моно (в моем случае это был TMemo) ...

Однако я не использую FMX и не Win32 IDE / Aps, поэтому в другой среде ситуация может отличаться.

...