-
Posts
2822 -
Joined
-
Last visited
-
Days Won
13
Content Type
Profiles
Forums
Events
Everything posted by x11
-
В общем, я придумал пока что вот так. В свойство FieldLabel я вставляю значение <i class="fas fa-subway"></i> В свойство FieldLabelWidth я указываю 7 (процентов). А placeholder заполняю без иконки procedure SetPlaceholderCombo(const placeholder: string; combo: TuniCustomCombobox); begin combo.JSInterface.JSConfig('placeholder', [placeholder]); end;
-
А версию 5 не получится использовать? А там уже и версия 6 скоро выйдет....
-
взял отсюда коды - с версией 4,7 работает https://fontawesome.com/v4.7.0/icon/map-marker https://fontawesome.com/v4.7.0/icon/map-signs
-
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;
-
Подскажите, почему некоторые иконки не отображаются? Например, вот 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;
-
Всё, получилось, спасибо 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;
-
Подскажите, если передавать это в качестве параметра, то какой это тип в Delphi? Char, WideChar?
-
-
Ну я вижу что у вас есть иконка, а у меня выводится <i class="fas fa-walking"></i> вместо иконки
-
@Sherzod извините, я так и не понял, что именно надо сделать со списком? Какие свойства и какие там значение?
-
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/
-
azure? http://forums.unigui.com/index.php?/topic/4787-azure-deployment/&tab=comments#comment-24141
-
Усложняем. А можно ли в placeholder выводить иконку шрифта? <i class="fas fa-walking"></i> Если да, то как? А то выводится текст, как он есть вместо иконки.
-
Отлично. Будем надеяться, разработчики добавят это свойство в TUnimDBLookupComboBox
-
Ещё у UnimDBLookupComboBox в событиях OnRemoteQuery и OnGetKeyValue не хватает параметра sender: TObject Поэтому на данный момент для всех лежащих на форме TUnimDBLookupComboBox приходится создавать отдельные события, вместо того, чтобы создать одно событие для всех этих компонент.
-
Может я неправильно указываю свойства LayoutAttribs у каких-то контейнеров?
-
-
-
Ну так чего ж тогда автору темы не хватает? Или он хочет, чтобы разворачивание/сворачивание происходило именно тогда, когда щелкаешь по строке, а не по треугольнику?
-
А можно как-то у компоненты UniDBLookupComboBox/UnimDBLookupComboBox реализовать такую же возможность, как и у TUnimEdit со свойством EmptyText?
-
Извините, что вмешиваюсь, а разве при щелчке на треугольнике не происходит сворачивание/разворачивание?
-
-
К сожалению, не на все вопросы отвечают. Например, на этот - тишина
-
а как можно єто реализовать другим способом?