首页 > 其他分享 >StringGrid1单元格内绘图

StringGrid1单元格内绘图

时间:2024-01-21 09:22:23浏览次数:32  
标签:bg Top 单元格 StringGrid1 Height 绘图 Font rect Left

 

var Rect: Trect;
begin
   Rect:=  bg.CellRect(4,3);
   bg.Canvas.Brush.Color:= clwhite;
   bg.Canvas.FillRect(rect);

   bg.Canvas.Draw(  rect.Left  +trunc(( rect.Right- rect.Left -tx2.Width  )/2 )     //单元格 水平居中
                  , rect.Top   +trunc( (20- tx2.Height) /2   )
                  ,tx2.Picture.Graphic
                   );



end;
object Form5: TForm5
  Left = 0
  Top = 0
  Caption = 'Form5'
  ClientHeight = 598
  ClientWidth = 854
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object tx2: TImage
    Left = 688
    Top = 248
    Width = 16
    Height = 16
    AutoSize = True
    Picture.Data = {
      0954506E67496D61676589504E470D0A1A0A0000000D49484452000000100000
      001008060000001FF3FF610000001974455874536F6674776172650041646F62
      6520496D616765526561647971C9653C0000000D744558745469746C65005065
      72736F6E3B5F31C58F000002FA4944415478DA7D927B48935118C69F993953C3
      2E922C456DD9B0D42E964144994974A55116169982ED8FB00B11664550414449
      4517A230E91F6B418AB78595C9124D4B73BA9AB3E9746B316F9B3AB7E9F6EDFB
      BE6D5F476A19117BE1E17DCF39EFF33B07CECBE3380E7FC7D9783E5C5E4ECCBA
      7196F57229AC871B72BA71A57ACCF392FBB79904EFDFBD134BF8097323162853
      77A50787858762DC64466D99DCE308F05CA7DC9E3B753F18BB5FC0F1B8A00729
      DBD34E45462F8241D3871EB5010BA3059C46DBCB232F2A92E9E90B7E019298A0
      CA8DE28C7DAAB61EACCAD889D4F495307FEF43C9BD2763368A6EAB35307BFC02
      B2A3665FE5F3F997EFB6F6F2420286E01C51A05BA142557185FDCB80A5FA9DD1
      9DEB17200A9D15B32751D077ED6D475080B50113833AE835FDA82CAEB1D7F45B
      B7EA6CDE0EBF001E8F37BF282BB55E9C7F696D44E810CC462DD4AD5D9055B575
      3ED74EED25FD83FF059CB9598AFB17730349B9F8E4FEF4A28C94A5872263A360
      312808A0070D7AE6759DC65848CEFB0FE415D0E54F6FCD00C8ADD3353F2A4E24
      DA223E5A9C9490B0013A39E60CB68372B8F08D152036ED20148A76D52779CD69
      DBC4A882F43BA7E7C207088C4F5C97BC3B4B529F2DCE58B86A451C1E3E9562C3
      E27118546A54E8E6E1EA8553F8611C424969D964E39BF27D13A3C31F8897F101
      C23325E71FE61CCECCDEB1690D2CD64974A8BAD1D4F21963162B925688205A26
      84D345A3FB9B161565E5B5EACFF263C46BF201A2F30A6F375FCC3F12CB710118
      B5D81116C2C3806912143105077B3138E20445D398B29B50512E332B9BAA3713
      6FAF0F109F7FE5B1FA66410EBFEEA31E363B85E4656168EA34C349B991289C85
      D6AE29D0B407B18229489F55BA958D95EB89573903B8FC487DE35C0EFFD57B2D
      AC0E1AC9F173D0DC398E49278B2421D0DEED82C3E5855060C30B6915AB6E91AD
      25DE2E1F20625BA6E48670F96A899B65E16618302C0D8676915B69B8288A6452
      BB7EADCDC67EE9B0FE6B01F18EFCF905F22DF389161105FB66E4B7F0579E0E86
      6884689C78D99FB52CADF0B77B044A0000000049454E44AE426082}
  end
  object bg: TStringGrid
    Left = 168
    Top = 104
    Width = 449
    Height = 200
    ColCount = 6
    Ctl3D = False
    FixedCols = 0
    RowCount = 4
    ParentCtl3D = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button1: TButton
    Left = 640
    Top = 440
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 1
    OnClick = Button1Click
  end
