Lazarus

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

Войти

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

Другие темы раздела
Lazarus Работа со списком Дан список С, что состоит из записей: первое поле - буква, второе поле - адрес следующего элемента. Составить программу для проверки упорядочивания элементов в обратном порядке. Кто может, помогите пожалуйста с решением данной программы, очень необходимо. https://www.cyberforum.ru/ lazarus/ thread1702274.html	Lazarus Как в Lazarus 1.6 открыть подключаемый модуль? В версии 1.3 при наведении мышки на какое-нибудь определение (например VK_ESCAPE) появлялась ссылка, щёлкнув по ней открывался модуль, в котором выполнено данное определение. В версии 1.6 ссылка появляется, но модуль не открывается. Просмотрел все настройки, но ничего похожнго найти не смог. Подскажите, что это за настройка.
Lazarus PascalScript в Lasarus https://www.cyberforum.ru/ lazarus/ thread1701913.html Добрый день. Может ктонибудь детально расказать как работать с PascalScript Собственно что мне необходимо: В отдельном скрипте паскаль запускать процедуры и функции. К примеру скрипт var //Здесь свои переменные объявляешь //Свои функции и процедуры begin //А сдесь непосредственно код который будет выполнятся в своей программе. Например не только использовать функции и прпоцедуры которые...	Lazarus Генерация случайных целых чисел в заданном интервале https://www.cyberforum.ru/ lazarus/ thread1701787.html Здравствуйте! Правильно ли я прописал код случайных чисел от -1 до 2 ??? Спасибо. procedure TForm1.FormCreate(Sender: TObject); var Col, Row, N, M: integer; begin randomize; N:=6; M:=6; StringGrid1.ColCount:=N; StringGrid1.RowCount:=M;
Методы внутренней сортировки массивов (вставки и обмена) Lazarus Нужно создать вектор А. Для создания массива использовать генератор случайных чисел. Количество элементов рассчитывается по формуле n = 50 + 2i , где i=7. Отсортировать массив нужно метод вставки и обмена. Каждый из методов нужно оформить как под-программу. Тип сортировки по возрастанию. Так же нужно посчитать количество сравнений и обменов. Кому не сложно, помогите с данным заданием. Не...	Lazarus ShowBalloonTip не отображает кириллицу есть код: procedure ShowBalloonTip(Control: TWinControl; Icon: integer; BackCL, TextCL: TColor; Title: String; Text: PWideChar); const TOOLTIPS_CLASS = 'tooltips_class32'; TTS_ALWAYSTIP = $01; TTS_NOPREFIX = $02; TTS_BALLOON = $40; TTF_SUBCLASS = $0010; https://www.cyberforum.ru/ lazarus/ thread1701578.html
Lazarus Как сделать скриншот области экрана? Есть пример на Делфи http://delphiexpert.ru/sozdanie-skrinshotera-na-delphi.html, но в Lazarus отсуствует Transparentcolor свойство. Выставил Alphablend true и AlphablendValue 100, делаю скриншот экрана и переношу на всю форму, все нормальгно, полупрозрачно. Далее пробую на OnMouseMove делать Canvas.CopyRect с экрана, но тогда именно нарисованное таким образом прямоугольник полупрозрачен, а вся... https://www.cyberforum.ru/ lazarus/ thread1701322.html	Файл в кодировке ANSI Lazarus Лазарус работает с UFT8 и файлы, которые сохраняются через TStringList или TextFile так же имеют кодировку UTF8. Необходимо: открыть файл "1.txt"(utf8) и сохранить его в файл "2.txt"(ansi). открыть файл "2.txt"(ansi) и добавить строку String в кодировке Ansi не нарушая кодировку файла. 1й пример кода, вариант "консольный": var St8: UTF8String;
Lazarus При работе с Lazarus и Firebird возникли трудности https://www.cyberforum.ru/ lazarus/ thread1701093.html Самая простая программа. Пытаюсь вывести таблицу базу данных(.FDB) на экран. Компонент IBConnection, в котором просписан путь к базе. Пытался разными способами (\etc; localhost:путь; ip: путь). При запуске выдает DointernalConnect Unable to complete network request to host "localhost" Failed to establish a connection	Lazarus Как из StringGrid скопировать значение в set of bytes и обратно? как из StringGrid скопировать значение в set of bytes и обратно? https://www.cyberforum.ru/ lazarus/ thread1700866.html
Одномерный массив в Lazarus Lazarus 1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка . Удалить из него все элементы, которые состоят из одинаковых цифр (включая однозначные числа). 2. Вставить число К перед всеми элементами, в которых есть цифра 1. 3. Переставить первые три и последние три элемента местами, сохраняя порядок их следования.	Lazarus Одномерный массив в Lazarus https://www.cyberforum.ru/ lazarus/ thread1700069.html 1. Заменить первый элемент массива, кратный 5, нулем. 2. Заменить элементы массива с нечетными номерами на квадраты их номеров. 3. Из элементов массива D сформировать массив A той же размерности по правилу: если номер четный, то значение элемента находится по формуле Ai = Di2, а если нечетный, то по формуле Ai = Di / i.

volvo

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

32835 / 21172 / 8148

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

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

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

03.04.2016, 21:50

Ещё раз о скриншотах - Lazarus - Ответ 8974468

03.04.2016, 21:50. Показов 809. Ответов 7

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

Ответ

Вот этот код что показывает:

Pascal

var
  bm: Graphics.TBitmap;
begin
  bm:=Graphics.TBitmap.Create;
  bm.LoadFromDevice(Self.Canvas.Handle);
  bm.Canvas.TextOut(5,130,'Скриншот окна снят '+DateToStr(SysUtils.Date)+' / '+TimeToStr(SysUtils.Time));
  bm.saveToFile('D:\ScreenWin.bmp');
  FreeAndNil(bm);
end;

?

Вернуться к обсуждению:
Ещё раз о скриншотах Lazarus

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

03.04.2016, 21:50

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

Ещё раз по текстовым файлам
Всё понятно, что там нет указателя а есть курсор, но не понятно...почему нельзя передвинуть его на...

Ввести строку символов. Если символ в данной строке встречается один раз, в конце строки добавлять ещё раз его
Ввести строку символов. Если символ в данной строке встречается один раз, в конце строки добавлять...

Если символ в данной строке встречается один раз, в конце строки добавлять ещё раз этот символ
Помогите с задачей на C# Ввести строку символов. Если символ в данной строке встречается один раз,...

Ещё раз о консоли
Никак не могу понять, в джаве А) можно ли выводить в консоль символы методом прямой записи в...

	03.04.2016, 21:50

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

03.04.2016, 21:50

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

Ещё раз о девушках
Всем добрый вечер. Раздел посвящён взаимоотношениям мужчин и женщин. Я хочу написать о другом,...

Ещё раз о BIOS
Нужно было отформатировать жёсткий диск стационарного компьютера.Сделал всё с помощью Acronis Disk...

Ещё раз о линкопомойниках
Стал сотрудничать с одной конторой не буду называть какой – оптимизаторы. b-( Посоветовали мне...

Ещё раз о регистрации, куках, и бд
Приветствую! Понимаю, что тема эта избита, но слишком избита, чтобы не заблудится во множестве...

Наверх