| Задать вопрос |
|
imgpart := TIdAttachmentFile.Create(IdMessage1.MessageParts, s1)
s1 - полный путь до файла...
|
29.08.2018 14:11
|
2 |
2,613 |
|
|
Вечер добрый. Хочу открыть папку Appdata при этом не зная пользователя (users). Я знаю команду...
|
28.08.2018 15:20
|
7 |
1,427 |
|
|
unit1.pas
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
|
27.08.2018 18:27
|
3 |
2,096 |
|
|
Программа, вычисляющая параметры спектра АМ и балансной АМ однотональным гармоническим сигналом...
|
26.08.2018 18:17
|
1 |
907 |
|
|
Доработка программы из...
|
23.08.2018 18:55
|
5 |
2,159 |
|
|
Как в Лазарусе построить график функции y=f(x) ( например, y(x)=exp(x)*(100* sin(x)+tg(x/4)) ) с...
|
23.08.2018 18:10
|
1 |
4,083 |
|
|
Доброго времени суток всем!
Прошу помочь/подсказать куда копать в моей проблемке)
Итак что...
|
23.08.2018 13:59
|
9 |
3,896 |
|
|
Здравствуйте.
Как сделать выделение всей строки синим цветом в StringGrid
Есть свойство...
|
21.08.2018 19:20
|
5 |
5,668 |
|
|
Почему нельзя обойтись без TInterfacedObject (как в C#), если класс должен реализовать интерфейс...
|
20.08.2018 21:01
|
4 |
2,473 |
|
|
Взял отсюда код. Как его исправить, чтобы работал?
program Project1;
const
SizeOfReal = 6; ...
|
20.08.2018 09:20
|
7 |
2,804 |
|
|
Необходимо сделать штриховку наклонными линиями.
unit unit1;
{$mode objfpc}{$H+}
interface
uses...
|
18.08.2018 11:41
|
5 |
1,322 |
|
|
ГЗЧ на Лазарус и BASS: как сделать ГЗЧ на Лазарус и BASS? Как воодить и выводить семплы через...
|
17.08.2018 22:04
|
5 |
2,770 |
|
|
Эквалайзер на Лазарусе: как сделать эквалайзер на Лазарусе и BASS.dll, используя массив...
|
17.08.2018 07:40
|
6 |
2,083 |
|
|
Здравствуйте.
Использую TrayIcon.
Добавил программу в реестр для автозагрузки, с параметром...
|
16.08.2018 16:04
|
2 |
2,486 |
|
|
unit ustroka;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms,...
|
16.08.2018 15:38
|
3 |
1,396 |
|
|
Программа для ввода паролей и логинов , позволяющая избежать подслушивания и подсматривания...
|
13.08.2018 00:20
|
0 |
1,765 |
|
|
Есть ли в других языках аналоги canvas из lazarus ?
в лазарусе очень удобно рисовать, а вот pascal...
|
12.08.2018 17:41
|
2 |
1,138 |
|
|
Здравствуйте!
Столкнулся со следующей проблемой: с помощью функции StrToFloat перевожу число из...
|
10.08.2018 15:57
|
5 |
2,660 |
|
|
По нажатию кнопки надо нарисовать ломаную незамкнутую линию, чтоб все углы были прямыми и чтоб...
|
09.08.2018 19:10
|
8 |
3,060 |
|
|
Здравствуйте.
Подскажите, пожалуйста, как избежать утечки памяти при добавлении элемента в...
|
08.08.2018 14:48
|
7 |
1,498 |
|
|
Отправляю Get запрос к API сайта, получаю данные типа:
Как мне обратиться к этим данным...
|
07.08.2018 02:06
|
3 |
1,644 |
|
|
Подскажите, пожалуйста, в чем может быть дело.
type
TMyRecord = record
Active: Boolean;...
|
06.08.2018 00:38
|
0 |
609 |
|
|
Добрый день!
Есть условие: если 1 картинка попадает на 2 картинку, то 2 картинка перемещается:...
|
03.08.2018 20:05
|
6 |
1,396 |
|
|
Как делать так, чтобы объект 1 считывал координаты объекта 2 и двигался к нему?
|
03.08.2018 13:32
|
4 |
3,003 |
|
|
Здравствуйте! Надо сделать так, чтобы из списка с названиями картинок, которые есть на форме,...
|
03.08.2018 05:54
|
2 |
2,497 |
|
|
Конечно, можно делать так
Image1.Visible:=false
Image2.Visible:=false
Image3.Visible:=false ......
|
02.08.2018 14:09
|
5 |
3,043 |
|
|
Добрый день! Ранее уже спрашивал совета, но проблема так и не решена.
Я поддерживаю программу на...
|
01.08.2018 12:12
|
8 |
1,965 |
|
|
Думаю, что задача очень и очень сложная, но может кто-то всё же знает, как сделать это...
В...
|
01.08.2018 04:29
|
2 |
1,698 |
|
|
Почему не могу округлить Im.Width*0.5?
var
i:integer;
k:Real;
begin
k:=Im.Width*0.5;...
|
01.08.2018 02:37
|
2 |
1,686 |
|
|
Привет!
Подскажите, как в переменной f(String) заменить символ A на значение переменной A...
|
01.08.2018 02:23
|
8 |
6,407 |
|
|
Есть ли готовый вариант класса tedit для ввода числовых типов?
Хочется, чтобы как аргумент он...
|
31.07.2018 12:15
|
3 |
1,139 |
|
|
Здравствуйте!
Есть число A, кол-во его делителей - число K
for i:=1 to A do
if a mod i= 0 then...
|
31.07.2018 11:01
|
9 |
2,162 |
|
|
В программке нужно сделать возможность бекапа БД, с которой оная прога работает. Сделал так:
uses...
|
30.07.2018 11:09
|
3 |
4,316 |
|
|
Подскажите, пожалуйста, почему может не работать сортировка в KDBGrid.
По клику значок сортировки...
|
29.07.2018 22:51
|
1 |
945 |
|
|
Есть .Json файл, сохранней на жестком диске. Как с ним взаимодействовать программно? Подключаю...
|
29.07.2018 12:11
|
6 |
4,977 |
|
|
Доброго времени суток. Помогите пожалуйста. Нужно в Lazarus на форму вставить анимацию. Анимация в...
|
28.07.2018 22:32
|
2 |
9,626 |
|
|
Как можно запустить процесс из Lazarus?
Нужен именно explorer.exe, но, чтобы запускалась не просто...
|
28.07.2018 10:12
|
4 |
1,047 |
|
|
Здравствуйте!
Есть необходимость сделать так, чтобы курсор мышки и клавиатура действовали только...
|
28.07.2018 09:56
|
1 |
1,552 |
|
|
Такой код проверит, попал ли элемент1 на границу элемента2:
IntersectRect(i, Элемент1.BoundsRect,...
|
27.07.2018 17:48
|
1 |
1,135 |
|
|
Добрый день. Нужно создать 30 картинок (TImage) в лазарусе, которые отличаются тем, что на них...
|
27.07.2018 11:23
|
5 |
1,561 |
|
|
Всем здравствуйте! Возникла проблема с построением карты старших показателей Ляпунова для системы...
|
27.07.2018 08:12
|
2 |
2,350 |
|
|
В процедуре есть строки
if InterSectRect(i, Shape1.BoundsRect, ShapeS1.BoundsRect) then
if...
|
26.07.2018 23:00
|
4 |
833 |
|
|
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms,...
|
26.07.2018 18:46
|
1 |
1,233 |
|
|
Есть список TShapeList = specialize TFPGList<TShape>;
Shape0, Shape1, Shape2...
Надо исключить...
|
26.07.2018 18:26
|
23 |
2,003 |
|
|
Аналог программы HSBtoRGBAlpha на Lazarus
|
26.07.2018 16:02
|
1 |
823 |
|
|
Здравствуйте.
Есть 2 таблицы. Таблица 1 – сотрудники, Таблица 2 – канцелярские товары которые...
|
26.07.2018 10:48
|
4 |
2,917 |
|
|
Вот, что пишет компилятор: unit1.pas(46,21) Error: Incompatible types: got "TTranslateString"...
|
26.07.2018 00:52
|
9 |
2,745 |
|
|
Есть 2 объекта: эллипс(движется), прямоугольник;
Если эллипс попадает на прямоугольник, он...
|
25.07.2018 22:57
|
8 |
1,426 |
|
|
Движение элемента по форме:
if (Key = 39) then Shape1.Left := Shape1.left + dx;
if (Key = 37)...
|
25.07.2018 18:42
|
13 |
2,332 |
|
|
Надо считать координаты расположения 2х кнопок и провести линию от 1й ко 2й при нажатии на вторую.
|
25.07.2018 10:09
|
6 |
2,712 |
| Задать вопрос |
