侠外游戏论坛

标题: 流加金念什么(流式文件读写) [打印本页]

作者: Game 时间: 2021-4-17 10:31
标题: 流加金念什么(流式文件读写)

更多帖子
naughtyboy

本版专家分：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;

以上内容就是流加金念什么(流式文件读写)的相关内容介绍，喜欢侠外游戏论坛的朋友可以关注我们。

欢迎光临侠外游戏论坛 (https://bbs.xiawai.com/)