TListView项目详细信息字体转换为等宽字体

Question

我试图使用默认字体之一在我的Androaid应用程序上设置等宽字体，但是它不起作用。我尝试过“ Courier New”或“ Consolas”，但都没有解决。界面似乎对字体没有任何响应，但对大小没有响应。

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();
}

Answer 1

我一直在VCL中使用等宽文本。问题在于只有很少的字体能够使用。试试这个：

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

其中mm_log是您要等间距的组件（在我的情况下是TMemo）...

但是我不使用FMX和非Win32 IDE / Aps，因此在不同的环境下情况可能有所不同。