Slym

для начала не совсем понятно что ты пытаешься сделать: 1. Редактор кастомных форм - но как ты будешь кастомные обработчики событий делать?.. 2. или же просто сохранение размеров положения контролов на форме - тогда это избыточный подход 3. а вообще дельфисты любят велосипеды

Есть предложение работать с фреймами. TFrame можно сохранять и загружать как и TForm и визуальный редактор есть, и события сохранятся, и после загрузки отображать на пустую форму

0. Собственно для каких целей этот изврат? Самообразование, но зачем если это нигде не практикуется? 1. Потому что методы не принадлежат Panel, а только TMain_Form и без TMain_Form сохранение событий не имеет смысла 2. Ты загружаешь уже загруженную форму? не думал куда деваются старые контролы? уничтожаются ли они? тупо перезаписываются? или же

logcat в руки и фпиред

стиль object TRectangle StyleName = 'Panel1Style1' Align = Center Fill.Color = xFFF0F0F0 HitTest = False Size.Width = 120.000000000000000000 Size.Height = 120.000000000000000000 Size.PlatformDefault = False Stroke.Color = xFFCCCCCC XRadius = 30.000000000000000000 YRadius = 30.000000000000000000 end XRadius,YRadius

Сравнить (как файлы) можно размеры... Разные - значит обновлять. Как данные - сравнением данных - сохранить как временную базу и позаписьно сравнивать

Как применено? Может оно и не вызывается?

Надо дождаться завершения тасков например так: procedure TmainForm.FormClose(Sender: TObject; var Action: TCloseAction); begin //wait all tasks finished var ThreadPoolStats:=TThreadPoolStats.Default; if ThreadPoolStats.IdleWorkerThreadCount<>ThreadPoolStats.WorkerThreadCount then begin Action:=TCloseAction.caNone; TThread.ForceQueue(nil, procedure begin Application.MainForm.Close; end,300); end; end;

без тестового проекта и файла... даже сравнить не с чем.

о... да мы меряемся? на 1000: 250-333fps как тебе такое Sulion 10000... fps3.zip

А зачем постоянно bringtofront? одного раза не достаточно? там реально медленно... я полагаю нужна глубина сцены? многие ее делают слоями: дальний фон (горы), ближний фон (лес), сцена (персы), и воздух (падающий снег) кидаем 4 лейаута и на них распределяем спрайты

Загружать картинки не в Stream а в битмап сразу source.zip 1000

Не красиво! Красиво: procedure TForm1.Button5Click(Sender: TObject); const s='18:C0:4D:7E:E6:B2'; // MAC адрес сетевой платы var Data:string; Bytes:TBytes; IdUDPClient1:TIdUDPClient; begin Data:=''; for var bt in s.Split([':']) do Data:=Data+chr(StrToInt('$'+bt)); for var i:=0 to 3 do Data:=Data+Data; Data:=StringOfChar(#$FF,6)+Data; Bytes:=TEncoding.ANSI.GetBytes(Data); IdUDPClient1:=TIdUDPClient.Create(nil); try IdUDPClient1.SendBuffer('40.240.8.50',9, TIdBytes(Bytes)); finally IdUDPClient1.Free; end; end;

Плохая идея организовывать протокол на задержках (delay) в системах с вытесняющей многозадачностью. Только разделители (csv, json, PChar(#0)) или префиксы длины (http Content-Length) или жесткий фиксированный размер (packed record). Человеsleep(1000)ко читаеsleep(1000)мый теsleep(1000)кст - каково тебе И и ии ии ииилон мм мма мммааа...

Result := MemStream.ReadComponent(nil);