From: Zoran R. <zr...@be...> - 2006-12-09 23:56:02
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type"> </head> <body bgcolor="#ffffff" text="#000000"> I need help with synedit. I want to extend the gutter without changing the Paint and PaintGutter methods in synedit.pas. <br> <br> I managed to write the plugin and to extend the gutter in this way:<br> <br> <blockquote>procedure TMyPlugin.AfterPaint(ACanvas: TCanvas; const AClip: TRect; FirstLine,<br> LastLine: integer);<br> var rect: TRect;<br> begin<br> inherited;<br> rect := AClip; <br> rect.Left := fowner.Gutter.Width;<br> rect.Right := fowner.Gutter.Width+20;<br> ACanvas.Brush.Color := clRed;<br> ACanvas.FillRect(rect);<br> end;<br> </blockquote> Everything is fine with the new gutter, however the text in synedit is now partially under my new extended gutter. How do I instruct synedit that the gutter has changed its width and to paint text on the right place (20 pixels away from the original gutter)?<br> <br> Thanks.<br> </body> </html> |