请教几个关于BCB中RichEdit问题

[yphy]

请教几个关于BCB中RichEdit问题：

1：如何向RichEdit中指定位置插入图片？

2：如何响应RichEdit的文本拖放事件？
以便于将文本滚到最前面。
（此事件实际上相当于VB中OLE拖放事件）

3：如何做到即见即所得打印？
即：1：在RichEdit窗口相应的坐标位置，并可
随纸张大小缩放RichEdit窗口进行打印。

2：其内文本的字体大小也一起缩放。由于RichEdit
内字体的大小个不相同，甚至可以说是随机的，
故不可能像处理Edit中字体那样处理。

3：只打印RichEdit窗口中可见的文本，其前和其后
隐藏在窗口后的文本则不打印。

本人利用SendMessage(RichEdit1->Handle,
EM_FORMATRANGE,true,(int)&fr);可实现前者，
但无法实现后两者。

多谢指教。
yphy

[SCUM]

立即废除 RichEdit，另立新妃！

[wjzhuang]

1.不懂
2.写代码当成copy ,paste处理
3.不懂
建议你找一个类似word控件来实现或者直接调用word

[aningstar]

1：贴一段delphi代码给你
用Memo显示图片，你可以自己改改这个控件，处理memo的 WM_Paint消息，画个图片。

type
TMyMemo = class(TMemo)
protected
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
end;


procedure TMyMemo.WMPaint(var Message: TWMPaint);
var
MCanvas: TControlCanvas;
DrawBounds : TRect;
Begin
inherited;
MCanvas:=TControlCanvas.Create;
DrawBounds := ClientRect; // Work with temporary TRect record.
Try
MCanvas.Control:=Self;
With MCanvas do
Begin
Brush.Color := clBtnFace;
FrameRect( DrawBounds );
InflateRect( DrawBounds, -1, -1);
FrameRect( DrawBounds );
FillRect ( DrawBounds );
MoveTo ( 33, 0 );
Brush.Color := clWhite;
LineTo ( 33, ClientHeight );
PaintImages;//定义的画图片过程
end;
finally
MCanvas.Free;
End;
end;



procedure TMyMemo.PaintImages;
var
MCanvas: TControlCanvas;
DrawBounds : TRect;
i, j : Integer;
OriginalRegion : HRGN;
ControlDC : HDC;
begin
MCanvas:=TControlCanvas.Create;
DrawBounds := ClientRect; // Work with temporary TRect record.
try
MCanvas.Control:=Self;
ControlDC := GetDC ( Handle );
MCanvas.Draw(0, 1, Application.Icon);
finally
MCanvas.Free;
end;
end;

[「已注销」]

又是戴妃

@_@

[yphy]

非常感谢 aningstar(aningstar)　的指点，不过，恐怕难以满足我的要求。
再次感谢。

[whitelion]

学习