Последние записи
- 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
6th
Ноя
Рассылка. Выпуск 83
Posted by Chas under Рассылка
От ведущего.
Здравствуйте, читатели рассылки. Поздравляю всех наших подписчиков и форумчан с праздником — Днём народного единства. Идут долгожданные длинные выходные, надеюсь, вы их проведете так, что вам не будет обидно за бесцельно прожитые дни. Читайте в этом номере обзор интересных тем за неделю.
Новые интересные статьи клуба программистов.
Статьи на сайте клуба постоянно пополняются. Поэтому это постоянная и основная рубрика рассылки. Так же здесь обзор топиков форума и блога программистов.
Седьмой выпуск журнала «ПРОграммист»
Здравствуйте, уважаемые читатели журнала «ПРОграммист» от Клуба ПРОграммистов www.programmersforum.ru. Октябрь подарил нашему проекту и читателям новых авторов. Будем надеяться, постоянных, так как материалы и их опыт, представленные в данном номере, будут полезны не только начинающим программистам, но и профессионалам. Напоминаем вам, что на официальном сайте журнала www.procoder.info продолжается формирование анкет авторов и сам автор, по желанию, может скорректировать информацию о себе. Для этого достаточно обратиться письмом к администратору сайта Василию Мединцеву на электронный ящик info(а)procoder.info. По-прежнему мы рады вашим заметкам, предложениям и статьям, которые вы можете прислать на редакторский ящик-копилку maindatacentr(а)gmail.com.
Тема на форуме
Получить список файлов и время создания файла в ListView
Надо, что бы при нажатии на кнопку, происходило сканирование директории в которой лежит экзешник и в соответствующие поля заносилась информация о файле — Название и Дата создания.
Тема на форуме
Флешка как ключ
Можно ли это реализовать:
Есть пользовательская версия — запускается только с ограниченными возможностями — например на 10 минут и все.
ПВ находится на компьютере.
Есть мастер-файлы на Флешке. При запихивании флешки в USB с приложения снимаются все ограничения.
Думаю, может у флешки есть какой нибудь номер, как у харда, что бы можно было «привязать» мастер-файлы только к этой флеши.
Или даже ПВ делать просто физически неполной. А недостающие для полной версии файлы запихнуть на флешку.
Тема на форуме
Скрытие кнопки программы на панели задач
Для Делфи7 (на VCL) вполне достаточно такого:
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;
begin
SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
end;
Удаление пустых строк в StringGrid с «поднятием» остальных
Возникла необходимость в удалении пустых строк в StringGrid, но чтобы оставшиеся «поднялись» наверх, т.е. как бы сдвинулись со своих позиций на -1 значение.
procedure TForm1.Button7Click(Sender: TObject);
var
row: integer;
begin
for row:=0 to Form1.StringGrid1.RowCount — 1 do
begin
if Trim(StringGrid1.Rows[row].Text) = » then
THackGrid(StringGrid1).DeleteRow(row);
end;
end;
var
row: integer;
begin
for row:=0 to Form1.StringGrid1.RowCount — 1 do
begin
if Trim(StringGrid1.Rows[row].Text) = » then
THackGrid(StringGrid1).DeleteRow(row);
end;
end;
procedure TForm1.Button8Click(Sender: TObject);
var i,j: integer;
begin
for i:=1 to StringGrid1.ColCount-1 do
for j:=0 to StringGrid1.RowCount-1 do
StringGrid1.Cells[i,j]:=IntToStr(i)+IntToStr(j);
end;
Как взять значение из последней ячейки StringGrid?
Первую ячейку тут все понятно, а вот как определить самое последнее значение в StringGrid? Количество строк может быть разное, поэтому сколько именно строк будет я не знаю. Вот и надо как-то определить и вытащить значение из самой последней ячейки.
Тема на форуме
Поиск и замена файлов в заданных каталогах
Тема на форуме
Изменение цвета поля edit при попадании на него курсора
Есть форма, на ней два поля (Edit1 и Edit2), при нажатии клавиши enter курсор переходит с одного поля на другой по очереди . Нужно чтобы при попадании кусора в edit1 или edit2 эти поля должны изменять цвет.
Тема на форуме
Дерево жесткого диска в StringList
Тема на форуме
Как узнать сколько занимает памяти программа?
Тема на форуме
Как запретить принтскрин?
Тема на форуме
Как менять позицию курсора в RichEdit c помощью TrackBar?
procedure TForm1.RichEdit_MoveTo(LineNumber, CharNumber: Word);
begin
RichEdit1.SelStart := RichEdit1.Perform(EM_LINEINDEX, LineNumber, 0) + CharNumber;
end;
begin
RichEdit1.SelStart := RichEdit1.Perform(EM_LINEINDEX, LineNumber, 0) + CharNumber;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
RichEdit_MoveTo(TrackBar1.Position,5);
Application.ProcessMessages;
RichEdit1.SetFocus;
end;
Проект facemesh.ru
Посмотрев фильм «социальная сеть» один из участников форума решил повторить проект facemesh.ru
Тема на форуме
Кто над чем работает?
Доброе утро! Давно я на этом форуме и знаю, что здесь очень много умных людей, программистов-профессионалов. Поэтому интересно. А кто чем занимается в данный момент? Кто над чем работает? Над каким проектом? . Пишите, лично мне будет интересно узнать. Можно просто сказать область в которой работаете над проектом, если рассказывать о нем не хотите.
Тема на форуме
На сайте клуба есть рубрики пост-обзор и топик-обзор клуба программистов.
Немного юмора.
Юмор с 7 выпуска журнала ПРОграммист:
***
Очередная пятая тема-клон от одного автора на форуме нашего Клуба programmersforum.ru…
cop08: Дан двумерный числовой массив. Найти
сумму максимальных элементов в строках
BOBAH13: В принципе, можно еще раз 50 тем создать.
***
Вопрос на собеседовании: Назовите основные принципы ООП?
Ответ: Наследование, полиморфизм и… третий.
***
Админы, скажыте пожалусто есть ли антивирусы на подобе «Dr.web» которые сами производят очистку вирусов нужно делать проверку компьютера потомучто меня уже 3 тию неделю подряд аблезают вирусы и меня отключают, пожалусто ответить мне на вопрос…
***
Рекордная скорость передачи информации на малые расстояния была достигнута сегодня в офисе одной из компьютерных фирм при падении со стеллажа высотой в один метр коробки, содержавшей 20 накопителей Seagate Barracuda 300 GB. Общий объем переданной на расстояние 1 метра информации составил 300*20*8 = 48 000 гигабит, время передачи составило t=sqrt(2h/g)=0.4 секунды. Таким образом, средняя скорость передачи информации составила 120 терабит/с!
Посетите раздел юмора на форуме, который обновляется постоянно
Читать этот номер в клубе.
Случайные статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)