end

 

标签:bg,Top,单元格,StringGrid1,Height,绘图,Font,rect,Left
From: https://www.cnblogs.com/tulater/p/17977520

相关文章

  • 无涯教程-MATLAB - 绘图(Plotting)
    要绘制函数图,您需要执行以下步骤-通过为变量x指定值的范围定义x,为此函数绘制定义函数y=f(x)以plot(x,y)以下示例将演示该概念。让我们用简单的函数y=x绘制x的值范围(从0到100),增量为5。创建一个脚本文件并输入以下代码-x=[0:5:100];y=x;plot(x,y)运行文件时,MAT......
  • 用C#实现最小二乘法(用OxyPlot绘图)✨
    最小二乘法介绍✨最小二乘法(LeastSquaresMethod)是一种常见的数学优化技术,广泛应用于数据拟合、回归分析和参数估计等领域。其目标是通过最小化残差平方和来找到一组参数,使得模型预测值与观测值之间的差异最小化。最小二乘法的原理✨线性回归模型将因变量(y)与至少一个自变量......
  • Python Matplotlib 绘图辅助功能
    ​ 1、添加标题和轴标签使用 plt.title("标题文本") 方法来添加图表标题。使用 plt.xlabel("X轴标签") 和 plt.ylabel("Y轴标签") 方法来添加X轴和Y轴的标签。常用参数如下,函数描述plt.title(label,loc='center',pad=None, fontsize=None,color=None......
  • 读取Execl数据到Datatable或DataSet时 日期单元格出现乱码的解决方案
    Execl某单元格数据为2012-1-10读取到DataTable变为40918不是正确的2012-1-10其实excel在转换格式的时候就自动把日期变成数字了,那这个数字是怎么来的呢?如果你把日期改成1900年1月1日,那么你可以看到他的转换结果是1,以此类推,39902是哪一天就明白了吧解决方法一://strValu......
  • Python Matplotlib 实现基础绘图
    ​ 1、Matplotlib的三层结构Matplotlib是一个用于在Python中创建二维图表的库。为了更好地理解和使用Matplotlib,重要的是要了解其三层结构:容器层(ContainerLayer)、辅助显示层(HelperLayer)和图像层(ArtistLayer)。这些层级构成了Matplotlib的绘图体系结构。1)容器层(Conta......
  • vba 判断单元格是否为空
    SubsetBlankRowColor()DimlngLastRowAsLongDimiAsLong'获取工作表中已使用区域最后一行的行号lngLastRow=Cells(Rows.Count,1).End(xlUp).Row'遍历行Fori=1TolngLastRow'判断每行中第1列的单元格是否为空I......
  • Konva-前端绘图框架
    一、介绍KonvaisanHTML5CanvasJavaScriptframeworkthatextendsthe2dcontextbyenablingcanvasinteractivityfordesktopandmobileapplications.Konvaenableshighperformanceanimations,transitions,nodenesting,layering,filtering,caching,eventha......
  • # yyds干货盘点 # 盘点一个Python自动化办公的需求——一键批量插图到Excel指定单元格
    大家好,我是皮皮。一、前言前几天在Python白银交流群【上海新年人】问了一个Python自动化办公的问题,问题如下:大佬们,昨天我在做插入excel图片的时候想起一个需求,好像挺难办的,也蛮现实的。比如每个图片是有名称的,但在做excel的时候,能不能按照excel中的名称调用图片插入。就像下面这样......
  • QT:绘图
    QPainter能够实现绘制二维图形,适合用于绘制复杂度不高的固定图形,并且不能实现图项的选择、编辑、拖放、修改等交互功能对于需要绘制大量的、需要交互的图形,可以使用GraphicsViewItem QGraphicsEllipsetItem椭圆QGraphicsLineItem 直线QGraphicsPathItem......
  • PageOfficeV6.0提取在线编辑保存的excel单元格数据
    转载:提取单元格数据提取单元格数据查看本示例演示效果本示例关键代码的编写位置Vue+Springboot注意本文中展示的代码均为关键代码,复制粘贴到您的项目中,按照实际的情况,例如文档路径,用户名等做适当修改即可使用。在实际的开发过程中,经常会遇到提取Excel文档中数据保存到数据......