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?
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
