仿 Delphi 设计虚线背景

╰+攻爆jí腚メ 2022-04-01 17:09 198阅读 0赞

procedure  TForm1.DrawBackground;  
 var  FScale : integer;  
FGridX :double;  
FGridY :double;  
  
 procedure  Line(x, y, x1, y1: Integer);  
 begin   
Canvas.MoveTo(x, y);  
Canvas.LineTo(x1, y1);  
 end ;  
  
 function  ReverseColor(AColor: TColor): TColor;  
 var   
iR0, iR1, iG0, iG1, iB0, iB1: integer;  
 begin   
iR0 : =  GetRValue(AColor);  
iR1 : =  255  \-  iR0;  
iG0 : =  GetGValue(AColor);  
iG1 : =  255  \-  iG0;  
iB0 : =  GetBValue(AColor);  
iB1 : =  255  \-  iB0;  
  
Result : =  RGB(iR1, iG1, iB1);  
 end ;  
  
  
 procedure  DrawPoints;  
 var   
GridBmp: TBitmap;  
i: Extended;  
c: TColor;  
dx, dy: Extended;  
 begin   
c : =  ReverseColor(self.Color);  
FScale : =  1 ;  
FGridX : =  5 ;  //  96  /  25.4   
FGridY : =  5 ;  //  96  /  25.4   
dx : =  FGridX  \*  FScale;  
dy : =  FGridY  \*  FScale;  
 if  (dx  >  2 )  and  (dy  >  2 )  then   
 begin   
GridBmp : =  TBitmap.Create;  
GridBmp.Width: =  Width;  
GridBmp.Height : =  1 ;  
  
GridBmp.Canvas.Pen.Color : =  self.Color;  
GridBmp.Canvas.MoveTo( 0 ,  0 );  
GridBmp.Canvas.LineTo(Width,  0 );  
  
i : =  0 ;  
 while  i  <  Width  do   
 begin   
GridBmp.Canvas.Pixels\[Round(i),  0 \] : =  c;  
i : =  i  \+  dx;  
 end ;  
  
i : =  0 ;  
 while  i  <  Height  do   
 begin   
Canvas.Draw( 0 , Round(i), GridBmp);  
i : =  i  \+  dy;  
 end ;  
  
GridBmp.Free;  
 end ;  
 end ;  
 begin   
DrawPoints;  
 end ;

发表评论取消回复

表情：

评论列表（有 0 条评论，198人围观）

还没有评论，来说两句吧...

相关阅读

相关 iOS画虚线------

直接上代码了 // 画虚线 // 创建一个imageView 高度是你想要的虚线的高度一般设为2 UIImageView lineI

偏执的太偏执、/ 2023年10月17日 16:27/ 0 赞/ 26 阅读

相关 Delphi TRzListView自绘表头标题背景色示例(OnDrawHeader)

RzListView自带了OnDrawHeader 事件，在该事件中进行自绘即可。 unit Unit1; interface u

落日映苍穹つ/ 2023年10月04日 20:23/ 0 赞/ 63 阅读

相关 Delphi TListView自绘表头标题背景颜色和字体颜色示例

搜遍全网，基本都找不到Delphi自绘TListview标题背景颜色的代码，研究了很久自已实现了这个功能。现将代码发出来以供有需要的童鞋日后参考: 实现的思路基本就是：

超、凢脫俗/ 2023年10月04日 20:23/ 0 赞/ 54 阅读

相关 php虚线园的代码,canvas画虚线圆

本文要实现的图形 ![bVFVJg?w=121&h=122][bVFVJg_w_121_h_122] 一个简单的占比统计。。实现的方案是html js合成首先是简单

本是古典何须时尚/ 2023年01月17日 04:55/ 0 赞/ 293 阅读

相关 Echarts设置背景的网格线为虚线

用Echarts写了一个折线图之后，现在不太喜欢背景网格线的实线需要改成虚线 ![4c1cb30f1bdf7e2e92194db2695dda5f.png][] Ec

末蓝、/ 2022年10月22日 02:56/ 0 赞/ 307 阅读

相关 Android 虚线框背景

做一个虚线背景 <?xml version="1.0" encoding="utf-8"?> android:shape="rectangle" > a

绝地灬酷狼/ 2022年10月10日 04:57/ 0 赞/ 223 阅读

相关 html下划线虚线样式,CSS不同样式的虚线下划线

CSS不同样式的虚线下划线 body\{margin:0px;padding:0px;font-size:9pt;background-color:\EEEEEE;\} .

清疚/ 2022年10月06日 10:53/ 0 赞/ 16 阅读

相关超链接 a标签虚线框虚线去除虚线框

当一个链接得到焦点时，默认会有个虚线框。如图： ![链接虚线框][hide-link-outline.gif] 在 Firefox 里可以用 -moz-outline:no

短命女/ 2022年09月30日 03:54/ 0 赞/ 240 阅读

相关仿 Delphi 设计虚线背景

procedure TForm1.DrawBackground; var FScale : integer; FGridX :double; FGridY :

╰+攻爆jí腚メ/ 2022年04月01日 17:09/ 0 赞/ 199 阅读

相关 canvas 绘制虚线

一.分析原理是：求出AB点之间的长度，再设置虚线的长度dashLength，把AB是我长度/虚线长度dashLength 就是虚线数量，根据虚线数量，长度就可以得到当第i个

阳光穿透心脏的1/2处/ 2021年09月12日 01:36/ 0 赞/ 654 阅读