-
Постов
423 -
Зарегистрирован
-
Посещение
Весь контент sviat9440
-
У меня он после этого ваще не буилдерится Интересно. На всяк случай спрошу: В Deployment точно library\lib\armeabi\ отключили? Там еще есть library\lib\armeabiv7a\. Важно не перепутать. И то и то
-
Хотя в моем приложени довольно таки не плохо смотрится отступ всей клиентский панели справа и слева на 20.(У меня 2 мультивью с разных сторон)
-
Можно сделать так: если кнопка сверху, то пусть она находится на панели, которая привязана к верху. А сам мультивью на панели Client, тогда мультивью не будет загораживать кнопки, которая сверху. Аналогично можно сделать и с кнопками, которые привязаны к низу, (Я таких не встречал)
-
У меня он после этого ваще не буилдерится
-
Значит здесь нет служебных символов и функции переключения раскладки, пример довольно таки примитивный, но для моего приложения мне больше ничего не нужно. example_virtual_keyboard.zip
-
Ок щас... только это не элемент а проект.
-
Я использую это, подходит и для андроид и для виндовс, на остальных не пробовал. Но при сохранении зашифрованного текста в файл, вместо символов - вопросительные знаки. Как это решить? Пробовал так: var s: string; procedure Code(var text: string; decode: boolean); begin if decode then sign := -1 else sign := 1; text := chr(ord(text) + sign * end; procedure TForm1.Button1Click(Sender: TObject); begin s := Memo1.Text; code(s, false); Memo1.Text := s; end; procedure TForm1.Button2Click(Sender: TObject); begin code(s, true); Memo1.Text := s; end; Но это очень просто, любой знаток может расшифровать.
-
var s: string; procedure Code(var text: string; password: string; decode: boolean); var i, PasswordLength: integer; sign: shortint; begin PasswordLength := length(password); if PasswordLength = 0 then Exit; if decode then sign := -1 else sign := 1; for i := 1 to Length(text) do text := chr(ord(text) + sign * ord(password[i mod PasswordLength + 1])); end; procedure TForm1.Button1Click(Sender: TObject); begin s := Memo1.Text; code(s, Edit1.Text, false); Memo1.Text := s; end; procedure TForm1.Button2Click(Sender: TObject); begin code(s, Edit1.Text, true); Memo1.Text := s; end;
-
Это можно исправить, установить для кнопки margins, справа или слева значение, равное ToushAreaSize мультивью.
-
Добрый день, у меня вопрос к участникам форума: Как правильно задать windowborderstyle. Например если мы стилизуем кнопку, то в TStyleBook мы добавляем компонент TLayout м названием buttonstyle, и бросаем в него елементы TRectangle и TText, для фона и текста (caption) кнопки. А вот как правильно сделать windowborderstyle?
-
Проблема при загрузке файла с сервера в TMemoryStream. Он грузит нормально, но пока этот процесс не закончиться, то программа "спит", т.е. нельзя нажать никакую кнопку, в общем ничего, как будто картинка на экране. Можно ли сделать так, чтобы во время загрузки работал Animindicator, и прогресс бар загрузки. Заранее спасибо.
-
А сложно ли его сделать? Я сделал, только очень виснет, там порядка 35 кнопок (TButton), и (это нужно было для приложения) при нажатии на кнопку, программа проверяет сколько символов в строке, и если их не больше 15 (т.к. это username), то добавляет букву в файл. На компе нормально, но если отгружаю на телефон, то при нажатии на кнопку, он думает 3-4 сек.