Последние записи
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
- Взаимодействие через командную строку
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
26th
Окт
Изменить цвет шрифта TextBox на форме
Что надо написать в поле ForeColor, чтобы цвет шрифта вводимого в TextBox на форме стал темно-синий и темно-зеленый. Если «&H8000000D&» — цвет голубой.
22nd
Окт
Ресайз PNG без потери прозрачности
Попал в такую ситуацию: есть 2 временных TPNGImage; один загружен из файла, второй — пустой, предназначен для вывода растянутого/ужатого первого.
При копировании первого во второй и его последующем ресайзе теряется альфа-канал.
Вот такого плана:
var
Src,Dst:TPngImage;
width,height:integer;
...
procedure Resize;
begin
Dst.SetSize(width,height);
Dst.StretchDraw(Dst.Canvas.ClipRect,Src);
end;
Как можно заново просчитать маску прозрачности (или как это делается), учитывая новые размеры?
18th
Окт
Вывод на печать графического файла
При печати графического файла распечатывается только часть изображения. Подскажите, как вывести на печать все изображение?
Использовал такой код:
using (var pd = new System.Drawing.Printing.PrintDocument())
{
pd.PrintPage += (o, en) =>
{
var img = System.Drawing.Image.FromFile(@"D:\Scan.jpg");
en.Graphics.DrawImage(img, new Point(100, 100));
};
pd.DefaultPageSettings.Landscape = true;
pd.Print();
}
14th
Окт
Взаимодействие через командную строку
Если установить к примеру node.js то в любой момент можно запросить через командную строку к примеру node —version или node —help
Вопрос как реализовать подобное. То есть запуск в фоновом режиме и обращение по конкретному имени, а не просто запуск файла.
28th
Сен
Перенести программу из Delphi в Lazarus
Пытаюсь портировать свою программу с Delphi на Lazarus, чтобы скомпилировать её в Linux и Mac. Столкнулся со множеством проблем и подводных камней, так что теперь не исключаю, что лучшим решением будет остаться на Delphi (и ждать, когда подтянут Firemonkey). А у вас был такой же опыт? Вопрос по теме: правильно ли я понял, что авторы The Bat (который написан на Delphi) сознательно приняли решение не портировать проект на Linux и Mac по этим же причинам? И ещё вопрос по теме — Wine для Mac жив или умер?
Что мне не нравится в Lazarus как средстве разработки под Windows:
— Какая-то чехарда с .inc, .pp файлами вместо обычных модулей, легко запутаться (хотя возможно я просто не освоился);
— Часто возникает ошибка Warning: Recompiling …, checksum changed for ….ppu
— Иногда приходится устранять конфликт одинаковых имён модулей, может быть это специфика моих проектов.
Ещё вопрос, как финансируется Lazarus? Немного настораживает, что он бесплатный.
15th
Сен
Определить текущую ОС
Нужен системо-независимый код, от чего нужно знать в какой именно ОС он был запушен. Пишем на Lua, но думаю это не суть.
Встроенной функции нет.
Нашёл следующее. В Винде есть переменная окружения «OS» которая должна содержать тип ОС.
В разных местах написано, что «в Windows XP и Windows 2000 будет равно Windows_NT».
Проверил у себя на Windows 10, возвращает «Windows_NT». Проверил на Linux ALT, не такой переменной — то есть nil.
Можно ли ожидать, что в Windows независимо от версии (включая серверные) будет возвращаться «Windows_NT», а в любой версии Linux будет возвращаться пустое значение?
Если нет, то как лучше поступать?
10th
Сен
Автоматическая смена языка (раскладки клавиатуры)
Как в лазарусе сменить язык автоматически, скажем в поле Едит1 вводится текст на английском, а в Едит2 на русском языке?
5th
Сен
Сравнение языков на массивах. Часть 2
В сообщении «Сравнение языков на массивах. Часть 1» в этом разделе описывались программы на языке C++, а в этом сообщении будут рассматриваться программы на языке Ada. Язык Ada по возможностям и стилю программирования очень похож на C++, но более надёжный. Он применяется там, где цена ошибки высока. Так же как для С++, программы будут компилироваться и запускаться в двух операционных системах на основе Linux — Debian 10 и ALT Linux 10. Компилятор языка Ada — GNAT от компании AdaCore. В Debian GNAT версии 8.3, а в ALT — 10.3 .
Все программы компилировались с опцией оптимизации -O2 или -O3, а иначе скорость их работы становится позорно низкой. Если в результатах замеров времени никаких пометок — значит в Debian, если пометка (alt) — значит в ALT.
В отличие от C++ в Ada есть run-time проверки, в том числе проверка индекса массива на выход из допустимого диапазона. Однако они реализованы достаточно эффективно и не сильно снижают производительность программ.
В Ada так же будем проверять скорость работы со статическим массивом, динамическим массивом и массивом в типе-контейнере Vector.
Тестовые массивы те же, один на 500000 элементов, второй на 50000.
31st
Авг
wprintf как напечатать кириллицу
Не хочет выводить русские символы
#define STRICT //строгая проверка типов данных
#define UNICODE //кодировка UTF-8
//операторы препроцессора
#include <conio.h> // подключаем getch
#include <stdio.h> // подключаем printf
#include <locale.h>//заголовочный файл для локализации
using namespace std;//пространство имен - Стандартная Библиотека
//точка входа. Консольное приложение
int main()
{
/*Задает языковой стандарт по умолчанию, т.е. заданную по умолчанию
для пользователя кодовую страницу ANSI, полученную от операционной системы.
*/
setlocale(LC_ALL, "");
//wchar_t ch;
inkey://метка
wprintf(L"Нажмите клавишу\n \"Esc\" - Выход\n");
//иинициализация переменной
int key=getch();//значение клавиши в переменную
//ch=key;
//если нажата Esc - выход
if (key==27)//код Esc
{
return 0;//выход
}
//продолжаем если не Esc
else
{
wprintf(L"Код клавиши Dec=%d Hex=%x\n",key,key);//выводим код
wprintf(L"\n Символ клавишы %lc \n",key);//выводим символ
goto inkey;
}
}
28th
Авг
Взаимодействие через командную строку
Если установить к примеру node.js, то в любой момент можно запросить через командную строку к примеру node —version или node —help
Вопрос, как реализовать подобное. То есть запуск в фоновом режиме и обращение по конкретному имени, а не просто запуск файла.
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет Microsoft Office Excel excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)