|
|
Другие темы раздела | ||||||||||||||||||
Lazarus Открытие файлов с русскими названиями в приложениях. Lazarus Всем привет. Хочу открыть файл через Paint, который уже имеется в Timage1, все хорошо, все работает, но при открытии файла где в пути присутствует русские символы, выдает ошибку. Есть решения? Код ниже. Добавлено через 53 секунды procedure TForm1.MenuItem2Click(Sender: TObject); begin if Open_image.FileName = '' then begin ShellExecute(0,nil, PChar('"mspaint.exe"'),PChar('""'),nil,1);... https://www.cyberforum.ru/ lazarus/ thread1703154.html |
Lazarus Не получается скомпилировать проект Linux + Lazarus + Firebird Проект для подключения к базе данный и вывода конкретной таблицы на экран. Путь к базе дынных прописывал различными способами, использовал различные БД созданные с помощью разных программ, все сводилось к одной ошибке. Пытаюсь подключиться локально - проходит ,с этого же компьютера удаленно - уже не проходит. Проблема именно с подключением к бд с LAzarus. т.к. через утилу isql могу просмотреть БД... | |||||||||||||||||
Lazarus Как сделать Zoom (масштабирование) изображений Всем привет. Сделал обозреватель изображений, все норм, но не знаю как можно приблизить картинку используя Батоны или трэкбар. Если можете подсказать, то желательно используя трекбар. Пожалуйста. :) https://www.cyberforum.ru/ lazarus/ thread1702352.html |
Lazarus Ещё раз о скриншотах
https://www.cyberforum.ru/ lazarus/ thread1702337.html Несколько дней назад форумчанен ПраПрапорщик поднимал эту тему, но закончилась она как-то не интересно. А тема, в принципе, очень интересная. Хотелось бы её продолжить, тем более не всё повторенное из Delphi однозначно работает в Лазарусе. И так: захватываю своё окно (код рабочий) uses Classes, SysUtils, FileUtil, Forms, Controls, Windows, Graphics, Dialogs, StdCtrls, extctrls; //... | |||||||||||||||||
Lazarus Работа со списком Дан список С, что состоит из записей: первое поле - буква, второе поле - адрес следующего элемента. Составить программу для проверки упорядочивания элементов в обратном порядке. Кто может, помогите пожалуйста с решением данной программы, очень необходимо. |
Lazarus Как в Lazarus 1.6 открыть подключаемый модуль? В версии 1.3 при наведении мышки на какое-нибудь определение (например VK_ESCAPE) появлялась ссылка, щёлкнув по ней открывался модуль, в котором выполнено данное определение. В версии 1.6 ссылка появляется, но модуль не открывается. Просмотрел все настройки, но ничего похожнго найти не смог. Подскажите, что это за настройка. https://www.cyberforum.ru/ lazarus/ thread1702002.html | |||||||||||||||||
Lazarus PascalScript в Lasarus
https://www.cyberforum.ru/ lazarus/ thread1701913.html Добрый день. Может ктонибудь детально расказать как работать с PascalScript Собственно что мне необходимо: В отдельном скрипте паскаль запускать процедуры и функции. К примеру скрипт var //Здесь свои переменные объявляешь //Свои функции и процедуры begin //А сдесь непосредственно код который будет выполнятся в своей программе. Например не только использовать функции и прпоцедуры которые... |
Генерация случайных целых чисел в заданном интервале Lazarus Здравствуйте! Правильно ли я прописал код случайных чисел от -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 Методы внутренней сортировки массивов (вставки и обмена)
https://www.cyberforum.ru/ lazarus/ thread1701771.html Нужно создать вектор А. Для создания массива использовать генератор случайных чисел. Количество элементов рассчитывается по формуле 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 с экрана, но тогда именно нарисованное таким образом прямоугольник полупрозрачен, а вся... |
Lazarus Файл в кодировке ANSI
https://www.cyberforum.ru/ lazarus/ thread1701133.html Лазарус работает с UFT8 и файлы, которые сохраняются через TStringList или TextFile так же имеют кодировку UTF8. Необходимо: открыть файл "1.txt"(utf8) и сохранить его в файл "2.txt"(ansi). открыть файл "2.txt"(ansi) и добавить строку String в кодировке Ansi не нарушая кодировку файла.
Наверх
|