----- 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
