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

Равиль Зарипов (ZuBy)

Модераторы
  • Постов

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

  • Посещение

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

    264

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

  1. Пост Равиль Зарипов (ZuBy) - сообщение в [TLabel] Вычисление ширины текста. был отмечен как ответ   
    Label1.AutoSize := true;  
  2. Пост Равиль Зарипов (ZuBy) - сообщение в Наклеить одно изображение на другое был отмечен как ответ   
    var bmp: TBitmap; SrcRect, DstRect, SrcRect2, DstRect2: TRectF; begin bmp := TBitmap.Create(256, 256); bmp.Canvas.BeginScene(); try SrcRect := TRectF.Create(0, 0, 256, 256); DstRect := TRectF.Create(20, 20, 236, 236); SrcRect2 := TRectF.Create(0, 0, 256, 256); DstRect2 := TRectF.Create(0, 0, 256, 256); bmp.Clear(TAlphaColorRec.Null); bmp.Canvas.DrawBitmap(Image1.Bitmap, SrcRect2, DstRect2, 0.8, false); bmp.Canvas.DrawBitmap(Image2.Bitmap, SrcRect, DstRect, 0.8, false); finally bmp.Canvas.EndScene(); Image3.Bitmap.SetSize(256, 256); Image3.Bitmap.CopyFromBitmap(bmp); bmp.Free; end; end;  
  3. Пост Равиль Зарипов (ZuBy) - сообщение в Контролировать приход SMS был отмечен как ответ   
    const SMS_RECEIVED = 'android.provider.Telephony.SMS_RECEIVED'; procedure SMSReceiver(aIntent: JIntent); //uses // Androidapi.JNI.JavaTypes, Androidapi.JNI.Telephony, Androidapi.JNI.Provider, Androidapi.JNIBridge, // Androidapi.JNI.GraphicsContentViewText, Androidapi.Helpers; var aSmss: TJavaObjectArray<JSmsMessage>; aSms: JSmsMessage; aFrom: string; aBody: string; I: Integer; begin if aIntent = nil then exit; if (aIntent.getAction <> nil) and (aIntent.getAction.compareToIgnoreCase(StringToJString(SMS_RECEIVED)) = 0) then begin aSmss := TJavaObjectArray<JSmsMessage>.Create; aSmss := TJSms_Intents.JavaClass.getMessagesFromIntent(aIntent); aFrom := JStringToString(aSmss[0].getDisplayOriginatingAddress); aBody := ''; for I := 0 to aSmss.Length - 1 do begin aSms := aSmss[I]; aBody := aBody + JStringToString(aSms.getDisplayMessageBody); end; end; end; не проверял, но по коду так, только как нить вернуть нужно aFrom, aBody
    сделать как функцию и тд..
  4. Пост Равиль Зарипов (ZuBy) - сообщение в Определение build configuration был отмечен как ответ   
    FDebugConfig := false; {$IFDEF DEBUG} FDebugConfig := true; {$ENDIF}  
  5. Пост Равиль Зарипов (ZuBy) - сообщение в Проверка валидности символов был отмечен как ответ   
    function TForm11.isEditCorrect(Sender: TEdit): Boolean; var   text: String;   i: Integer;   aCharArr: TCharArray; begin   text := TEdit(Sender).text;   aCharArr := text.ToCharArray;   Result := True;   for i := Low(aCharArr) to High(aCharArr) do   begin     if not(aCharArr[i] in charters) then       Result := False;   end;   if text.CountChar('-') > 1 then     Result := False; end; вот так правильно
  6. Пост Равиль Зарипов (ZuBy) - сообщение в Прозрачная иконка приложения был отмечен как ответ   
    это айос обрезает, никак не сделать прозрачные
  7. Пост Равиль Зарипов (ZuBy) - сообщение в RAD Berlin Upd1 & XCode был отмечен как ответ   
    xcode 8 и новый paserver все пучком
  8. Пост Равиль Зарипов (ZuBy) - сообщение в Открыть ссылку был отмечен как ответ   
    unit modURL; interface uses System.SysUtils {$IFDEF ANDROID} , Androidapi.Helpers, Androidapi.JNI.GraphicsContentViewText; {$ENDIF} // ... {$IFDEF MACOS} {$IFDEF IOS} , Macapi.Helpers, iOSapi.Foundation, FMX.Helpers.IOS; {$ELSE} , Posix.Stdlib; {$ENDIF} {$ENDIF} // ... {$IFDEF MSWINDOWS} , ShellAPI; {$ENDIF} procedure openUrl(const aURL: string); implementation {$IFDEF ANDROID} function andUrl(const aURL: string): boolean; var Intent: JIntent; begin Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW, StrToJURI(aURL)); TAndroidHelper.Context.startActivity(Intent); end; {$ENDIF} {$IFDEF IOS} function iosUrl(const aURL: string): boolean; var NSU: NSUrl; begin NSU := TNSURL.Wrap(TNSURL.OCClass.URLWithString(StrToNSStr(aURL))); if SharedApplication.canOpenURL(NSU) then SharedApplication.openUrl(NSU); end; {$ENDIF} {$IFDEF MSWINDOWS} function winUrl(const aURL: string): boolean; begin ShellExecute(0, 'open', pchar(aURL), nil, nil, 0); Result := True; end; {$ENDIF} {$IF defined(MACOS) AND not defined(IOS)} procedure macUrl(const aURL: String); begin _system(PAnsiChar(AnsiString('open ' + aURL))); end; {$ENDIF} procedure openUrl(const aURL: string); begin {$IFDEF ANDROID} andUrl(aURL); {$ENDIF} {$IFDEF MACOS} {$IFDEF IOS} iosUrl(aURL); {$ELSE} macUrl(aURL); {$ENDIF} {$ENDIF} {$IFDEF MSWINDOWS} winUrl(aURL); {$ENDIF} end; end. вот так на делфи
  9. Пост Равиль Зарипов (ZuBy) - сообщение в Помогите разобраться с потоком был отмечен как ответ   
    void __fastcall domThread::UpdateAnimation() { frm->aIndic->Visible  = false; frm->aIndic->Enabled  = false; } незнаю как на си будет, но примерно так
    void __fastcall domThread::Execute() { Synchronize( UpdateAnimation ); Terminate(); }
  10. Пост Равиль Зарипов (ZuBy) - сообщение в Отобразить маршрут при помощи Google Distance был отмечен как ответ   
  11. Пост Равиль Зарипов (ZuBy) - сообщение в Правый клик ListBox был отмечен как ответ   
    отвяжите TPopupMenu от TListBox
    procedure TForm4.ListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); var aItem: TListBoxItem; begin if Button = TMouseButton.mbRight then begin aItem := ListBox1.ItemByPoint(X, Y); if aItem = nil then exit; ListBox1.ItemIndex := aItem.Index; PopupMenu1.Popup(Screen.MousePos.X, Screen.MousePos.Y); end; end;  
  12. Пост Равиль Зарипов (ZuBy) - сообщение в Можно ли расположить MultyView внизу экрана был отмечен как ответ   
    из коробки такой возможности нет
    в примерах был пример для создания кастомного отображения
  13. Пост Равиль Зарипов (ZuBy) - сообщение в Ошибка при Deploy E4356 был отмечен как ответ   
    а перед этим билд делали?
  14. Пост Равиль Зарипов (ZuBy) - сообщение в GCMIntentService или Multiline Push and Local Notification был отмечен как ответ   
    несколько дней убили с Андреем (Andrey Efimov) на решение этой задачи
    За что ему большое спасибо, он доделал до рабочего варианта
    вот результат

    использовать fmx.zip
    скопировать fmx.dex.jar в папку с проектом далее по картинке компилируем и ждём пуш
  15. Пост Равиль Зарипов (ZuBy) - сообщение в Как правильно заполнит ListBox в потоке? был отмечен как ответ   
    если не принципиально использование TListBox, то используйте TListView
     
  16. Пост Равиль Зарипов (ZuBy) - сообщение в iOS фоновом режиме был отмечен как ответ   
    можно дать понять IOS что после сворачивания приложение будет работать с сенсором

  17. Пост Равиль Зарипов (ZuBy) - сообщение в Меню Android был отмечен как ответ   
    1) Отдельная форма с прозрачностью + ListBox/ListView
    2) TRectangle + ListBox/ListView
    3) MultiView + ListBox/ListView
    и тд...
    ловить кнопочку VK_MENU в событии OnKeyDown
  18. Пост Равиль Зарипов (ZuBy) - сообщение в Кто вызвал клавиатуру? был отмечен как ответ   
    наверное тот, который сейчас Focused?
  19. Пост Равиль Зарипов (ZuBy) - сообщение в Align кнопок был отмечен как ответ   
    1) скрываем все контролы
    2) меняем align при показе
    layName.Visible := true; layName.Align := TAlignLayout.Bottom; layName.Position.Y := layName.Position.Y + 1; layName.Align := TAlignLayout.Top; layName.RecalcSize; позиции сохраняются если всегда скрывать контролы с конца
  20. Пост Равиль Зарипов (ZuBy) - сообщение в Текст на битмапе был отмечен как ответ   
    procedure TForm1.Button1Click(Sender: TObject); var aBitmap: TBitmap; aRectF: TRectF; begin aBitmap := TBitmap.Create; aBitmap.SetSize(trunc(Image1.Width), trunc(Image1.Height)); aBitmap.Assign(Image1.Bitmap); aBitmap.Canvas.BeginScene; aRectF := RectF(aBitmap.Width - 100, aBitmap.Height - 25, aBitmap.Width, aBitmap.Height); aBitmap.Canvas.Fill.Color := $B4FFFFE5; aBitmap.Canvas.FillRect(aRectF, 0, 0, AllCorners, 1); aBitmap.Canvas.Font.Size := 18; aBitmap.Canvas.Fill.Color := TAlphaColorRec.Black; aBitmap.Canvas.FillText(aRectF, DateToStr(Date), false, 1, [], TTextAlign.Center, TTextAlign.Center); aBitmap.Canvas.EndScene; Image1.Bitmap.Assign(aBitmap); aBitmap.Free; end;  

  21. Пост Равиль Зарипов (ZuBy) - сообщение в Редактор ListView 2 - DynamicAppearance был отмечен как ответ   
    как-то так
    var   iTitle: TListItemText; begin   iTitle := AItem.Objects.FindDrawable('Text1') as TListItemText;   if iTitle <> nil then iTitle.Width:=ListView5.Width-85; end;
  22. Пост Равиль Зарипов (ZuBy) - сообщение в не получается загрузить фото в маркер был отмечен как ответ   
    нужно картинку загрузить в отдельный TBitmap и его потом присвоить маркеру
  23. Пост Равиль Зарипов (ZuBy) - сообщение в Mail.ru своими руками был отмечен как ответ   
    на сколько помню протокол закрыли для третьих лиц еще в 12 году, т.к. раньше у меня был собственный клиент
    MRA или MMP точно не помню как назывался
  24. Пост Равиль Зарипов (ZuBy) - сообщение в Не выравнивается текст в итеме был отмечен как ответ   
    Попробуй убрать styledsettings
×
×
  • Создать...