登录
首页 » Delphi源码 » Delphi 渐变的RGB空心色环绘制源码演示

Delphi 渐变的RGB空心色环绘制源码演示

于 2022-03-21 发布 文件大小:185.08 kB
0 106
下载积分: 2 下载次数: 1

代码说明:

Delphi渐变圆形的实现方法,RGB色环空心绘制演示源码:   oBmp := TBitmap.Create; //为了代码整齐就不写try了   oBmp.PixelFormat := ABitmap.PixelFormat;   oBmp.Width := ABitmap.Width;   oBmp.Height := ABitmap.Height;   BitBlt(oBmp.Canvas.Handle, 0, 0, oBmp.Width, oBmp.Height, ABitmap.Canvas.Handle, 80, 80, SRCCOPY); //要拷贝的位图   oRgn := CreateEllipticRgn(0, 0, 100, 100); //创建圆形区域   SelectClipRgn(ABitmap.Canvas.Handle, oRgn); //选择剪切区域   ABitmap.Canvas.Draw(0, 0, oBmp); //位图位于区域内的部分加载

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi创建透明图像效果的窗体
    Delphi创建透明图像效果的窗体,这个示例实际是演示调用透明图片并显示的效果,用此制作成一个无边框且透明的窗口,制作时需要把此窗口设为Desktop型的。图片最好是BMP或PNG透明格式的,这样当图片显示时,会显示为一个无边框的透明窗口,没有图像的部分会显示窗口下层的内容,演示了一种制作透明窗口的方法。
    2022-02-25 21:57:42下载
    积分:1
  • Delphi开发的模型飞机测控平台 附
    Delphi开发的模型飞机测控平台 附源代码,里面主要涉及多线程操作、GPS、传感器、端口操作等一系列系统控制的技巧,还包括了许多操作函数,比如绘制飞行轨迹的函数、绘制坐标刻度的函数、用户界面读取发送数据指令的函数、还有线程的同步、线程互斥等。   由于有调试目的,如果要求发送字符格式的数据,就直接发送用户输入的字符串,其他情况下,都是发送打包好的数据矩阵。   调用其它函数实现发送串口数据的功能。注意函数GetData还没有实现线程的互斥,目的是把发送的数据保存在各个线程中。   在此提示: 由于传输系统总会有一定的吴码率,那么为了避免轨迹图出现问题,例如坐标范围过大需要除去粗大误差,考虑到模型飞机的飞行速度不会超过10m/s,考虑到数子传输系统的下传速度,设定如果位置变化超过20m就去掉。
    2022-08-16 19:54:45下载
    积分:1
  • Delphi中使用Word的一个例子
    这个程序演示了使用Word作为自动化服务器,Delphi地自动化控制器是如何将一个查询结果插入到word文档中,在程序调用过程中返回应用参数.这个调用在英文和法文版的 Word中相同。如果这个过程不存在,存在一个不同的Word翻译版本。   对中文Word请在指定处插入。
    2022-02-12 22:24:48下载
    积分:1
  • Delphi户籍管理系统,Access数据库版
    Delphi户籍管理系统,Access数据库版,界面方面使用了Xpmenu和SReport控件。测试时的登录初始密码为:222222 。   在数据库编程方面,本系统更注重录入及查询,采用多重SQL语句查询,并结合查询可生成报表。
    2022-04-18 17:44:59下载
    积分:1
  • Delphi 如何使程序不出现在任务栏上
    Delphi 如何使程序不出现在任务栏上,常规情况下,运行的程序都会在任务栏有一个图标窗口,方便用户操作,不出现在任务栏上也可以,不过不太符合常规,有点隐藏程序的嫌疑,以下代码是实现此功能的:   procedure TForm1.FormCreate(Sender: TObject);   begin    with Application do    SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);    SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);   end;
    2023-03-26 04:55:03下载
    积分:1
  • Delphi判断双字节字符的例子
    Delphi判断双字节,用法简单,在窗口输入框中输入字符串,单击按钮即可,程序会判断出是否包含有双字节字符,判断方法请看下边的代码段:   s := Edit1.Text;   i := 0;   while i  begin    if (ByteType(S,i) mbSingleByte) then    begin    s1 := s1+ copy(s,i,2)+;    i := i+2;    end    else    i:= i+1;   end;   label2.Caption := trim(s1);
    2022-07-24 15:06:09下载
    积分:1
  • Delphi 实现的窗体下拉动画效果
    Delphi 实现的窗体下拉动画效果,以下拉动画的方式显示一个窗口,关闭时同样有动画效果,只不过是上拉效果,让窗体变生成了,传统的窗口打开方式的确会让人觉得不新奇了,关于下拉和上拉,关键代码先帖上来,完整实例请下载本源码:   begin    AnimateWindow(Self.Handle, 250, AW_VER_NEGATIVE or AW_HIDE);   end;   procedure TForm1.FormShow(Sender: TObject);   begin    AnimateWindow(Self.Handle, 250, AW_VER_POSITIVE);   end;
    2022-02-22 05:35:01下载
    积分:1
  • Delphi 将数字转换成字符串
    Delphi 将数字转换成字符串,请参见以下的转换代码,转换成功后将以 showmessage的形式返回结果,核心转换功能代码实现:   procedure TForm1.Button1Click(Sender: TObject);   var    i:integer;    s:string;   begin    i:=1234567;    s:=inttostr(i);    showmessage(s);   end;
    2022-09-05 21:20:03下载
    积分:1
  • 演示Delphi如何清空TImage组件中的图片
    本源码向大家演示Delphi如何清空TImage组件中的图片,如示例截图所示,TImage组件中已经装载了一张图片,单击“清空图片”按钮,将调用以下代码清空TImage组件中的图片数据:   procedure TForm1.Button1Click(Sender: TObject);   begin    image1.picture.graphic := nil;   end;   这是一个比较初级的Delphi图像组件用法示例,Delphi新手可参考学习。
    2022-03-18 08:56:24下载
    积分:1
  • Delphi TreeView来显示数据库信息
    Delphi 使用TreeView来显示数据库信息,从数据库中读取数据,然后生成树形交叉节点的菜单,这种菜单通俗的叫做“树形菜单”,也是大家平时比较常见的菜单形式之一。   function TreeAddItem(Sender: TTreeView;ItemList: TStrings;BookMark: TBookMark;Resort: Boolean):TTreeNode;   var    ThisNode,Node: TTreeNode;    i: integer;   begin    Node := Nil;    for i := 0 to ItemList.Count-1 do    begin    ThisNode := TreeFindItem(Sender,Node,ItemList[i]);    if(ThisNodeNil) then Node := ThisNode    else begin    if I   then begin    if I=0 then Node := Sender.items.Add(Node, Itemlist[i])    else Node := Sender.items.AddChild(Node, Itemlist[i]);    end    else begin    if I=0 then Node := Sender.items.AddObject(Node, Itemlist[i],Bookmark)    else Node := Sender.items.AddChildObject(Node, Itemlist[i],Bookmark);    end;    Node.stateIndex := Node.level + 1;    if Resort and (Node.parent nil) then Node.parent.alphasort;    end;    end;    Result := Node;   end;
    2022-02-02 14:05:08下载
    积分:1
  • 696518资源总数
  • 104292会员总数
  • 28今日下载