-
Постов
2 517 -
Зарегистрирован
-
Посещение
-
Победитель дней
264
Ответы сообщества
-
Пост Равиль Зарипов (ZuBy) - сообщение в [TLabel] Вычисление ширины текста. был отмечен как ответ
Label1.AutoSize := true;
-
Пост Равиль Зарипов (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;
-
Пост Равиль Зарипов (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
сделать как функцию и тд..
-
Пост Равиль Зарипов (ZuBy) - сообщение в Определение build configuration был отмечен как ответ
FDebugConfig := false; {$IFDEF DEBUG} FDebugConfig := true; {$ENDIF}
-
Пост Равиль Зарипов (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; вот так правильно
-
Пост Равиль Зарипов (ZuBy) - сообщение в Прозрачная иконка приложения был отмечен как ответ
это айос обрезает, никак не сделать прозрачные
-
Пост Равиль Зарипов (ZuBy) - сообщение в RAD Berlin Upd1 & XCode был отмечен как ответ
xcode 8 и новый paserver все пучком
-
Пост Равиль Зарипов (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. вот так на делфи
-
Пост Равиль Зарипов (ZuBy) - сообщение в Помогите разобраться с потоком был отмечен как ответ
void __fastcall domThread::UpdateAnimation() { frm->aIndic->Visible = false; frm->aIndic->Enabled = false; } незнаю как на си будет, но примерно так
void __fastcall domThread::Execute() { Synchronize( UpdateAnimation ); Terminate(); } -
Пост Равиль Зарипов (ZuBy) - сообщение в Отобразить маршрут при помощи Google Distance был отмечен как ответ
-
Пост Равиль Зарипов (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;
-
Пост Равиль Зарипов (ZuBy) - сообщение в Можно ли расположить MultyView внизу экрана был отмечен как ответ
из коробки такой возможности нет
в примерах был пример для создания кастомного отображения
-
Пост Равиль Зарипов (ZuBy) - сообщение в Как правильно загружать аватары пользователей по типу как это делают мобильные приложения. был отмечен как ответ
-
Пост Равиль Зарипов (ZuBy) - сообщение в Ошибка при Deploy E4356 был отмечен как ответ
а перед этим билд делали?
-
Пост Равиль Зарипов (ZuBy) - сообщение в GCMIntentService или Multiline Push and Local Notification был отмечен как ответ
несколько дней убили с Андреем (Andrey Efimov) на решение этой задачи
За что ему большое спасибо, он доделал до рабочего варианта
вот результат
использовать fmx.zip
скопировать fmx.dex.jar в папку с проектом далее по картинке компилируем и ждём пуш
-
Пост Равиль Зарипов (ZuBy) - сообщение в Как правильно заполнит ListBox в потоке? был отмечен как ответ
если не принципиально использование TListBox, то используйте TListView
-
Пост Равиль Зарипов (ZuBy) - сообщение в iOS фоновом режиме был отмечен как ответ
можно дать понять IOS что после сворачивания приложение будет работать с сенсором
-
Пост Равиль Зарипов (ZuBy) - сообщение в Меню Android был отмечен как ответ
1) Отдельная форма с прозрачностью + ListBox/ListView
2) TRectangle + ListBox/ListView
3) MultiView + ListBox/ListView
и тд...
ловить кнопочку VK_MENU в событии OnKeyDown
-
Пост Равиль Зарипов (ZuBy) - сообщение в Кто вызвал клавиатуру? был отмечен как ответ
наверное тот, который сейчас Focused?
-
Пост Равиль Зарипов (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; позиции сохраняются если всегда скрывать контролы с конца
-
Пост Равиль Зарипов (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;
-
Пост Равиль Зарипов (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; -
Пост Равиль Зарипов (ZuBy) - сообщение в не получается загрузить фото в маркер был отмечен как ответ
нужно картинку загрузить в отдельный TBitmap и его потом присвоить маркеру
-
Пост Равиль Зарипов (ZuBy) - сообщение в Mail.ru своими руками был отмечен как ответ
на сколько помню протокол закрыли для третьих лиц еще в 12 году, т.к. раньше у меня был собственный клиент
MRA или MMP точно не помню как назывался
-
Пост Равиль Зарипов (ZuBy) - сообщение в Не выравнивается текст в итеме был отмечен как ответ
Попробуй убрать styledsettings