-
Постов
423 -
Зарегистрирован
-
Посещение
Активность репутации
-
sviat9440 получил реакцию от AngryOwl в Форма не сворачивается при клике на иконке в панели задач
Вроде нашел решение проблемы.
FMX.Platform.Win.zip
-
sviat9440 отреагировална Равиль Зарипов (ZuBy) в Форма не сворачивается при клике на иконке в панели задач
эта старая версия, вот здесь сделал по другому
-
sviat9440 отреагировална rareMax в [XE8][Win][Android] AES-256 Шифрование и LockBox
Download: https://github.com/TurboPack/LockBox/archive/master.zip
https://github.com/TurboPack/LockBox
LockBox-master.zip
-
sviat9440 отреагировална Равиль Зарипов (ZuBy) в [TLabel] Вычисление ширины текста.
Label1.AutoSize := true;
-
sviat9440 отреагировална Vitaldj в wsMaximized или почему форма "вылазит" за пределы экрана
Слушай, а чем ты руководствовался, когда делал стилизованную рамку? Скажу напрямую, я прошел уроки Ярослава, в котором, целый урок посвящен именно стилизации рамки. Сказать, что ты сделал что-то не то, не могу сказать. Могу лишь сказать, что ты сделал совсем не то! Ты не использовал нужные компоненты вообще! Все перечислять не буду, допустим, для стилизации краев рамки (бока и низ) используется ActiveStyleObject. Ты зачем то использовал TRectangle. Я не обладаю глубокими познаниями в стилях, но по моим сведениям ты что то сделал совсем не то. Единственное, что могу предложить, если ты делаешь проект и тебе очень актуальна эта тема, это пройти курс Ярослава.
-
sviat9440 отреагировална Pax Beach в Методы шифрования delphi
Для каких задач нужно шифрование?
Если нужно шифровать текст для передачи по сети, то с этим справятся DataSnap и Indy.
А если файлы шифровать, и чтобы работало на всех платформах, возьмите открытый код стандартных методов шифрования AES, RSA, DES и т.п. Например, здесь, и используйте в своем проекте.
Конечно, давно пора это дело причесать под XE и Berlin и выложить для сообщества. Только не забываете про различие UNIX и Windows нумерации символов в String.
-
sviat9440 отреагировална Равиль Зарипов (ZuBy) в Перехват перехода по ссылкам
если память не изменяет там надо еще %1 добавить или что-то подобное, туда параметры должны писаться
ага, точно
https://msdn.microsoft.com/en-us/library/aa767914(v=vs.85).aspx
-
sviat9440 отреагировална Равиль Зарипов (ZuBy) в Проблема в работоспособности приложения под андроид
Rectangle1.Parent := nil; FreeAndNil(Rectangle1); чтобы пустая ссылка у родителя не висела
-
sviat9440 отреагировална Камышев Александр в Методы шифрования delphi
из известных blowfish и ГОСТ 28147-89, у меня библиотеки на сях, вот тут обсуждают реализацию blowfish на object pascal http://www.sql.ru/forum/1192261/ishodnik-blowfish-ne-poymu-kak-s-nim-rabotat
ГОСТ 28147-89 - алгоритм шифрования, принят к использованию в госструктурах, но это так, к слову
-
sviat9440 отреагировална Равиль Зарипов (ZuBy) в Определение build configuration
FDebugConfig := false; {$IFDEF DEBUG} FDebugConfig := true; {$ENDIF}
-
sviat9440 отреагировална sinuke в Белый splash
я делал вот по этому руководству - http://delphifmandroid.blogspot.com.by/2014/10/splashscreen-xe7.html. все получилось, все растянулось. но все равно после сплэша появляется черный экран перед отрисовкой интерфейса
-
-
-
-
sviat9440 отреагировална Равиль Зарипов (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; вот так правильно
-
sviat9440 отреагировална Rusland в Проблема в работоспособности приложения под андроид
Вряд ли тут дело в версии. Скорее всего поверх стоит какой-нибудь layout. Лучше попробовать повторить на тестовом примере и если повторится, то выложить сюда код примера для разбора
-
sviat9440 отреагировална kami в Автоматическая расстановка End-ов
По моему опыту: автодополнение кода перестает работать при
Длинном методе (вложенные процедуры/функции не в счет) Если между методами (не внутри, а именно между) есть комментарии Если большая вложенность всяких циклов, if и т.п. Если встречаются конструкции, которые форматтер (Ctrl + D) обрабатывает неправильно (некорректно просчитывает отступы). Помогает явная вставка Begin/end или, как было пару раз с array of record x:type1; y:type2; end - вынести объявление типа отдельно. Иногда (но очень редко) с директивами условной компиляции. Когда Луна входит в созвездие Песца. Если случился пункт 6 - помогает закрыть вкладку модуля и открыть ее заново. В особо сложных случаях - перезапустить IDE.
-
-
sviat9440 отреагировална Евгений Корепов в JSON
Вот пример кода для вашего случая
Var Source : String; JSON : TJSONObject; JSONValue : TJSONValue; JSONArray : TJSONArray; I : Integer; begin Source:='{"data":["val1", "val2", "val3"]}'; JSON:=TJSONObject(TJSONObject.ParseJSONValue(Source)); if Not Assigned(JSON) then Exit; if JSON.TryGetValue('data',JSONValue) then if TJSONObject(JSONValue).ClassName.Equals('TJSONArray') then begin JSONArray:=TJSONArray(JSONValue); if Assigned(JSONArray) then for I := 0 to JSONArray.Count-1 do Memo.Lines.Add(JSONArray.Items[I].Value); end; end; Для проверок неудачного парсинга есть такие инструменты как "if Assigned(JSON) then" и "JSON.TryGetValue('data',JSONValue)"
-
sviat9440 отреагировална rareMax в Kernow Software FMX Components for XE7, XE8 & XE10 Seattle
Давненько еще нашел этот пак компонентов, но не было времени ознакомиться с ним ближе. Сегодня посмотрел демки - думаю нашему сообществу понравится эта библиотека. Описание оригинальное с гитхаба.
Как скачать:
GetIT(нет лицензии на студию? смотрим ниже) Прямая ссылка на последнюю версию С помощью GIT-клиента: https://github.com/gmurt/KernowSoftwareFMX.git .Можете либо встроенным в делфи, либо своим любимым. Могу посоветовать SourceTreeApp. Рекомендую именно этот способ - вам не придется постоянно перекачивать компонент для обновления. Достаточно в приложении нажать одну кнопку - и компонент обновился.
Kernow Software FMX Components for XE7, XE8 & XE10 Seattle.
(May work with earlier versions but untested)
Firemonkey Slide menu, ListView and Segment buttons for Delphi. Inherits from a non-visual component to keep things simple.
Includes demo with source. Demo App also available on app store: https://itunes.apple.com/gb/app/kscomponents-reference/id1031179701?mt=8
Feel free to support the components with a donation ;-)
If you'd like to support the ksComponents project, you can do so at the following link ;-)
http://www.kernow-software.co.uk/?page_id=397
TksTableView
Cached table view provides native performance regardless of the number of text/items/graphics added support for embedded switches support for embedded buttons support for embedded segment buttons Canvas style methods for adding text/shapes/images Built-in support for Image, Title, SubTitle, Detail and Accessory elements Check list option support - single check or multi check Custom check mark colours Image cropping (square, round rect or circle) "Indicator" colours - add colour indicators to each row "Sticky" headers TksSlideMenu
set menu background colour set selected item colour set font colours add images to items fade background left or right aligned menus inherites from non-visual Tcomponent for quick integration into existing projects uses bitmap caching for optimised performance TksSegmentButtons
segment button component support for iOS style badges TksFormTransition
component for animating transitions between forms TksTabControl
Tab control component with support for different colours/themes Large number of built-in icons Support for iOS style badges TksNetHttpClient
enhanced http client with ASync Get method TksTileMenu
simple but effective main menu component TksChatView
component for building iOS style chat applications TksSpeedButton
TSpeedButton descendant with support for iOS style badges Any suggestions for updates are welcome :-)
-
-
sviat9440 отреагировална rareMax в Составление URL в HttpClient
Ага, нашел, кажется
class function THello.AdvancedShort(const URL, APIkey: String; const AppID: Int64; Domen, Folder: String; AdvertType: TAdvertType): String; var HTTP: THTTPClient; URI: TURI; begin HTTP := THTTPClient.Create; try //---cut URI.AddParameter('key', APIkey); URI.AddParameter('uid', AppID.ToString); URI.AddParameter('url', URL); Result := HTTP.Execute('GET', URI).ContentAsString.Trim; finally HTTP.Free; end; end; -
sviat9440 отреагировална sviat9440 в Составление URL в HttpClient
System.Net.URLClient.TURI
кажется нашел
-
-