----- Original Message ----- From: "Panagiotis Sidiropoulos" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Thursday, January 26, 2006 7:54 AM Subject: RE: [lazarus] Turbopower IPro problem - selecting text in HtmlPanel
> >I prefer to show selection highlight using current OS (Widgetset) > settings > >like most browsers actually do. > > Isn't TBitMap CopyMode and CopyRect compatible to current OS settings? > mmm, I can't find how this things are related, but what I meant is that selection is actually painted using background color clHighlight and text clTextHightlight, the real values depends on OS (widgetset) settings, for example under GTK it will be the color normally used to selection on other components (widgetsets). > >This is already implemented. > > Where is this implementation available? > Lazarus revision 8227 (26-nov-2005) > > Panagiotis > > -----Original Message----- > From: Jesus Reyes [mailto:[EMAIL PROTECTED] > Sent: Thursday, January 26, 2006 3:25 PM > To: [email protected] > Subject: Re: [lazarus] Turbopower IPro problem - selecting text in > HtmlPanel > > > > ----- Original Message ----- > From: "Panagiotis Sidiropoulos" <[EMAIL PROTECTED]> > To: <[email protected]> > Sent: Wednesday, January 25, 2006 5:22 PM > Subject: Re: [lazarus] Turbopower IPro problem - selecting text in > HtmlPanel > > > > 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. > > > > 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? > > > > At some point I also had inverted selection working (I was using > horizontal XOR lines tought) but didn't like it, I prefer to show > selection highlight using current OS (Widgetset) settings like most > browsers actually do. This is already implemented. If you want inverted > selection maybe you can wrap the code in IFDEF's agains current version > but I would prefer not inverted selection by default. > > Jesus Reyes A. > > > __________________________________________________ > Correo Yahoo! > Espacio para todos tus mensajes, antivirus y antispam ¡gratis! > Regístrate ya - http://correo.yahoo.com.mx/ > > _________________________________________________________________ > 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 __________________________________________________ Correo Yahoo! Espacio para todos tus mensajes, antivirus y antispam ¡gratis! Regístrate ya - http://correo.yahoo.com.mx/ _________________________________________________________________ To unsubscribe: mail [EMAIL PROTECTED] with "unsubscribe" as the Subject archives at http://www.lazarus.freepascal.org/mailarchives
