Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Delphi Russian Knowledge Base 2.3, Новая версия от 30 января 2005 года 
:(
    Опции темы
StayAtHome
Дата 6.12.2005, 08:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Домосед
**


Профиль
Группа: Участник
Сообщений: 456
Регистрация: 26.1.2004
Где: Украина

Репутация: 1
Всего: 16
Статья "Shell Extensions и как с ними бороться"
О расширении контекстных меню. К сожалению, сам не пробовал, но, думаю, интересно.

Это сообщение отредактировал(а) StayAtHome - 6.12.2005, 08:15
PM MAIL WWW ICQ YIM   Вверх
Fighter
Дата 11.12.2005, 23:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 810
Регистрация: 5.1.2005

Репутация: нет
Всего: 2
Нужно то же самое для Visual C++!!!
PM MAIL   Вверх
December
Дата 6.2.2006, 01:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57
Внесу и я свой contribution, по мере сил smile
В топике "Качественно уменьшить изображение" я усовершенствовал первый пример. Теперь он универсальнее и лаконичнее.
Код

procedure ShrinkPic(Big:TBitmap;Small:TBitmap;xscale:integer=0;yscale:integer=0);
//Из уже созданной картинки Big заполняет уже созданную картинку Small
var
  x, y: integer;
  i, j: integer;
  r, g, b: integer;
begin
//Если указан фактор сжатия по ширине, то устанавливаем правильный размер, иначе вычисляем фактор
if xscale=0
  then xscale:=Big.Width div Small.Width
  else Small.Width:=Big.Width div xscale;
//Если указан фактор сжатия по высоте, то устанавливаем правильный размер, иначе вычисляем фактор
if yscale=0
  then yscale:=Big.Height div Small.Height
  else Small.Height:=Big.Height div yscale;
for y := 0 to Small.Height-1 do
  for x := 0 to Small.Width-1 do
    begin
    r := 0;
    g := 0;
    b := 0;
    for i := 0 to xscale-1 do    
      for j := 0 to yscale-1 do  
        begin
        r := r + GetRValue(Big.Canvas.Pixels[xscale*x+i, yscale*y+j]);
        g := g + GetGValue(Big.Canvas.Pixels[xscale*x+i, yscale*y+j]);
        b := b + GetBValue(Big.Canvas.Pixels[xscale*x+i, yscale*y+j]);
        end;//for, for
    r := round(r/xscale/yscale);
    g := round(g/xscale/yscale);
    b := round(b/xscale/yscale);
    Small.Canvas.Pixels[x,y]:=RGB(r,g,b)
    end;//for y, x
end;//ShrinkPic

Замечания.
1. В двух вложенных форах можно xscale-1 или yscale-1 заменить константой, в зависимости от области использования. Мой пример соптимизирован для соотношения 4:1.
2. Процедура медленная. Даже использование scanline'ов не спасает ситуацию кардинально, поэтому я не стал приводить более быстродействующий вариант, так как он более запутан. Для продвинутого преобразования я использую отдельную библиотеку.


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
bagira
Дата 22.4.2006, 22:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2858
Регистрация: 25.10.2003
Где: в тайге Уральских гор

Репутация: нет
Всего: 123
Vit, огромное спасибо!

На работе - не было времени придумывать код, нужно было сделать одну вещь срочно.
Взяла кусочек из DRKB, сразу, напрямую, даже не разбираясь вначале, что к чему.
Все подошло и сразу заработало. Удивительно!
Редко беру что-то готовое, обычно сама придумываю, и не всегда оптимально.

Класс! smile
Полезная штука.
Спасибо!
 


--------------------
Сегодня ты не бродил, не искал, не любил - можно сказать - и не жил...
Ф.Х. Дагларджа (Турция)
http://zveriolginovour.ru/
https://vmeste.yandex.ru/zveriolginovour 
PM MAIL WWW ICQ   Вверх
bagira
Дата 22.4.2006, 23:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 2858
Регистрация: 25.10.2003
Где: в тайге Уральских гор

Репутация: нет
Всего: 123
Цитата
 На Эллочку вещь произвела такое же неотразимое впечатление, какое производит старая банка из-под консервов на людоеда Мумбо-Юмбо. 

Ильф и Петров "12 стульев" 


 smile Это про меня! Точно так же радовалась, как дурочка, когда код заработал!   smile 
(извините за оффтоп)  


--------------------
Сегодня ты не бродил, не искал, не любил - можно сказать - и не жил...
Ф.Х. Дагларджа (Турция)
http://zveriolginovour.ru/
https://vmeste.yandex.ru/zveriolginovour 
PM MAIL WWW ICQ   Вверх
Vit
Дата 23.4.2006, 04:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Цитата(bagira @  22.4.2006,  14:01 Найти цитируемый пост)
Это про меня! Точно так же радовалась, как дурочка, когда код заработал!



 smile  


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
StayAtHome
Дата 3.5.2006, 12:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Домосед
**


Профиль
Группа: Участник
Сообщений: 456
Регистрация: 26.1.2004
Где: Украина

Репутация: 1
Всего: 16
Чтобы случайно не пропустил: smile
Учимся работать с многопоточными файлами в NT (имелось в виду NTFS видимоsmile ) 
PM MAIL WWW ICQ YIM   Вверх
Bose
  Дата 7.7.2006, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51
В статье "MDI приложения -> Сколько открыто дочерних окон?" ошибка
 

Цитата

Form1.MDIChildCount 

Закрыть все окна: 

Ошибочный код:
Код

with Form1 do  
  for I := 0 to MDIChildCount-1  
    do MDIChildren[I].Close; 




Правильный код:
Код

with Form1 do  
  For i := MDIChildCount-1 DownTo 0 Do
      if Assigned(MDIChildren[i]) then
      begin
        MDIChildren[i].Close;
      end;



п.с.  немножко отредактировал: убрал Application.ProcessMessages; из тела цикла. Всё-таки сдаётся мне, что он здесь совсем лишний
 

Это сообщение отредактировал(а) Bose - 19.7.2006, 10:58


--------------------
Лучшее о Delphi за 2013 год. Подборка ссылок.
PM MAIL WWW Skype   Вверх
Wh`te
Дата 29.8.2006, 07:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 27.12.2004
Где: Томск

Репутация: нет
Всего: нет
Cпасибо за ваш труд, постоянно кунаюсь в базу, просто неоценимое подспорье!   smile 
PM MAIL WWW ICQ   Вверх
s0neg
Дата 14.9.2006, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


under constraction



Профиль
Группа: Участник
Сообщений: 17
Регистрация: 10.9.2006
Где: Behind You

Репутация: 1
Всего: 1
Спасибо вам! Пользуюсь DRKB вместе с Delphi World и очень доволен smile А создание следущей версии планируется?
PM MAIL   Вверх
Quadr0
Дата 16.9.2006, 21:40 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 12:58
  Вверх
Akella
Дата 18.9.2006, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
ждём-с с нетерпением-с
PM MAIL   Вверх
forever
Дата 27.9.2006, 16:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 25
Регистрация: 3.9.2006

Репутация: нет
Всего: нет
Цитата(Quadr0 @  16.9.2006,  21:40 Найти цитируемый пост)
Туда же скорее всего попадут некоторые исправления

Обратил внимание на мелкую неточность: в статье "Как вычислить IP-адрес по доменному имени" приведен пример функции выполняющей прямо противоположное: получение имени по IP.
PM   Вверх
SergV
Дата 1.10.2006, 14:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 4.8.2006
Где: Германия

Репутация: нет
Всего: 1
Должно быть хорошая подборка, спасибо за справочник, буду смотреть. smile 
PM   Вверх
W1zArD
Дата 19.11.2006, 12:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 285
Регистрация: 29.1.2006

Репутация: 3
Всего: 3
а подборка больше чем в dw?
и еще не плохо бы создать оболочку... и сделать прогу в которую загоняем комменты+код а она конвертирует под рабочий лад для оболочки...  smile 
PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0602 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.