Перейти к содержанию

Бука

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

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

  • Посещение

Информация о Бука

  • Звание
    Новичок

Информация

  • Пол
    Мужчина
  1. Пробивал, не работает. Здесь почему-то пропадает события в TActionList остаётся только OnUpdate
  2. Возможно я ошибаюсь за неимением большого опыта, но если вTabControl делать больше табов то вес программы становится 110, а за счет фреймов уменьшается до 84. Если есть другое решение то подскажите.
  3. Платформа Android У программы на главной форме установлен TabControl из двух табов и TGestureManager и TActionList. В один из табов загружаются разные Frames (фреймы) по ситуации у которых в свою очередь тоже есть TabControl из пяти табов. Фреймы видят первую форму, на которой установлен TGestureManager и TActionList их тоже видно. Все везде завязано и перевязано, но не работает жестs листание в право или в лево, когда происходит загрузка фреймов. В чем причина? Если делать без фреймов все работает. Ну фреймы мне очень нужны дабы облегчить вес программы. Я так понимаю почему то отключаются события в TActionList если выбрать путь в фрейму. test.zip
  4. Всем спасибо. Не знаю в чем была причина но через неделю попробовал опять выложить всё получилось.
  5. Да вот не получается выложить, просит что бы 64-x битное приложение было.
  6. Всем привет. Хочу запустить программу в гугл маркет, а на последней стадии выдает вот такое. Что надо сделать, что бы убрать данное сообщение?
  7. Я думаю примерно вот так будет. uses System.IOUtils; procedure TMyForm.sbPlayClick(Sender: TObject); begin MediaPlayer.FileName:= TPath.GetDocumentsPath + PathDelim +'grouse_boy.mp3'; MediaPlayer.Play; tbRjabhucMusicTrek.Max := MediaPlayer.Duration; end; procedure TMyForm.sbStopClick(Sender: TObject); begin MediaPlayer.Stop; MediaPlayer.CurrentTime := 0; end; procedure TMyForm.Timer1Timer(Sender: TObject); begin tbRjabhucMusicTrek.Value := MediaPlayer.CurrentTime; end;
  8. Всем привет. Подскажите что делаю не так. Выходит ошибка Invalid class typecast. unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects, FMX.Controls.Presentation, FMX.StdCtrls; type TForm1 = class(TForm) Switch: TSwitch; Rectangle: TRectangle; Selection: TSelection; procedure SwitchSwitch(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.SwitchSwitch(Sender: TObject); begin { (Sender as TSelection).HideSelection := not(Sender as TSelection).HideSelection; (Sender as TSelection).HitTest := not(Sender as TSelection).HitTest; (Sender as TRectangle).HitTest := not(Sender as TRectangle).HitTest; } if Switch.IsChecked = true then begin (Sender as TSelection).HideSelection := false; (Sender as TSelection).HitTest := true; (Sender as TRectangle).HitTest := false; end else begin (Sender as TSelection).HideSelection := true; (Sender as TSelection).HitTest := false; (Sender as TRectangle).HitTest := true; end; end; end. Новая папка.zip
×
×
  • Создать...