Перейти к содержанию
Fire Monkey от А до Я

rareMax

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

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

  • Посещение

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

    35

Весь контент rareMax

  1. А через Log.D - разве не пишет в консоль студии?
  2. От эмбр: http://community.embarcadero.com/blogs?view=entry&id=8542 procedure TVariableHeight.ListView1UpdateObjects(const Sender: TObject; const AItem: TListViewItem); var Drawable: TListItemText; SizeImg: TListItemImage; Text: string; AvailableWidth: Single; begin SizeImg := TListItemImage(AItem.View.FindDrawable('imgSize')); AvailableWidth := TListView(Sender).Width - TListView(Sender).ItemSpaces.Left - TListView(Sender).ItemSpaces.Right - SizeImg.Width; // Find the text drawable which is used to calcualte item size. // For dynamic appearance, use item name. // For classic appearances use TListViewItem.TObjectNames.Text // Drawable := TListItemText(AItem.View.FindDrawable(TListViewItem.TObjectNames.Text)); Drawable := TListItemText(AItem.View.FindDrawable('txtMain')); Text := Drawable.Text; // Randomize the font when updating for the first time if Drawable.TagFloat = 0 then begin Drawable.Font.Size := 1; // Ensure that default font sizes do not play against us Drawable.Font.Size := 10 + Random(4) * 4; Drawable.TagFloat := Drawable.Font.Size; if Text.Length < 100 then Drawable.Font.Style := [TFontStyle.fsBold]; end; // Calculate item height based on text in the drawable AItem.Height := GetTextHeight(Drawable, AvailableWidth, Text); Drawable.Height := AItem.Height; Drawable.Width := AvailableWidth; SizeImg.OwnsBitmap := False; SizeImg.Bitmap := GetDimensionBitmap(SizeImg.Width, AItem.Height); end;
  3. Ну за это я думал - просто все равно в одном массиве будет сразу Integer, потом String ([5, "д"],). Можете подсказать как тут поступить лучше?
  4. блин API телеграмма отлично зашло. А вот с вк - одни беды
  5. Да пожалуйста) procedure nnn; var socket: TSocket; LBytes: TBytes; LRecesiv: TBytes; Begin socket := TSocket.Create(TSocketType.TCP); try // ну только ваш ип socket.Connect(TNetEndpoint.Create(192, 168, 1, 1, 8081)); LBytes := [233, 123, 001, $FF]; socket.Send(LBytes); while True do // Begin if socket.Receive(LRecesiv) = 0 then Continue; // если ничего не пришло - опять запрашиваем инфу if LRecesiv = LBytes then socket.Send([66, 124]); End; finally socket.Free; end; end;
  6. Я работаю с библиотекой XSuperObject. Как правило, сам JSON я не парсю, а только создаю классы-прототипы данных в JSON, и пользуюсь методами .FromJSON и .ToJSON. пример: Для такого JSON'a создаю такой класс: TvktStatus = Class private Ftext: String; FAudio: TvktAudio; published [Alias('text')] property text: String read Ftext write Ftext; [Alias('audio')] property audio: TvktAudio read FAudio write FAudio; End; в итоге не нужно парсить программисту - все делает библиотечка. Теперь к самой проблеме. Допустим есть такой файлик с данными в формате JSON: Как бы вы составили такой класс-прототип? Ведь тут получается в одном массиве есть как число так и строка.
  7. uses System.Net.Socket; Procedure Sample; var Socket: TSocket; LBytes: TBytes; Begin Socket := TSocket.Create(TSocketType.TCP); try // ну только ваш ип Socket.Connect(TNetEndpoint.Create(192, 168, 1, 1, 8081)); LBytes := [233, 123, 001, $FF]; Socket.Send(LBytes); finally Socket.Free; end; End; { TvkDatabase } function TvkDatabase.getCit
  8. rareMax

    Компонент TLang

    с этим норм. но добавили других багов
  9. еще больше плагинов установите в студию)00))
  10. rareMax

    Компонент TLang

    типа баг был в сиэтле
  11. rareMax

    Serial port

    Даже ветку на форуме
  12. А обязательно в HKLM хранить данные? Если не изменяет память - нормальный путь будет для Local User, в независимости от разрядности. попробуйте
  13. первоначальный вариант справедлив только для 32битных. Wow6432Node - ее юзать для 64битных.
  14. Ошибки нет, и кликабельности тоже нет. Х Ставил.
  15. аж слезу пустил от было бы круто такие вещи видеть в делфи. Пусть и на плюсы будет смахивать - кого раздражает, не обязательно пользоваться))
  16. Есть ли в настройках IDE (ну или может плагин), что бы для новых проектов(а в идеале и для существующих) была по умолчанию кодировка UTF8? Пролистал настройки ИДЕ - но, к сожалению, не нашел заветного пункта.
  17. rareMax

    Main Form Center

    Сложного в этом нет ничего, но с другой стороны это не правильно, что "нельзя" пользоваться возможностями встроенной библиотеки кода.
  18. Это не абракадабра виновата. Читайте про потоки, и синхронизацию в частности
  19. Будет влиять в лучшую сторону. Единственное что сразу было не привычно во время работы с ним - так это то, что нужно самому организовать хранение и поставку данных.
  20. Когда будет новая версия FGX? Будут обновления, не?
  21. Зачем так далеко посылать? есть же более простой вариант
×
×
  • Создать...