5,379
社区成员
发帖
与我相关
我的任务
分享
function RGBToColor(R,G,B:Byte): TColor;
begin
Result:=B Shl 16 Or
G Shl 8 Or
R;
end;
function judgenumbool(snum:string):boolean;
var i: LongInt;
f: Double;
begin
if TryStrToInt(trim(snum),i) or TryStrToFloat(trim(snum), f) then
result:=true
else result:=false;
end;
procedure TForm1.canvasgroup(var icolor1: Integer; var icolor2: Integer; var icolor3: Integer; var iwidth: Integer; var tgroup:TGroupbox);
var igroupt,igroupl,igrouph,igroupw:integer;
begin
//这直接画出4条线来
igroupt:=tgroup.Top;
igroupl:=tgroup.Left;
igrouph:=tgroup.Height;
igroupw:=tgroup.Width;
Canvas.Pen.Color:=iamhack.RGBToColor(icolor1,icolor2,icolor3);
Canvas.Pen.Width:=iwidth;
//画第一条线
Canvas.MoveTo(igroupl,igroupt);
Canvas.LineTo(igroupl+igroupw,igroupt);
//画第二条线
Canvas.MoveTo(igroupl,igroupt);
Canvas.LineTo(igroupl,igroupt+igrouph);
//画第三条线
Canvas.MoveTo(igroupl,igrouph+igroupt);
Canvas.LineTo(igroupl+igroupw,igroupt+igrouph);
//第四条线
Canvas.MoveTo(igroupl+igroupw,igroupt);
Canvas.LineTo(igroupl+igroupw,igroupt+igrouph);
end;