Недавно добавленные исходники

•  Animation Loaders  702

•  DeLiKaTeS Tetris (Тетрис)  5 705

•  TDictionary Custom Sort  7 659

•  Fast Watermark Sources  7 349

•  3D Designer  10 557

•  Sik Screen Capture  7 876

•  Patch Maker  8 102

•  Айболит (remote control)  8 157

•  ListBox Drag & Drop  6 952

•  Доска для игры Реверси  100 180

•  Графические эффекты  8 224

•  Рисование по маске  7 613

•  Перетаскивание изображений  6 217

•  Canvas Drawing  6 583

•  Рисование Луны  6 511

•  Поворот изображения  5 685

•  Рисование стержней  4 606

•  Paint on Shape  3 302

•  Генератор кроссвордов  4 293

•  Головоломка Paletto  3 435

•  Теорема Монжа об окружностях  4 256

•  Пазл Numbrix  2 757

•  Заборы и коммивояжеры  3 661

•  Игра HIP  2 469

•  Игра Go (Го)  2 455

•  Симулятор лифта  2 862

•  Программа укладки плитки  2 297

•  Генератор лабиринта  3 024

•  Проверка числового ввода  2 523

•  HEX View  2 932

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Подсветить изображение



Оформил: DeeCo

{ 
Question: 
  Does anyone know of a way that I can achieve the same effect on a bitmap 
  that windows achieves when you single click on an icon on the desktop?  In 
  other words, I want to "sorta highlight" a bitmap and let the user know that 
  it's selected. 

Answer: 

  To me it appears as if the icons on my desktop are highlighted by overlaying 
  them with a certain color, so I guess the following routine is of use. 
}


 procedure Highlight(aSource, ATarget: TBitmap; AColor: TColor);
 //alters ASource to ATarget by making it appear as if 
//looked through 
//colored glass as given by AColor 
//ASource, ATarget must have been created. 
//Isn't as slow as it looks. 
//Physics courtesy of a post by K.H. Brenner 
var i, j: Integer;
   s, t: pRGBTriple;
   r, g, b: byte;
   cl: TColor;
 begin
   cl := ColorToRGB(AColor);
   r := GetRValue(cl);
   g := GetGValue(cl);
   b := GetBValue(cl);
   aSource.PixelFormat := pf24bit;
   ATarget.PixelFormat := pf24bit;
   ATarget.Width := aSource.Width;
   ATarget.Height := aSource.Height;
   for i := 0 to aSource.Height - 1 do
   begin
     s := ASource.Scanline[i];
     t := ATarget.Scanline[i];
     for j := 0 to aSource.Width - 1 do
     begin
       t^.rgbtBlue := (b * s^.rgbtBlue) div 255;
       t^.rgbtGreen := (g * s^.rgbtGreen) div 255;
       t^.rgbtRed := (r * s^.rgbtRed) div 255;
       inc(s);
       inc(t);
     end;
   end;
 end;




Похожие по теме исходники

Image2Text (изображение в текст)




Copyright © 2004-2026 "Delphi Sources" by «SiteAnalyzer». Delphi World FAQ

Группа ВКонтакте