|
|
|
| Другие темы раздела | |
| Lazarus Серийный номер материнской платы или винчестера Здравствуйте! Как узнать серийный номер материнской платы или винчестера под lubuntu 15.04? Спасибо https://www.cyberforum.ru/ lazarus/ thread1536498.html |
Выбор label по индексу Lazarus Здравствуйте. У меня на форме размещены несколько Label-ов. И я хочу дать возможность пользователю менять их расположение на форме. У меня будет 2 кнопки(Top и Left) и 2 Edit-а соответственно. Так вот, я не хочу плодить на каждый label свои кнопки, а хочу задавать их по индексу. Добавить например еще один Edit, и считывать с него индекс нужного Label-а. Наверное, нужно сделать какой-то... |
|
Lazarus Нарисовать мяч и звёзды
https://www.cyberforum.ru/ lazarus/ thread1535327.html вобщем попытался я сделать с помощью канвы и в итоге нарисовал только мяч с перекрестием ,но до парабол и до звёзд не додумался... вернее есть вариант про параболы но вот про звёзды не могу сообразить. Canvas.Brush.Style:=bssolid; Canvas.Brush.Color:= clred; Canvas.Ellipse(250, 450, 500, 128); Canvas.Brush.Color:= clblack; Canvas.Line(375,450,375,125); |
Lazarus Перевод кода из паскаля Переведите пожалуйста код из паскаля в лазарус. uses crt; type tovar=record naz:string; kol:integer; imp:integer; prc:real; end; var a:array of tovar; n,i:byte; https://www.cyberforum.ru/ lazarus/ thread1535012.html |
|
Иероглифы при экспорте данных из таблицы StringGrid в файл Lazarus Пишу программу, выполняющую расчёты по заданным в программе формулам, используя данные, которые загружаются из XML-файлов. На компьютерах, где возможно будет использоваться программа может отсутствовать какой-либо офисный пакет (ни MS Office, ни OpenOffice или LibreOffice), поэтому мною была добавлена возможность создания Excel-файлы на основе данных из |
Lazarus Найти в одномерном числовом массиве элемент, который наибольшее количество раз повторяется в массиве
https://www.cyberforum.ru/ lazarus/ thread1532805.html Здравствуйте, находил подобную задачу у вас написанную в консольном режиме, но возникают трудности с переносом её в среду лазаруса, может кто-то может помочь? Найти в одномерном числовом массиве элемент, который наибольшее количество раз повторяется в массиве. Вывести это число и количество его вхождений в массив |
| Lazarus Небольшая программа на Lazarus Нужна программа ,внутри которой есть 3 кнопки,в идеале. 1)Start - благодаря которой остальные 2 приходят в движение. 2)Button1 3)Button2 2 кнопки должны передвигаться диагонально по нажатию Start, это я сделал для 1ой кнопки: Button1.Top:=Button1.Top+vy; Button1.Left:=Button1.Left+vx; Но,надо,чтобы они отталкивались от стенок окна программы и от друг друга. Этого я не знаю как... https://www.cyberforum.ru/ lazarus/ thread1532796.html |
Lazarus Найти максимальное количество подряд идущих одинаковых элементов в одномерном массиве Доброго времени суток, столкнулся не большой проблемой в решении задачи. Будьте добры помочь с ней. Дан одномерный числовой массив. Найти максимальное количество подряд идущих одинаковых элементов |
|
Lazarus Не работает AllocConsole
https://www.cyberforum.ru/ lazarus/ thread1532611.html Прблема в том, что пока я не добавил кнопку на форму - компилятор выдавал разнообразные ошибки, под разные варианты кода. Добавил кнопку - стал компилировать, но, опять-же, при разных вариантах консоль, при запуске, виснет и начинает выдавать одну и ту-же строку. unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,... |
Lazarus Компиляция проекта из-под Linux для Win32
https://www.cyberforum.ru/ lazarus/ thread1532577.html Здравствуйте. Я работаю из под Linux, нужно что-бы созданная мною программа работали и под win32. В параметрах проекта указал нужную ОС. В итоге при компиляции Lazarus выдал мне ошибку: "Fatal: Невозможно найти модуль system, используемый в fcllaz пакета FCL." Найдя статью http://www.freepascal.ru/article/raznoe/20070512172316 Начал следовать указаниям в разделе "Компиляция RTL" Нашел, что... |
|
Lazarus Как написать игру "Судоку"? Всем привет, мне нужна такая помощь, задали написать игру судоку, а я не имею представления как ее написать! Если кто знает помогите мне пожалуйста! |
Lazarus Очистить TMemo
https://www.cyberforum.ru/ lazarus/ thread1531301.html Что-то делаю не так, но что не знаю. Вот код { TForm1 } procedure TForm1.MenuItem1Click(Sender: TObject); begin end; procedure consopen; begin |
|
Супер-модератор
  |
||||||
| 23.09.2015, 19:44 | 0 | |||||
Установить цвет текста в AllocConsole - Lazarus - Ответ 810696523.09.2015, 19:44. Показов 3262. Ответов 5
Метки (Все метки)
 Сообщение было отмечено Hretgir как решение
Решение
Использовать функцию SetConsoleTextAttribute
Например, вот так:
Вернуться к обсуждению: Установить цвет текста в AllocConsole Lazarus
3
|
||||||
| 23.09.2015, 19:44 | |
|
Готовые ответы и решения:
5
Как установить цвет текста? Установить цвет текста в соответствии с введенной цифрой Не могу установить цвет фона и текста в полях и кнопках форм. Msacces2003
|
| 23.09.2015, 19:44 | |
| 23.09.2015, 19:44 | |
|
Помогаю со студенческими работами здесь
0
Задать стили (цвет текста) списку. Как задать цвет текста Как поменять цвет текста консоли на любой цвет из RGB цветов
Как поменять цвет фона кнопки и цвет текста на кнопке? |