Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

Вписать рисунок в RoundRect   Найти похожие ветки 

 
Alex_C   (2012-03-05 12:12) [0]

На канвасе нужно нарисовать RiundRect и вписать в него рисунок.
Делаю так:

procedure DrawRoundRect2Canvas(FromFastDIB: TFastDIB; ToCanvas: TCanvas;
 Left, Top, Width, Height, R1, R2: integer; Alpha: Byte);
var
 DestDIB, TmpBmp, BkgPic: TFastDIB;
 y, x: integer;
 Src, Dest: PLine24;
begin
 if (Width < 5) or (Height < 5) then
   Exit;

 DestDIB := TFastDIB.Create;
 // Устанавливаем конечный размер изображения
 DestDIB.SetSize(Width, Height, FromFastDIB.Bpp);
 // Копиреум изображение из исходного источника
 SmoothResize(FromFastDIB, DestDIB, rfCatrom, nil, True);
 // Вспомогательный FastDIB с нарисованным RoundRect
 TmpBmp := FDIB_Create(Width, Height, FromFastDIB.Bpp);
 TmpBmp.SetBrush(BS_SOLID, HS_HORIZONTAL, clWhite);
 Windows.RoundRect(TmpBmp.hDC, 0, 0, Width, Height, R1, R2);

 for y := 0 to TmpBmp.Height - 1 do
 begin
   Src := TmpBmp.ScanLines[y];
   Dest := DestDIB.ScanLines[y];
   for x := 0 to TmpBmp.Width - 1 do
   begin
     //если точка (x, y) на созданном Bitmap белая,
     //то точку (x, y) на исходном Bitmap закрашиваем BackColor
     if Src[x].r = 255 then
     begin
       // А вот здесь нужно рисовать на исходном канвасе ???
     end;
   end;
 end;

 DestDIB.Free;
 TmpBmp.Free;
end;


Никак не соображу, как перейти к координатам канваса, на котором нужно рисовать?


 
Андреевич   (2012-03-05 15:14) [1]

dest[x]:=src[x];
вроде бы


 
Омлет ©   (2012-03-05 22:02) [2]

Как-то так: http://delphi-e.narod.ru/bmp_ellipse_cut.html



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.061 c
15-1336034354
ZeroDivide
2012-05-03 12:39
2013.03.22
Delphi перестала работать комбинация Ctrl+Shift+стрелки,


15-1346298010
boriskb
2012-08-30 07:40
2013.03.22
Помогите выбрать планшетник


4-1259833099
Mixali4
2009-12-03 12:38
2013.03.22
Как получить идентификатор контекстного меню


15-1340601785
Oleg1
2012-06-25 09:23
2013.03.22
Начинающим


15-1342187339
SeaData
2012-07-13 17:48
2013.03.22
[работа] Требуется старший программист (Delphi + MySQL)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский