Lazarus

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Lazarus При нажатии кнопки на Form1 открыть Form2 Подскажите как при нажатии кнопки на форме1, открывалась форма2? Но в это время форма1 была невидимая и недоступна.unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls; https://www.cyberforum.ru/ lazarus/ thread1449496.html	Рисование круга, прямоугольника, треугольника Lazarus я рисую круг, прямоугольник делаю это так: переменные у меня здесь implementation var y0,x0, xpos, ypos:integer; в процедуре procedure TForm1.Image3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin x0:=x; y0:=y ;
Lazarus InterSectRest https://www.cyberforum.ru/ lazarus/ thread1449129.html Делаю игру Пинг Понг в Лазарусе по коду из Делфи . И возникла проблема при пересечении доски (shape2) и шарика (shape1). Помогите пожалуйста , как это сделать . Заранее спасибо	Lazarus Ошибка в цикле https://www.cyberforum.ru/ lazarus/ thread1448907.html unit1.pas(624,2) Error: Illegal assignment to for-loop variable "i" for i:=0 to summcell-1 do begin copyTimeBoxMaxY := copyMassivTimeBoxMaxY; while copyTimeBoxMaxY.nalichie = true do repeat copyTimeBoxMaxY := copyMassivTimeBoxMaxY; i := i+1; until copyTimeBoxMaxY.nalichie = false;
Смена изображений в приложении Lazarus В программе 3 изображения. Картинки на них должны меняться в ходе работы программы. Какое свойство image нужно использовать? Или следует взять другой объект?	Lazarus Двоичный файл https://www.cyberforum.ru/ lazarus/ thread1448865.html Результаты выполнения Л.Р.#1 вывести в двоичный файл с именем, задаваемым пользавателем. Запись в файле имеет следующую структуру: Это первая работа unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Spin, Grids, Math, ExtCtrls;
Lazarus Вход и выход с цикла Могут-ли меняться, в ходе выполнения цикла, его выходные параметры ( по которым он заканчивается). https://www.cyberforum.ru/ lazarus/ thread1448766.html	Lazarus Массив указателей Можно увидеть как из массива указатели используются и как их помещать туда?
Lazarus Создать класс Здравствуйте, обременили не совсем понятной задачей. Кого не затруднит - помогите пожалуйста, я пробовала разбираться самостоятельно, но увы, без помощи экспертов - не разобраться:( Заранее спасибо всем откликнувшимся. Задание: Имеются модули NGMath и NGFunc, в NGFunc используется функция для расчета определенного интеграла по заданым концам, методом правых прямоугольников, суть задания... https://www.cyberforum.ru/ lazarus/ thread1448414.html	Lazarus Задать разные размеры массивов, содержащихся в массиве массивов https://www.cyberforum.ru/ lazarus/ thread1448223.html Нужно задать разные размеры массивов, содержащихся в одном массиве массивов.
Lazarus Рисование на TrayIcon Пишу приложение на lazarus (1.2.6) в котором необходимо перерисовывать изображение в трее (для работы с треем использую TTrayIcon). Сразу отмечу, что идея с заранне заготовленными картинками не подходит, слишком много вариантов получается. Я перепробовал много вариантов, но рабочего так и не нашёл :resent:. Некоторые попытки: TrayIcon1.Canvas.FillRect(1,1,10,10); tlazim :=...	Lazarus Менять местами массивы, переменные https://www.cyberforum.ru/ lazarus/ thread1448047.html Задача примерно такая: есть два массива, каждый самостоятельный, одинаковый тип данных, но в программе они меняются местами или работают как стек. То-есть: по идее постоянно нужно перезаливать с одного массива данные в другой, а в первый новые данные, старые со второго стираются. и как-бы получается, что за цикл нужно залить два массива. Но проще менять их местами.

volvo

Супер-модератор

32835 / 21172 / 8148

Регистрация: 22.10.2011

Сообщений: 36,432

Записей в блоге: 8

18.05.2015, 19:11

Polygon выдает ошибку - Lazarus - Ответ 7633883

18.05.2015, 19:11. Показов 2748. Ответов 6

Метки (Все метки)

Сообщение было отмечено ujif как решение

Решение

А у тебя ошибка - потому что подключен модуль Windows (причем подключен ПОСЛЕ Classes), и это мешает компилятору понять, что нужно использовать описание Point из Classes. Либо подключать Windows самым первым в списке (это не очень хороший вариант, привязываться к очередности подключения модулей), либо переписать часть кода:

Pascal

  // Рисуем звезду, используя переданные координаты и размер
  Paintbox1.Canvas.Polygon( [Classes.Point(x, y-size), //здесь НЕТ ошибки
  Classes.Point(x-size div 4, y-size div 4), Classes.Point(x-size, y),
  Classes.Point(x-size div 4, y+size div 4), Classes.Point(x, y+size),
  Classes.Point(x+size div 4, y+size div 4), Classes.Point(x+size, y),
  Classes.Point(x+size div 4, y-size div 4), Classes.Point(x, y-size)]);

, и все прекрасно откомпилируется...

Вернуться к обсуждению:
Polygon выдает ошибку Lazarus

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

18.05.2015, 19:11

Готовые ответы и решения:

Программа которая выдает платформу компьютера выдает ошибку
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Выдает ошибку
В одномерном массве состоящем из n вещественных элементов вычислить: сумму элеменотов массива...

Программа выдает ошибку
Задание Необходимо зашифровать и расшифровать слово ЗАБАВА с помощью матрицы-ключа unit Unit1; ...

выдает ошибку в программе
procedure TForm1.FormCreate(Sender: TObject); function delete (t:string):string; var...

	18.05.2015, 19:11

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

18.05.2015, 19:11

Помогаю со студенческими работами здесь

Выдает ошибку в работе с OpenGL
Пакет установил. При компиляции кода - ошибок не было. Код unit Unit1; {$mode objfpc}{$H+} ...

При запуске Delphi 7 выдает ошибку
У меня Windows7 32bit. Когда запускаю проект, выскакивает вот такая бяка. Я уж и прописывал папку...

в uses ошибку выдает что делать не знаю
Unit MyModul; Interface Procedure ADD (Var s1,s2:string); Function scep (s1,s2:string):string;...

После установки библиотеки Rx выдает ошибку

Наверх