[neva26]

У меня тут такая проблема.
Возможно ли сгладить объекты отрисованные старым GDI. Думается для этого нужно использовать GDI+. Но я не в курсе как это реализовать.
Просто у меня есть проект, где все отрисовывает старый GDI. В принципе меня все устраивает, но хотелось бы сгладить все, чеб было по красивее. Пусть даже в ущерб скорости. Это будет как опция (On|Off).

Кто в теме помогите решить эту проблему. Спать уже не могу, она мне по ночам снится .

Я тут эксперементировал ( в меру своей компетентности в этом вопросе ), но ничего не получилось.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

//  Uses GDIPAPI, GDIPOBJ; procedure TForm1.FormPaint(Sender: TObject); var   LF: TLogFont;   fnt: HFont;   innerContainer: GraphicsContainer;   graphics : TGPGraphics;   brush: TGPSolidBrush;   FontFamily: TGPFontFamily;   Font: TGPFont;   PN: TGPPen; begin   graphics := TGPGraphics.Create(self.Canvas.Handle);   brush:= TGPSolidBrush.Create(MakeColor(255, 0, 0, 255));   FontFamily := TGPFontFamily.Create('Times New Roman');   Font := TGPFont.Create(fontFamily, 36, FontStyleRegular, UnitPixel);   PN := TGPPen.Create(MakeColor(255, 0, 0, 0));     // Здесь устанавливаю сглаживание обыектов   graphics.SetTextRenderingHint(TextRenderingHintAntiAlias); // Сглаживаю текст   graphics.SetSmoothingMode(SmoothingModeAntiAlias); // Сглаживаю объекты //  graphics.SetCompositingQuality(CompositingQualityHighQuality); //  graphics.SetInterpolationMode(InterpolationModeHighQualityBilinear);         //++++++++++++++++++++++++++++++++++++++++++++       // Объекты нарисовынные средствами GDI+       graphics.DrawString('Текст GDI+', 15, font, MakePoint(20.0, 10.0), brush);       PN.SetWidth(5);       graphics.DrawLine(PN, 20, 10, 300, 100);     //  graphics.DrawRectangle(PN,10,10,250,250);       //++++++++++++++++++++++++++++++++++++++++++++         innerContainer := graphics.BeginContainer();       //++++++++++++++++++++++++++++++++++++++++++++       // Объекты нарисовынные средствами старого GDI       // ВОЗМОЖНО ЛИ ИХ ОТРИСОВАТЬ СГЛАЖЕННЫМИ       LF.lfHeight := 50;     //  LF.lfWeight := FW_BOLD;       LF.lfUnderline := 1;       LF.lfEscapement := 300;       StrPCopy(LF.lfFaceName, 'Arial Bold');       Fnt := CreateFontIndirect(LF);       Canvas.Font.Handle := Fnt;       Canvas.TextOut(0,300,'Текст GDI');       Canvas.Pen.Width := 5;       Canvas.LineTo(25,205);       DeleteObject(Fnt);       //++++++++++++++++++++++++++++++++++++++++++++       graphics.EndContainer(innerContainer);     PN.Free;   Font.Free;   brush.Free;   FontFamily.Free;   graphics.Free; end;