Перейти к содержанию

gonzales

Пользователи
  • Активность

    278
  • Зарегистрирован

  • Посещение

  • Победитель дней

    17

gonzales стал победителем дня 15 января

gonzales имел наиболее популярный контент!

Информация о gonzales

  • Звание
    Продвинутый пользователь

Посетители профиля

6 737 просмотров профиля
  1. Это инструкция для делфи 10.4.1 1. Копируем ttf или otf файл шрифта в папку с проектом. Например у меня comic.ttf. Открыв шрифт стандартным виндовым просмотровщиком смотрим, чтобы шрифт содержал необходимый нам набор символов и заодно фиксируем Имя шрифта. В данном случае это будет Comic Sans MS. Если шрифт имеет расширение TTF (капсом), то меняем его на ttf, это важно ибо капсом файл шрифта не находится. для Android 2. Деплоим файл шрифта. Remote Path указываем .\assets\internal\ 3. Для контролов, к которым хотим применить шрифт пишем Font.Family := 'название файла шрифта без расширения'; в моем примере Font.Family :='comic'; 4. Не забываем снять у контрола зависимость от стиля, например так StyledSettings := []; Или так StyledSettings := StyledSettings - [TStyledSetting.Family]; для iOS 2. Деплоим файл шрифта. Remote Path указываем .\ 3. Редактируем info.plist.TemplateiOS.xml, чтобы при сборке информация о шрифте попала в plist. <%ExtraInfoPListKeys%> <key>UIAppFonts</key> <array> <string>comic.ttf</string> <string>другие шрифты.ttf</string> </array> 3. Для контролов, к которым хотим применить шрифт пишем Font.Family := 'Имя шрифта'; в моем примере Font.Family :='Comic Sans MS'; 4. Не забываем снять у контрола зависимость от стиля, например так StyledSettings := []; Или так StyledSettings := StyledSettings - [TStyledSetting.Family]; 4. Пересобираем приложение (Build) и ставим на телефон
  2. да, разобрался во всем. засада в том, что среда поддерживает только два начертания, Regular и Bold, приходится искать шрифты, где начертание подменено, то есть начертание Regular а по факту, например, Light. Но даже в этом случае работает не корректно, если загружаю два начертания одного шрифта как два разных шрифта. В общем удалось победить загрузку шрифтов и на андроид и на ios, если кому будет интересно, могу составить мануал.
  3. И все таки не работает))) Не работает на мобильных платформах. Я правильно понимаю, что и не будет и надо действовать через установку своего шрифта?
  4. Все работает, в запаре забыл галки снять с StyleSettings
  5. подниму тему. понадобилось тоже изменять начертание текста, конкретно сейчас задача про label не применяется TFont.StyleExt, не пойму как правильно сделать var s:TFontStyleExt; begin s:=TFontStyleExt.Create(TFontWeight.Light); label1.Font.StyleExt:= s; end; подскажите, как правильно сделать
  6. Доброго времени суток! Вроде элементарный вопрос, но не могу сообразить что не так. Хочу раскрасить текст элементов combobox в разные цвета или добавить к ним кружки с цветом. Ни то, ни то не получается. Вот процедура procedure TForm28.CreateSystemColor(Name:string; itemcolor:int64; ID:integer); var item: tlistboxitem; circle:TCircle; begin item := tlistboxitem.Create(nil); item.Parent := Combobox2; item.text := Name; item.Tag := ID; item.StyledSettings := item.StyledSettings - [TStyledSetting.FontColor]; item.TextSettings.FontColor:=itemcolor; item.FontColor := itemcolor; circle:=TCircle.Create(item); circle.Parent:=item; circle.Align:=talignlayout.Right; circle.Fill.Color:=itemcolor; circle.Stroke.Color:=talphacolorrec.White; circle.Visible:=true; end; Подскажите, где я накосорезил
  7. тоже интересует этот вопрос. Кто-нибудь уже проверил?
  8. Помогло вот такое, интересно, это бага или фича IdTCPClient.Disconnect; if IdTCPClient.IOHandler <> nil then IdTCPClient.IOHandler.InputBuffer.Clear;
  9. Доброго времени суток. Увидел очень странное поведение idTCPClient Написал процедуру принудительного реконекта с сервером, но она отрабатывает не так, как ожидалось (сорри за оформление, не работает кнопка Код на сайте) procedure TForm1.Reconnect(er: String); var Size: TSizeF; B: boolean; begin Size.cx := 16; Size.cy := 16; if Client1.Connected = true then begin Client1.Disconnect; end; if Client1.Connected = false then begin try Client1.Connect; Form1.ConnectImage.Bitmap := Form1.IconList.Bitmap(Size, 15); Timer1.Enabled := true; except on E: Exception do begin InfoLabel.text := er; Form1.ConnectImage.Bitmap := Form1.IconList.Bitmap(Size, 7); end; end; end else begin Form1.ConnectImage.Bitmap := Form1.IconList.Bitmap(Size, 15); Timer1.Enabled := true; end; end; Смысл в том, что после Client1.Disconnect, Client1.Connected остается в состоянии true, хотя на сервере вижу, что соединение разорвалось. И ничего не помогает, пробовал и Client1.IOHandler.Close и Client1.Disconnect(true). Подскажите, в какую сторону копать?
  10. Да, тоже вдоволь натрахался с ssl на андроиде, в результате попробовал THTTPClient, остался доволен как слон, работает из коробки, никакого головняка, в общем хороший компонент, рекомендую
  11. Решил вопрос var sstream: TStringStream; begin sstream := TStringStream.Create('', TEncoding.UTF8); HTTP.Get(Url, sstream); showmessage(sstream.DataString); end; Не работает кнопка Код, поэтому выложил просто текстом
  12. Доброго времени суток. А не подскажете, как обратную задачку решить? В ответе сервера есть русские буквы, соответственно отображается крокозябами. Как перевести в нормальный вид? Пробовал использовать Utf8ToAnsi - не помогло, кроказябы только поменялись на другие))) Подозреваю, что ответ приходит в юникоде, так как на серверной стороне отвечает микроконтроллер, но это не точно, так как идет еще редирект через какое-то облако по https.
  13. Доброго времени суток! Есть приложение, собранное на 10.4.1, в нем есть также сторонний компонент. Все работает нормально на всех современных Андроидах. Но заказчик откопал где-то планшет с андроидом 4.1 и хочет установить приложение туда. Естественно приложение не устанавливается, пишет Syntax Error (я сам не видел, это с его слов) Вопрос, это вообще реально, скомпилировать приложение под такое старье?? И если реально, то что для этого нужно, понизить версию SDK?
×
×
  • Создать...