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

Alexey Lovchikov

Пользователи
 Профиль  Обзор контента

  • Постов

    37

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

  • Посещение

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

    6

Ответы сообщества

  1. Alexey Lovchikov
    Пост 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
  2. Alexey Lovchikov
    Пост 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
  3. Alexey Lovchikov
    Пост 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}
  4. Alexey Lovchikov
    Пост 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 );
  5. Alexey Lovchikov
    Пост 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;
  6. Alexey Lovchikov
    Пост Alexey Lovchikov - сообщение в Универсальный способ хранения настроек был отмечен как ответ   
    Хранение информации о настройках в Ini файле на вой взгляд это прошлый век. Используй структуру XML или JSON.
     
    Чтоб использовать JSON подключи стандартные модули Data.DBXJSON, Data.DBXJSONCommon, Data.DBXJSONReflect в свой проект и используй объекты TJSONobject, TJSONArray и другие. 
×
×
  • Создать...