-
Постов
37 -
Зарегистрирован
-
Посещение
-
Победитель дней
6
Ответы сообщества
-
Пост Alexey Lovchikov - сообщение в Как задать направление линейного градиента? был отмечен как ответ
http://docwiki.embarcadero.com/CodeExamples/XE7/en/FMXGradient_(Delphi)
Используй
fill.Gradient.StartPosition.Y fill.Gradient.StartPosition.X fill.Gradient.StopPosition.X Gradient.zip
-
Пост Alexey Lovchikov - сообщение в Можно ли программно передать фокус на SearchBox и очистить строку? был отмечен как ответ
Используй Helper
uses FMX.SearchBox; type TListViewMyHelper = class helper for TListView public function SearshBox: TSearchBox; end; { TListViewMyHelper } function TListViewMyHelper.SearshBox: TSearchBox; var AIdx: Integer; begin for AIdx := 0 to Self.ComponentCount - 1 do if Self.Components[AIdx] is TSearchBox then begin Result := TSearchBox(Self.Components[AIdx]); Break; end; end; Или просто функцию
function SearshBox(AListView: TListView): TSearchBox; var AIdx: Integer; begin for AIdx := 0 to AListView.ComponentCount - 1 do if AListView.Components[AIdx] is TSearchBox then begin Result := TSearchBox(AListView.Components[AIdx]); Break; end; end;
Primer.zip
-
Пост Alexey Lovchikov - сообщение в SQLite, подключение к БД, относительный путь был отмечен как ответ
Предлагаю использовать
uses System.IOUtils; {$IFDEF ANDROID} FFileDatabase := TPath.Combine(TPath.GetSharedDocumentsPath, 'news.s3db'); {$ENDIF} {$IFDEF MSWINDOWS} FFileDatabase := ExtractFilePath(ParamStr(0)) + '\files\news.s3db'; {$ENDIF} -
Пост Alexey Lovchikov - сообщение в Проблема InputQuery в XE7 был отмечен как ответ
InputQuery('Има пользователя',['Парам1', 'Парам2'], ['1','2'], procedure(const AResult: TModalResult; const AValues: array of string) begin if AResult = mrOk then ShowMessage(AValues[0]); if AResult = mrCancel then ShowMessage(AValues[1]); end ); -
Пост Alexey Lovchikov - сообщение в Как получить доступ к наследнику TListBoxItem при вызове события из стиля был отмечен как ответ
Ну вот, отвечаю опять на свой вопрос сам.
procedure TfrJournalQuestionnaire.ClickQuestionnaireEdit(Sender: TObject); function GetItem(AControl: TControl): TQuestionnaireItem; begin while not (AControl.Parent is TQuestionnaireItem) do AControl := TControl(AControl.Parent); Result := TQuestionnaireItem(AControl.Parent); end; begin ShowMessage( GetItem(TControl(Sender)).QuestionnaireId.ToString ); end; -
Пост Alexey Lovchikov - сообщение в Универсальный способ хранения настроек был отмечен как ответ
Хранение информации о настройках в Ini файле на вой взгляд это прошлый век. Используй структуру XML или JSON.
Чтоб использовать JSON подключи стандартные модули Data.DBXJSON, Data.DBXJSONCommon, Data.DBXJSONReflect в свой проект и используй объекты TJSONobject, TJSONArray и другие.