流加金念什么(流式文件读写)
https://att.xiawai.com/data/attachment/forum/202104/17/ziqg1gphkvw5004.jpghttps://att.xiawai.com/data/attachment/forum/202104/17/3ll4ixyrgd05005.png
https://att.xiawai.com/data/attachment/forum/202104/17/ziqg1gphkvw5004.jpg
更多帖子
naughtyboy
https://att.xiawai.com/data/attachment/forum/202104/17/pmktvv2xwcq5006.png
本版专家分：25220
这样好像不能实现
不过在memo中可以实现
自己做个控件,父类TMemo
type
TMyMemo=class(TMemo)
protected
procedureWMPaint(varMessage:TWMPaint);messageWM_PAINT;
end;
procedureTMyMemo.WMPaint(varMessage:TWMPaint);
var
MCanvas:TControlCanvas;
DrawBounds:TRect;
Begin
inherited;
MCanvas:=TControlCanvas.Create;
DrawBounds:=ClientRect;
Try
MCanvas.Control:=Self;
WithMCanvasdo
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;
procedureTMyMemo.PaintImages;
var
MCanvas:TControlCanvas;
DrawBounds:TRect;
i流加金念什么,j:Integer;
OriginalRegion:HRGN;
ControlDC:HDC;
begin
MCanvas:=TControlCanvas.Create;
DrawBounds:=ClientRect;
try
MCanvas.Control:=Self;
ControlDC:=GetDC(Handle);
MCanvas.Draw(0,1,Application.Icon);
finally
MCanvas.Free;
end;
end;
以上内容就是流加金念什么(流式文件读写)的相关内容介绍，喜欢侠外游戏论坛的朋友可以关注我们。
页:
[1]