Лидеры

Спасибо за добрые слова, редко когда их можно услышать Если хотите что-нибудь новенького, то сформулируйте это для начала хотя бы на родном языке так, чтобы окружающие могли понять. После этого записываем предложение на языке Шекспира и Welcome to https://quality.embarcadero.com В данном случае это не отписка, а вполне реальное объяснение корпоративных правил. Для выполнения любых работ нужно формальное обоснование и одобрение насяльника. Пожелание, или отчет об ошибке от пользователя это довольно веская причина для того, чтобы работы были запланированы.

Вот так делал для себя PresentedButtonsRecalPosition.7z

Elite Developers – Show us your Cool Apps! Join our club of elite developers by showcasing your app and enter to win $2,000 in Embarcadero Credits! How does it work? 1) Submit a title for your cool app 2) Provide a description for your submission 3) Share your short video URL or request a recording (Date & Time) 4) MVPs & Embarcadero Evangelists vote 5) Winner each month - $2,000 toward any of our products This contest awards prizes and showcases cool applications built using Embarcadero's RAD Studio, Delphi and C++Builder. We are looking for cool applications across all industries including personal use, using any type of application you can build with our products. Your cool app can use VCL, FireMonkey, DataSnap, EMS, FireDAC, InterBase and any other components, libraries, services, sites, infrastructures, APIs, devices and other capabilities. As part of your contest entry, we want you to create a 5 minute video (or please request a date/time with David I and/or Jim McKeeth for a recording session and we'll help you) that shows your cool code, UI, technology, component use, architecture, algorithms, data structures, unique solution to a problem, business solution, game, world changing idea and any other app that you want to show off. The contest will be an ongoing monthly contest so there is no specific deadline for submission. We will be giving each monthly winner a $2000 coupon that can be used towards the purchase of Embarcadero products from our shop site (starting May 1, 2016), while the contest is running. In addition, we will highlight the winning submission on our YouTube channel along with other submissions so that your fellow Embarcadero community members will be able to admire your work. You only need to submit your cool app once. Embarcadero developer relations team, Embarcadero software consultants and Embarcadero MVPs will vote each month to determine the monthly winner. Embarcadero employees are not eligible to enter the contest. Embarcadero MVPs are allowed to enter the contest but will not be allowed to vote for their own entry. For examples of short application videos, check out the Digifort IP Surveillance System video by Eric Bonihla (Digifort) and the Visualizing Mathematical Functions video by Anders Ohlsson (Embarcadero MVP). You can use any screen recording software to create your 5 minute Cool App Contest video. At Embarcadero we use Camtasia for Windows and Camtasia for Mac by TechSmith (they have trial versions available if you are interested). TechSmith has tutorials available for Camtasia for Windows and Camtasia for Mac. Your video should be recorded and rendered at or near 1920x1080 resolution. Please make sure that your IDE editor’s text font size is set to 12 point or larger (David I likes to use Lucida Console 14 point). If you intend to enter, please use the submission form (short survey) to tell us about your Embarcadero Cool App. Bookmark this survey page URL and start your cool app entry (or entries) today and then update your submission(s) when you have completed your video or want to request a date/time with us for a recording session. The submission (Survey Monkey) form can be found at https://www.surveymonkey.com/r/V99D7YR We like all types of applications – desktop, mobile, server, cloud, personal, professional, industrial, etc. There is no limit to the type of application, except that it must be a cool app. The app does not have to be a for sale app. The app does not have to be open source based. The app can be used inside a company or delivered to specific users. The app just has to be wonderful. There are no other rules except what is in the email, what is in the submission/survey form header and the final question that has you put your name, email and company to give us permission to publicly showcase your app (whether it wins a monthly prize or not) and to use some or all of the textual information and other information you provide as part of us showing your cool app video to the world. We look forward to seeing all of the cool apps our Embarcadero community members have built! If you have any questions or need additional information, please contact me. David Intersimone "David I" davidi@embarcadero.com Просмотр полной статьи

TPresentedScrollBox умеет такое, правда размещением компонентов и пересчет позиции компонентов нужно предусмотреть самому. Могу завтра скинуть пример, недавно для себя делал

