>Can you create a patch? >http://wiki.lazarus.freepascal.org/index.php/Creating_A_Patch
Yes, I will do this as soon as deliver the project I'm working on. By the way, to anyone is interest, .Select method is working but does not paint, in order to paint you have to change window's position or size. Methods like Invalidate, Repaint, Refresh etc do nothing. Panagiotis ----------------------------------------- MAGENTA LTD 47-51 Methonis str - 106 81 Athens Greece Shared cost phone 801-11.711.711 Standard rates for calls from abroad or mobile phones (+30) 210-33.03.920, 33.03.965 Fax (+30) 210-33.03.216 Company profile: http://www.magenta.gr/en/profile.htm ----------------------------------------- http://www.magenta.gr [EMAIL PROTECTED] ----------------------------------------- -----Original Message----- From: Mattias Gaertner [mailto:[EMAIL PROTECTED] Sent: Thursday, January 26, 2006 12:39 AM To: [email protected] Subject: Re: [lazarus] Turbopower IPro problem - selecting text in HtmlPanel On Thu, 26 Jan 2006 00:22:31 +0100 "Panagiotis Sidiropoulos" <[EMAIL PROTECTED]> wrote: > I managed to display selected text as inverted by replacing > > // in ipHtml file, "procedure PaintSelection;". > {$IFDEF IP_LAZARUS} > writeln('TIpHtml.PaintSelection PatBlt not implemented'); > {$ELSE} > > > with code that follows: > > {$IFDEF IP_LAZARUS} > BitMapToInvert := TBitMap.Create; > BitMapToInvert.Width := R.Right - R.Left; > BitMapToInvert.Height := R.Bottom - R.Top; > BitMapToInvert.Canvas.CopyMode := cmMergePaint; > BitMapToInvert.Canvas.CopyRect( Rect( 0, 0, > BitMapToInvert.Width, > BitMapToInvert.Height ), > PaintBuffer, > R ); > PaintBuffer.CopyRect( R, > BitMapToInvert.Canvas, > Rect( 0, 0, BitMapToInvert.Width, > BitMapToInvert.Height ) ); > BitMapToInvert.Free; > {$ELSE} > > You have first to declare a TBitMap named BitMapToInvert at > .PaintSelection var declarations: > BitMapToInvert: TBitMap; > It is flickering but works fine inverting colors correctly. Can you create a patch? http://wiki.lazarus.freepascal.org/index.php/Creating_A_Patch Mattias > > What I'm still investigating is to make SelectAll method to work. Any > ideas are welcomed. > > Panagiotis > > > From: Timothy Ha <timh <at> jesuschrist.ru> > Subject: Turbopower IPro problem - selecting text in HtmlPanel > Newsgroups: gmane.comp.ide.lazarus.general > Date: 2005-11-10 22:46:25 GMT (10 weeks, 5 days, 23 hours and 17 > minutes > ago) > > I was reading Christian U. message at > http://www.mail-archive.com/lazarus <at> miraclec.com/msg01959.html > and would like to know the progress of using Turbopower Ipro to read > HTML files. > > I could load a HTML into the HTML Panel, but got errors when tried to > select a bit of text > > IpHtml.pas about line 7827 I've got > > {$IFDEF IP_LAZARUS} > writeln('TIpHtml.PaintSelection PatBlt not implemented'); > {$ELSE} > > As for loading text into HtmlPanel, this is what I did: > > procedure TForm1.Button1Click(Sender: TObject); > var > h: TIpHTML; > f: TFileStream; > begin > h := TIpHTML.Create; > f := TFileStream.Create('d:\my.html', 0); > h.LoadFromStream(f); > IpHTMLPanel1.SetHtml(h); > end; > > How can I copy-paste text from Ipro HtmlPanel to other applications > now? > > > _________________________________________________________________ > To unsubscribe: mail [EMAIL PROTECTED] with > "unsubscribe" as the Subject > archives at http://www.lazarus.freepascal.org/mailarchives _________________________________________________________________ To unsubscribe: mail [EMAIL PROTECTED] with "unsubscribe" as the Subject archives at http://www.lazarus.freepascal.org/mailarchives _________________________________________________________________ To unsubscribe: mail [EMAIL PROTECTED] with "unsubscribe" as the Subject archives at http://www.lazarus.freepascal.org/mailarchives
