| Задать вопрос |
|
Появилась необходимость разработки приложения в среде AutoCAD. В литературе предлагаются для этих...
|
31.08.2018 01:34
|
3 |
930 |
|
|
imgpart := TIdAttachmentFile.Create(IdMessage1.MessageParts, s1)
s1 - полный путь до файла...
|
29.08.2018 14:11
|
2 |
2,626 |
|
|
Вечер добрый. Хочу открыть папку Appdata при этом не зная пользователя (users). Я знаю команду...
|
28.08.2018 15:20
|
7 |
1,429 |
|
|
unit1.pas
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
|
27.08.2018 18:27
|
3 |
2,099 |
|
|
Программа, вычисляющая параметры спектра АМ и балансной АМ однотональным гармоническим сигналом...
|
26.08.2018 18:17
|
1 |
907 |
|
|
Доработка программы из...
|
23.08.2018 18:55
|
5 |
2,168 |
|
|
Как в Лазарусе построить график функции y=f(x) ( например, y(x)=exp(x)*(100* sin(x)+tg(x/4)) ) с...
|
23.08.2018 18:10
|
1 |
4,090 |
|
|
Доброго времени суток всем!
Прошу помочь/подсказать куда копать в моей проблемке)
Итак что...
|
23.08.2018 13:59
|
9 |
3,904 |
|
|
Здравствуйте.
Как сделать выделение всей строки синим цветом в StringGrid
Есть свойство...
|
21.08.2018 19:20
|
5 |
5,668 |
|
|
Почему нельзя обойтись без TInterfacedObject (как в C#), если класс должен реализовать интерфейс...
|
20.08.2018 21:01
|
4 |
2,476 |
|
|
Взял отсюда код. Как его исправить, чтобы работал?
program Project1;
const
SizeOfReal = 6; ...
|
20.08.2018 09:20
|
7 |
2,808 |
|
|
Необходимо сделать штриховку наклонными линиями.
unit unit1;
{$mode objfpc}{$H+}
interface
uses...
|
18.08.2018 11:41
|
5 |
1,325 |
|
|
ГЗЧ на Лазарус и BASS: как сделать ГЗЧ на Лазарус и BASS? Как воодить и выводить семплы через...
|
17.08.2018 22:04
|
5 |
2,778 |
|
|
Эквалайзер на Лазарусе: как сделать эквалайзер на Лазарусе и BASS.dll, используя массив...
|
17.08.2018 07:40
|
6 |
2,087 |
|
|
Здравствуйте.
Использую TrayIcon.
Добавил программу в реестр для автозагрузки, с параметром...
|
16.08.2018 16:04
|
2 |
2,490 |
|
|
unit ustroka;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms,...
|
16.08.2018 15:38
|
3 |
1,399 |
|
|
Программа для ввода паролей и логинов , позволяющая избежать подслушивания и подсматривания...
|
13.08.2018 00:20
|
0 |
1,767 |
|
|
Есть ли в других языках аналоги canvas из lazarus ?
в лазарусе очень удобно рисовать, а вот pascal...
|
12.08.2018 17:41
|
2 |
1,143 |
|
|
Здравствуйте!
Столкнулся со следующей проблемой: с помощью функции StrToFloat перевожу число из...
|
10.08.2018 15:57
|
5 |
2,662 |
|
|
По нажатию кнопки надо нарисовать ломаную незамкнутую линию, чтоб все углы были прямыми и чтоб...
|
09.08.2018 19:10
|
8 |
3,063 |
|
|
Здравствуйте.
Подскажите, пожалуйста, как избежать утечки памяти при добавлении элемента в...
|
08.08.2018 14:48
|
7 |
1,500 |
|
|
Отправляю Get запрос к API сайта, получаю данные типа:
Как мне обратиться к этим данным...
|
07.08.2018 02:06
|
3 |
1,653 |
|
|
Подскажите, пожалуйста, в чем может быть дело.
type
TMyRecord = record
Active: Boolean;...
|
06.08.2018 00:38
|
0 |
609 |
|
|
Добрый день!
Есть условие: если 1 картинка попадает на 2 картинку, то 2 картинка перемещается:...
|
03.08.2018 20:05
|
6 |
1,399 |
|
|
Как делать так, чтобы объект 1 считывал координаты объекта 2 и двигался к нему?
|
03.08.2018 13:32
|
4 |
3,010 |
|
|
Здравствуйте! Надо сделать так, чтобы из списка с названиями картинок, которые есть на форме,...
|
03.08.2018 05:54
|
2 |
2,507 |
|
|
Конечно, можно делать так
Image1.Visible:=false
Image2.Visible:=false
Image3.Visible:=false ......
|
02.08.2018 14:09
|
5 |
3,045 |
|
|
Добрый день! Ранее уже спрашивал совета, но проблема так и не решена.
Я поддерживаю программу на...
|
01.08.2018 12:12
|
8 |
1,970 |
|
|
Думаю, что задача очень и очень сложная, но может кто-то всё же знает, как сделать это...
В...
|
01.08.2018 04:29
|
2 |
1,712 |
|
|
Почему не могу округлить Im.Width*0.5?
var
i:integer;
k:Real;
begin
k:=Im.Width*0.5;...
|
01.08.2018 02:37
|
2 |
1,690 |
|
|
Привет!
Подскажите, как в переменной f(String) заменить символ A на значение переменной A...
|
01.08.2018 02:23
|
8 |
6,411 |
|
|
Есть ли готовый вариант класса tedit для ввода числовых типов?
Хочется, чтобы как аргумент он...
|
31.07.2018 12:15
|
3 |
1,143 |
|
|
Здравствуйте!
Есть число A, кол-во его делителей - число K
for i:=1 to A do
if a mod i= 0 then...
|
31.07.2018 11:01
|
9 |
2,172 |
|
|
В программке нужно сделать возможность бекапа БД, с которой оная прога работает. Сделал так:
uses...
|
30.07.2018 11:09
|
3 |
4,320 |
|
|
Подскажите, пожалуйста, почему может не работать сортировка в KDBGrid.
По клику значок сортировки...
|
29.07.2018 22:51
|
1 |
952 |
|
|
Есть .Json файл, сохранней на жестком диске. Как с ним взаимодействовать программно? Подключаю...
|
29.07.2018 12:11
|
6 |
4,986 |
|
|
Доброго времени суток. Помогите пожалуйста. Нужно в Lazarus на форму вставить анимацию. Анимация в...
|
28.07.2018 22:32
|
2 |
9,626 |
|
|
Как можно запустить процесс из Lazarus?
Нужен именно explorer.exe, но, чтобы запускалась не просто...
|
28.07.2018 10:12
|
4 |
1,055 |
|
|
Здравствуйте!
Есть необходимость сделать так, чтобы курсор мышки и клавиатура действовали только...
|
28.07.2018 09:56
|
1 |
1,558 |
|
|
Такой код проверит, попал ли элемент1 на границу элемента2:
IntersectRect(i, Элемент1.BoundsRect,...
|
27.07.2018 17:48
|
1 |
1,143 |
|
|
Добрый день. Нужно создать 30 картинок (TImage) в лазарусе, которые отличаются тем, что на них...
|
27.07.2018 11:23
|
5 |
1,561 |
|
|
Всем здравствуйте! Возникла проблема с построением карты старших показателей Ляпунова для системы...
|
27.07.2018 08:12
|
2 |
2,360 |
|
|
В процедуре есть строки
if InterSectRect(i, Shape1.BoundsRect, ShapeS1.BoundsRect) then
if...
|
26.07.2018 23:00
|
4 |
836 |
|
|
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms,...
|
26.07.2018 18:46
|
1 |
1,235 |
|
|
Есть список TShapeList = specialize TFPGList<TShape>;
Shape0, Shape1, Shape2...
Надо исключить...
|
26.07.2018 18:26
|
23 |
2,005 |
|
|
Аналог программы HSBtoRGBAlpha на Lazarus
|
26.07.2018 16:02
|
1 |
827 |
|
|
Здравствуйте.
Есть 2 таблицы. Таблица 1 – сотрудники, Таблица 2 – канцелярские товары которые...
|
26.07.2018 10:48
|
4 |
2,922 |
|
|
Вот, что пишет компилятор: unit1.pas(46,21) Error: Incompatible types: got "TTranslateString"...
|
26.07.2018 00:52
|
9 |
2,765 |
|
|
Есть 2 объекта: эллипс(движется), прямоугольник;
Если эллипс попадает на прямоугольник, он...
|
25.07.2018 22:57
|
8 |
1,438 |
|
|
Движение элемента по форме:
if (Key = 39) then Shape1.Left := Shape1.left + dx;
if (Key = 37)...
|
25.07.2018 18:42
|
13 |
2,339 |
| Задать вопрос |