Остаетесь надеяться что IDERA не подведет и в течении года хотя бы могли компилировать "Hello World". Может Делфи оживит эту платформу, главное действовать быстро, пока ниша пуста

Microsoft сделала бесплатной платформу для разработки кроссплатформенных приложений Xamarin для пользователей Visual Studio http://www.windowscentral.com/xamarin-tools-will-be-free-visual-studio-customers-runtime-be-open-sourced Вот те на! IDERA ждем ответных ходов!

Если я правильно помню, то это сторона квадрата в пикселях. Если возвращает 1000, то это значит, что допустимо хранение изображение размером до 1000 х 1000. На самом деле TBitmap в своей основе использует текстуру для хранения картинки. Поэтому этот размер и ограничение зависит от графического процессора.

Ура! Заработало с TBitmapSurface.StretchFrom : ABitmapSurface:=TBitmapSurface.Create; ABitmapSurfaceResize:=TBitmapSurface.Create; TBitmapCodecManager.LoadFromFile('d:\source.png',ABitmapSurface); // png 250x250 MaxImageSize:=50; ABitmapSurfaceResize.StretchFrom(ABitmapSurface,MaxImageSize,MaxImageSize); TBitmapCodecManager.SaveToFile('d:\source_resize.png', ABitmapSurfaceResize); Все работает отменно :-) Итоговый код для загрузки картинки из потока и устранения ошибки "Bitmap size too big": Uses FMX.Graphics, FMX.Surfaces; function GetMaxImageSize : Integer; begin Result:=TCanvasManager.DefaultCanvas.GetAttribute(TCanvasAttribute.MaxBitmapSize); end; procedure CheckAndLoadFromStream(const AStream : TStream; const ABitmap : TBitmap); Var MaxImageSize : Integer; ABitmapSurface,ABitmapSurfaceResize : TBitmapSurface; begin ABitmapSurface:=TBitmapSurface.Create; AStream.Position:=0; TBitmapCodecManager.LoadFromStream(AStream,ABitmapSurface); MaxImageSize:=GetMaxImageSize; if ABitmapSurface.Height>MaxImageSize then begin ABitmapSurfaceResize:=TBitmapSurface.Create; ABitmapSurfaceResize.StretchFrom(ABitmapSurface,MaxImageSize,MaxImageSize); if Assigned(ABitmap) then ABitmap.Assign(ABitmapSurfaceResize); ABitmapSurfaceResize.Free; end Else if Assigned(ABitmap) then ABitmap.Assign(ABitmapSurface); ABitmapSurface.Free; end; Всем спасибо за помощь! Особая благодарность Ярославу! P.S. Процедура для частного случая с квадратным изображением. Для меня осталось не до конца ясным значение возвращаемое TCanvasManager.DefaultCanvas.GetAttribute(TCanvasAttribute.MaxBitmapSize), исходил из догадки что это максимальный размер изображения по вертикали в пикселях. Может Ярослав поставит все точки и разъяснит этот вопрос?

Нет. Это значит, что не нужно загружать 4 Мб фотографию в TImage с целью отобразить ее в итоге в размере 400х200. Нет, просто присваивайте в Bitmap TBtmapSurface. Bitmap.Assign(BitmapSurface) Методы по загрузки из файлов и потоков есть. Смотрите TBitmapCodecManager

Там нет очень важной функции - копирования объектов.

Свой дизайнер нужен для того, чтобы удобно редактировать стили. Стандартный дизайнер, входящий в Delphi, не очень удобный. Есть редактор MonkeyStyler, и даже не очень дорогой, но зайдя на сайт я обнаружил что он не продается, возможно снят с поддержки. Есть библиотека "StyleBook Resources Text Editor for XE5" от Marco Cantu, но он распространяется в виде bpl и для 10 seatle нет библиотеки. Уж очень не хочется работать от текстового парсера, по крайней мере самому его писать... Так есть способ или все-таки принципиально односторонний экспорт реализован, из TStyleBook.Resource в TStyleBook.Style, и обратно никак?