| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

КАК работать с SmoothDIB. [Delphi, Windows]

Valera ©   (2008-05-24 11:48:00) 

Мне надо нарисовать линию со сглаживанием с его помощью но только
мне надо нарисовать ёё на битмапе обычном (не пустом).

Вот SmoothDIB
http://www.kolnmck.ru/files/components/graphics/smoothdib.7z

Мне надо сделать

PSmoothDIB --> Pbitmap

Нарисовать линию со сглаживанием.
Потом вернуть это на Bitmap.

Pbitmap  --> PSmoothDIB
.

Как преобразововать.

---

Valera   (2008-06-24 13:36:00) [1]

Спасибо большее Дмитрий К

---

Дмитрий К   (2008-05-25 15:33:00) [2]

program testsmoothdib;

uses
 Windows, KOL, SmoothDIB;

var
 Bmp: PBitmap;
 SD: PSmoothDIB;

procedure FormPaint(Dummy, Sender: PControl; DC: HDC);
begin
 Bmp.Draw(DC, 0, 0);
end;

var
 Form: PControl;

begin
 Form := NewForm(nil, 'SmoothDIB Test');
 Bmp := NewBitmap(200, 100);
 Form.Add2AutoFree(Bmp);

 with Bmp.Canvas^ do
 begin
   Brush.Color := clWhite;
   Pen.Color := clRed;
   Pen.PenWidth := 1;
   FillRect(Bmp.BoundsRect);
   MoveTo(10, 10);
   LineTo(190, 90);
 end;

 New(SD, Create);
 Form.Add2AutoFree(SD);
 SD.DIB.Assign(Bmp);
 SD.PenWidth := 0.5;
 SD.Canvas.Pen.Color := clBlue;
 SD.DrawLine(190, 10, 10, 90);
 Bmp.CopyRect(Bmp.BoundsRect, SD.DIB, SD.BoundsRect);

 Form.OnPaint := TOnPaint(MakeMethod(nil, @FormPaint));

 Run(Form);
end.

---

Valera   (2008-05-25 00:04:00) [3]

Блин почему небыло демо в данном компоненте. Очень бы помогло.
Скажите хотя бы куда копать.

---

Valera   (2008-05-24 11:49:00) [4]

Ой то есть наоборот..

Pbitmap  --> PSmoothDIB

Нарисовать линию со сглаживанием.
Потом вернуть это на Bitmap.

PSmoothDIB --> Pbitmap

---

Наверх