estra
Пользователи-
Постов
369 -
Зарегистрирован
-
Посещение
-
Победитель дней
20
Весь контент estra
-
var Buttons: array[0..5] of TButton; procedure TForm1.FormCreate(Sender: TObject); var i, j: Integer; begin for i := 0 to 5 do Buttons[i] := FindComponent( Format( 'Button%d', [i+1] ) ) as TButton; Randomize; for i := 1 to 1000 do begin j := Random( 5 ); Buttons[j].Position.Y := Buttons[j].Position.Y + Buttons[j+1].Position.Y; Buttons[j+1].Position.Y := Buttons[j].Position.Y - Buttons[j+1].Position.Y; Buttons[j].Position.Y := Buttons[j].Position.Y - Buttons[j+1].Position.Y; end; end; RandomButton.zip
-
Провел небольшой эксперимент в XE8. За неимением полных исходников кое-что пришлось подправить/закомментировать... Эксперимент 1: Если цикловые переменные сделать глобальными (что абсолютно не логично, но судя по выложенному вами фрагменту кода у вас так и есть), то получаем соответствующее предупреждение. Эксперимент 2: Если переменные локальные, всё компилируется без каких либо проблем. Если вместо закомментированных строк вставить вызов какой либо процедуры, например ShowMessage(''), то ни к каким проблемам это не приводит...
-
Всем привет! Если кто знает как решить этот вопрос, поделитесь решением, пожалуйста.
-
как то так procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if Key = vkHardwareBack then // если закрывать не нужно, то begin // делай что нужно Key := 0; KeyChar := #0; end; end;
-
RSP-9736: Incorrect operation of breakpoints
-
Один из багов, критический, который я заводил на баг-трекере, пофиксили. Это хорошо, но почему на баг-трекере не меняют статус для исправленных заявок, и узнавать об этом приходится через ручной поиск в fix листе. Не солидно, товарищи разработчики, неужели так сложно статус поменять...
-
У меня по XE7 3 репорта с приоритетом Major и 1 с приоритетом Critical, и никакой реакции, так что Ваш Minor имеет все шансы не быть исправленным никогда
-
Разработчики из Embarcadero похоже не реагируют на баг репорты в quality.embarcadero.com. Единственное, что они сделали, потерли комментарии к одной из моих записей
-
Ок, прикинемся нубами и подождем объявы на офф. сайте
-
Но ведь образ уже доступен для скачивания - delphicbuilder_xe8_win.iso
-
XE8 уже вышла, где скачать компоненты FGX для нее?
-
Кто нибудь сталкивался с тем, что "Project -> Resource and Images ..." глючит (XE7)? Добавляю через этот пункт картинку в ресурсы, собираю, пытаюсь достать (через LoadFromResource) и получаю ошибку - нет такого ресурса. Однозначного рецепта лечения нет, нужно опять открыть это окно, потыкать там курсором, пересобрать проект... Это помогает, но не всегда с первого (и даже второго, третьего ...) раза. Я один тек парюсь с этими ресурсами, или может кто-то еще с этим сталкивался?
-
За модуль спасибо, при случае протестирую. Хотя, к слову, сколько уже приложений на FM было написано, никогда они при закрытии не вылетали с fault(11). Хотя я не раз ловил эту ошибку на старте приложения (особенно в приложениях с несколькими формами), есть ли у Вас решение на этот случай?
-
Поддержка MultiTouch + Gestures в XE4, прочтите 6-ой раздел (а лучше всю статью целиком), должно помочь.
-
А клавише "Enter" в качестве подтверждения разве не подходит?
-
А чем не устраивает Vcl.Imaging.jpeg?
-
что то есть тут (или тут)
-
Может, это тот самый редкий случай, когда прога с "конкретным" функционалом "виснет" на каком либо "конкретном" устройстве?.. (это был риторический вопрос) Я столкнулся с такой ситуацией когда нужно было включить вспышку на аппарате Huawai. У вас есть возможность протестировать свой код на другом устройстве?
-
Что подсказать то? Пример есть в архиве с компонентом, в XE7 Upd1 все нормально работает. Если у вас имеются проблемы, выкладывайте "проблемный" пример, поглядим...
-
Похоже, вы правы. Может Ярослав прокомментирует эту ситуацию. Я сделал так: unit Unit2; interface uses {$IF DECLARED(TFmxObject)}FMX.Graphics{$ELSE}VCL.Graphics{$ENDIF}; function MakeBitmap: TBitmap; implementation function MakeBitmap: TBitmap; begin Result := TBitmap.Create; Result.SetSize( 100, 100 ); Result.Canvas.Ellipse( 0, 0, 100, 100 ); end; end. Использую: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, Unit2, FMX.StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button1Click(Sender: TObject); begin Canvas.DrawBitmap( MakeBitmap, RectF( 0, 0, 100, 100 ), RectF( 0, 0, 100, 100 ), 1 ); end; end. И получаю следующее:
- 6 ответов
-
- Compiler Directivs
- VCL
-
(и ещё 1 )
C тегом: