Jump to content

x11

uniGUI Subscriber
  • Posts

    2822
  • Joined

  • Last visited

  • Days Won

    13

Everything posted by x11

  1. В общем, я придумал пока что вот так. В свойство FieldLabel я вставляю значение <i class="fas fa-subway"></i> В свойство FieldLabelWidth я указываю 7 (процентов). А placeholder заполняю без иконки procedure SetPlaceholderCombo(const placeholder: string; combo: TuniCustomCombobox); begin combo.JSInterface.JSConfig('placeholder', [placeholder]); end;
  2. А версию 5 не получится использовать? А там уже и версия 6 скоро выйдет....
  3. взял отсюда коды - с версией 4,7 работает https://fontawesome.com/v4.7.0/icon/map-marker https://fontawesome.com/v4.7.0/icon/map-signs
  4. try my code procedure TUnimForm1.comboNovoComplexGetKeyValue(const Value: string; var KeyValue: Variant); begin comboOnGetKeyValue(qFill, Value, KeyValue); end; procedure TUnimForm1.comboNovoComplexRemoteQuery(const QueryString: string; Result: TStrings); begin comboOnRemoteQuery(qFill, 'TABLE_NOVOCOMPLEX', QueryString, Result); end; .... procedure comboOnGetKeyValue(q: TUniQuery; const Value: string; var KeyValue: Variant); begin if q.Active then KeyValue := q.Lookup('name', Value, 'ID'); end; procedure comboOnRemoteQuery(q: TUniQuery; const sTable, QueryString: string; var Result: TStrings); Var n: integer; begin q.Close; q.SQL.Text := 'SELECT ID, NAME FROM ' + sTable + ' WHERE UPPER(NAME) CONTAINING(UPPER(:NAME)) AND DELETED IS DISTINCT FROM 1'; if (QueryString.Length <= 2) and (QueryString <> '*') then exit; if (QueryString = '*') or (QueryString = '[null]') then q.Params[0].AsString := '' else q.Params[0].AsString := QueryString; q.Open; if q.RecordCount = 0 then begin Result.Add(constEmptyRes); exit; end; n := 0; q.First; while not q.Eof do begin Result.Add(q.FieldByName('name').AsString); q.Next; inc(n); if N > 100 then Break; end; end;
  5. Подскажите, почему некоторые иконки не отображаются? Например, вот https://fontawesome.com/icons/sign?style=solid https://fontawesome.com/icons/map-marker-alt?style=solid код такой же, как и для других списков SetPlaceholderCombo('вулиця', #$f4d9, comboStreets); SetPlaceholderCombo('район', #$f3c5, comboRegions); procedure SetPlaceholderCombo(const placeholder: string; icon: char; combo: TuniCustomCombobox); begin combo.JSInterface.JSAddListener('painted', 'function(){this.inputElement.setStyle("font-family", this.inputElement.getStyle("font-family") + ", FontAwesome")}'); combo.JSInterface.JSConfig('placeholder', [icon + ' ' + placeholder]); end;
  6. Всё, получилось, спасибо SetPlaceholderCombo('метро ', #$f002, comboSubway); procedure TfmmParentAparts.SetPlaceholderCombo(const placeholder: string; icon: char; combo: TunimDBLookupCombobox); begin combo.JSInterface.JSAddListener('painted', 'function(){this.inputElement.setStyle("font-family", "FontAwesome")}'); combo.JSInterface.JSConfig('placeholder', [icon + ' ' + placeholder]); end;
  7. Подскажите, если передавать это в качестве параметра, то какой это тип в Delphi? Char, WideChar?
  8. comboSubway.JSInterface.JSConfig('placeholder', ['<i class="fas fa-walking"></i> метро']);
  9. Ну я вижу что у вас есть иконка, а у меня выводится <i class="fas fa-walking"></i> вместо иконки
  10. @Sherzod извините, я так и не понял, что именно надо сделать со списком? Какие свойства и какие там значение?
  11. http://digital-flame.ru/2016/11/30/delphi-unigui-deploy-ot-a-do-ya-versiya-2/ http://digital-flame.ru/2016/02/16/unigui-prikreplyaem-domen-k-unigui-proektu/ http://digital-flame.ru/2015/10/15/video-how-to-start-delphi-unigui-application-under-ii7/
  12. azure? http://forums.unigui.com/index.php?/topic/4787-azure-deployment/&amp;tab=comments#comment-24141
  13. Усложняем. А можно ли в placeholder выводить иконку шрифта? <i class="fas fa-walking"></i> Если да, то как? А то выводится текст, как он есть вместо иконки.
  14. Отлично. Будем надеяться, разработчики добавят это свойство в TUnimDBLookupComboBox
  15. Ещё у UnimDBLookupComboBox в событиях OnRemoteQuery и OnGetKeyValue не хватает параметра sender: TObject Поэтому на данный момент для всех лежащих на форме TUnimDBLookupComboBox приходится создавать отдельные события, вместо того, чтобы создать одно событие для всех этих компонент.
  16. Может я неправильно указываю свойства LayoutAttribs у каких-то контейнеров?
  17. есть указать у unimTabControl свойство LayoutConfig.Margin := '0 5';
  18. А вот у uniM На букву E есть только одно свойство - Enabled
  19. Ну так чего ж тогда автору темы не хватает? Или он хочет, чтобы разворачивание/сворачивание происходило именно тогда, когда щелкаешь по строке, а не по треугольнику?
  20. А можно как-то у компоненты UniDBLookupComboBox/UnimDBLookupComboBox реализовать такую же возможность, как и у TUnimEdit со свойством EmptyText?
  21. Извините, что вмешиваюсь, а разве при щелчке на треугольнике не происходит сворачивание/разворачивание?
  22. К сожалению, не на все вопросы отвечают. Например, на этот - тишина
  23. а как можно єто реализовать другим способом?
×
×
  • Create New...