Последние записи
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
29th
Окт
Рассылка. Выпуск 82
Posted by Chas under Рассылка
От ведущего.
Приветствую вас, дорогие подписчики. Рад снова приветствовать вас в очередном еженедельном выпуске нашей рассылки. Спешу сообщить вам, что вышел 7 номер журнала Программист. В нашем сегодняшнем выпуске рассылки вы можете прочитать обзор интересных тем форума за неделю.
Новые интересные статьи клуба программистов.
Статьи на сайте клуба постоянно пополняются. Поэтому это постоянная и основная рубрика рассылки. Так же здесь обзор топиков форума и блога программистов.
Рисование текста на рабочем столе
Доброе утро! Как вывести текст на рабочем столе в том месте, где я указываю мышкой? Например, как это делается в Paint или Paint.NET, когда нужно вывести текст на картинку.
Тема на форуме
Как с помощью OpenDialog открыть несколько файлов?
procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
F: TextFile;
FirstLine: string;
begin
OpenDialog1.Options := [ofAllowMultiSelect, ofFileMustExist];
OpenDialog1.Filter := ‘Text files (*.txt)|*.txt|All files (*.*)|*.*’;
OpenDialog1.FilterIndex := 2; { start the dialog showing all files }
if OpenDialog1.Execute then
with OpenDialog1.Files do
for I := 0 to Count – 1 do
begin
AssignFile(F, Strings[I]); { next file in Files property }
Reset(F);
Readln(F, FirstLine); { Read the first line out of the file }
Memo1.Lines.Append(FirstLine); { Add the line to the memo }
CloseFile(F);
end;
end;
Возможно ли использовать в Delphi шрифты не установленные в системе?
procedure TForm1.FormCreate(Sender: TObject);
begin
//объявляем свой шрифт
AddFontResource(‘IZHITSA.TTF’) ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
//применяем его
Button1.font.name := ‘IZHITSA’;
//Button1.font.size := 10;
end;
begin
//объявляем свой шрифт
AddFontResource(‘IZHITSA.TTF’) ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
//применяем его
Button1.font.name := ‘IZHITSA’;
//Button1.font.size := 10;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
//ликвидируем
RemoveFontResource(‘IZHITSA.TTF’) ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;
Как удалить все значения Items в ListBox?
ListBox1.Clear;
Сравнение строк методом перебора в StrinGride
Не могу придумать код, перебора строк в StringGrid. Мне нужно найти строку из Edit’а в StringGrid при этом, если она не будет найдена, то применить ее из Edit к String
Тема на форуме
Как организовать цикл от 00000 до 55555?
Мне нужно подставить значения в текст именно от 00000 до 55555 (не от 0).
что бы было 00001, 00002, 00003….
Тема на форуме
Заполнение StringGrid из ListBox c извлечением имени
мне надо убрать расширение у файлов и показывать только имя.
Тема на форуме
Как изменять контрастность изображения?
Тема на форуме
Как осуществить в Delphi вихрь Мерсенна?
Вот чтоб сутра мозги размять попробовал слизать один пример с Си
Тема на форуме
Как втавить Image в ListBox?
Тема на форуме
Как смешать две картинки?
Тема на форуме
Как создать в listbox события OnChange и OnChanging?
Тема на форуме
MaskEdit – как сделать маску ip-адреса?
В некотором роде ожидаемое поведение курсора можно сделать таким образом:
procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
I : Integer;
begin
if Key = VK_RIGHT then begin
I := MaskEdit1.SelStart;
if (I-1) mod 4 = 0 then
MaskEdit1.SelStart := I + 3;
end;
end;
var
I : Integer;
begin
if Key = VK_RIGHT then begin
I := MaskEdit1.SelStart;
if (I-1) mod 4 = 0 then
MaskEdit1.SelStart := I + 3;
end;
end;
Седьмой выпуск журнала «ПРОграммист»
Здравствуйте, уважаемые читатели журнала «ПРОграммист» от Клуба ПРОграммистов www.programmersforum.ru. Октябрь подарил нашему проекту и читателям новых авторов. Будем надеяться, постоянных, так как материалы и их опыт, представленные в данном номере, будут полезны не только начинающим программистам, но и профессионалам. Напоминаем вам, что на официальном сайте журнала www.procoder.info продолжается формирование анкет авторов и сам автор, по желанию, может скорректировать информацию о себе. Для этого достаточно обратиться письмом к администратору сайта Василию Мединцеву на электронный ящик info(а)procoder.info. По-прежнему мы рады вашим заметкам, предложениям и статьям, которые вы можете прислать на редакторский ящик-копилку maindatacentr(а)gmail.com
Тема на форуме
На сайте клуба есть рубрики пост-обзор и топик-обзор клуба программистов.
Немного юмора.
***
Сидит психиатр (П) у себя в кабинете – скучает… пациенты не идут.
Тут тихонько так приоткрывается дверь и к нему на карачках заползает человек (Ч) сжимая что-то в зубах, руках и т. д. плюс что-то еще волочится сзади.
П: – Ой кто это к нам тут ползет!!! Это наверное маленькая змейка. Заползай змейка, заползай маленькая, доктор тебе поможет.
Человек отрицательно машет головой.
П: – А-А-А. это наверное черепашка к нам в гости пожаловала. Заползай черепашка в кресло и расскажи дяде доктору что с тобой случилось…
Человек отрицательно машет головой.
П: Так кто же это у нас – наверное маленький червячок??
Ч: ДОКТОР, ИДИТЕ НА …., Я СИСАДМИН, ВАМ
СЕТЬ ПРОКЛАДЫВАЮ
***
1) Со слов менеджера:
— Hе включается компьютер – зову админа. Админ приходит, воздевает руки к небу, бормочет про себя невнятные слова, поворачивает мой стул 10 раз вокруг своей оси, пинает компьютер – тот начинает работать. Вновь воздевает руки к небу, что-то бормочет, уходит.
2) Со слов сисадмина:
— Прихожу к юзеру – этот дурак так вертелся на стуле, что у него шнур питания на ножку намотался и выскочил из компа. Матерюсь про себя, распутываю, запихиваю комп ногой подальше под стол, включаю, ухожу..
***
Табличка в отделе компьютерной поддержки:
Теория – это когда вы знаете все, но ничего не работает.
Практика – это когда все работает, но никто не знает почему.
В ЭТОМ МЕСТЕ мы совмещаем теорию и практику – ничего не работает и никто не знает почему!
Посетите раздел юмора на форуме, который обновляется постоянно
Случайные статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)
