Лидеры

Доброго дня. На всякий случай - видимо серьезно поменялась политика, или маркетологи, не суть - C++Builder® 10.1 Berlin Starter Edition бесплатно) Единственное - от непомерной жадности нашей (как я подозреваю) при попытке зайти с любого браузера (даже через прокси), редиректит, и добавить товар в корзину невозможно. У меня получилось через Tor. Пришло на почту письмо с лицензией - одним словом, все как положено. Возможно - это своеобразный ответ на закрытие Appmethod. Зачем поддерживать еще один товар, если можно поступить так. Ссылка - https://www.embarcadero.com/ru/app-development-tools-store/cbuilder-starter-promotional-edition (через Tor вырезать /ru))))

Uses System.DateUtils. MinutesBetween(0, TimeEdit.Time)

Сделайте Background контейнером для Content-а.

Активный итем или последний добавленный? На дельфи "скроллировать" можно с помощью TListbox.ScrollToItem(Item). Если последний добавленный, то сначала добавляем, а потом скролл к нему. Например вот так: Listbox1.BeginUpdate; try aListBoxItem := TListBoxItem.Create(Listbox1); aListBoxItem.Text := 'text ' + random(500).ToString; Listbox1.AddObject(aListBoxItem); finally Listbox1.EndUpdate; end; Listbox1.ScrollToItem(aListBoxItem);

http://docwiki.embarcadero.com/RADStudio/Seattle/en/Using_the_Parallel_Programming_Library

Теперь и в странах СНГ можно приобрести билдер стартер бесплатно: https://allsoft.ru/offers/c-builder-berlin-so-skidkoy/?clear_cache=Y

http://forum.vingrad.ru/forum/topic-60076.html

Это просто способ завлечь потенциальных программистов, подсадить их на C++Builder. Расчет на то что на Starter все равно ничего путного написать нельзя... поэтому купят версию Pro или выше. Странно что не проводят аналогичные акции на Delphi Starter.

Под виндой все же рекомендуется использовать не виндовый CreateThread, а враппер BeginThread, если уж наследника TThread по каким-то причинам вы избегаете

они как раз не нативные. просто 700 мб всякой явы уже установлено в систему а делфи с собой все тянет. и QT и Xamarin делают все точно так же

Похоже Вы разместили Rectangle 'background' поверх других контролов. Попробуйте нажать на нем правой кнопкой мыши и в контекстном меню выбрать Control -> Send To Back

А обычный класс TThread не подходит?

Вот нашел код для записи видео (проверил - работает): unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, Androidapi.JNI.GraphicsContentViewText, System.Messaging, // TMessageManager FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Controls.Presentation; type TForm1 = class(TForm) BtnRecord: TButton; Label1: TLabel; procedure BtnRecordClick(Sender: TObject); private { Private declarations } procedure HandleActivityMessage(const Sender: TObject; const M: TMessage); function OnActivityResult(RequestCode, ResultCode: Integer; Data: JIntent): Boolean; public { Public declarations } FMessageSubscriptionID:integer; end; var Form1: TForm1; const RECORD_VIDEO = 9; implementation {$R *.fmx} uses System.IOUtils, Androidapi.JNI.Provider, Androidapi.JNI.App, Androidapi.JNI.Net, Androidapi.JNIBridge, Androidapi.Helpers, Androidapi.JNI.JavaTypes, Androidapi.JNI.Os; procedure TForm1.BtnRecordClick(Sender: TObject); var VideoIntent: JIntent; videoUri: Jnet_Uri; AFile: JFile; FileName: TFileName; begin FMessageSubscriptionID := TMessageManager.DefaultManager.SubscribeToMessage( TMessageResultNotification, HandleActivityMessage); VideoIntent := TJIntent.JavaClass.init( TJMediaStore.JavaClass.ACTION_VIDEO_CAPTURE ); if ( VideoIntent.resolveActivity( SharedActivityContext.getPackageManager() ) <> nil) then begin FileName := TPath.Combine( TPath.GetSharedDocumentsPath, 'recording.mp4'); // см. /storage/sdcard0/Documents AFile:=TJFile.JavaClass.init( StringToJString(FileName)); videoUri:=TJnet_Uri.JavaClass.fromFile(AFile); VideoIntent.putExtra( TJMediaStore.JavaClass.EXTRA_OUTPUT, TJParcelable.Wrap((videoUri as ILocalObject).GetObjectID)); SharedActivity.startActivityForResult(VideoIntent, RECORD_VIDEO); end; end; procedure TForm1.HandleActivityMessage(const Sender: TObject; const M: TMessage); begin if M is TMessageResultNotification then OnActivityResult( TMessageResultNotification(M).RequestCode, TMessageResultNotification(M).ResultCode, TMessageResultNotification(M).Value); end; function TForm1.OnActivityResult(RequestCode, ResultCode: Integer; Data: JIntent): Boolean; begin Result := False; TMessageManager.DefaultManager.Unsubscribe( TMessageResultNotification, FMessageSubscriptionID); FMessageSubscriptionID := 0; if RequestCode = RECORD_VIDEO then begin if ResultCode = TJActivity.JavaClass.RESULT_OK then begin TThread.Queue(nil, procedure begin Label1.Text:='recording completed'; Invalidate; end); end; end; end; end. Пишет стандартной программой и сохраняет под названием recording.mp4 Если нужно просто писать видео, то подойдет.

Но если про него кто-то помнит (держит ссылку), то зомби будет продолжать влачить существование.

Оказывается есть возможность вызывать javascript: WebBrowser1.EvaluateJavaScript('alert("OK")');

program Project12; {$APPTYPE CONSOLE} {$R *.res} uses System.TimeSpan, System.SysUtils; begin Writeln(TTimeSpan.Create(0, 2, 30, 0, 0).TotalMinutes.ToString); Readln; end.

Да, насчет стилей - контролам в хелп, думаю, уже пора добавлять еще одну вкладку к методам и событиям - Стиль