ExtCtrls.Frame3D

最新推荐文章于 2019-10-04 14:09:00 发布
最新推荐文章于 2019-10-04 14:09:00 发布
阅读量101 收藏
点赞数
本文介绍了一种使用 Delphi 在窗体上绘制3D边框的方法。通过定义矩形区域并调用 Frame3D 函数，可以轻松实现不同颜色和样式的3D效果。示例代码展示了如何创建两个具有黑色和红色边框的3D矩形。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >


uses ExtCtrls;

procedure TForm1.FormPaint(Sender: TObject);
var
  R1, R2: TRect;
begin
  R1 := Rect(10, 10, 150, 50);
  Frame3D(Canvas, R1, clBlack, clSilver, 1);

  R2 := Bounds(10, 80, 140, 40);
  Frame3D(Canvas, R2, clRed, clBlue, 1);
end;
delphi资源文件制作及使用详解
zisongjia的博客
06-30 2667
一、引子： 现在的Windows应用程序几乎都使用图标、图片、光标、声音等，我们称它们为资源（Resource）。最简单的使用资源的办法是把这些资源的源文件打入软件包，以方便程序需要的时候调用。资源是程序的一部分，程序要正常运行就离不了资源文件。但是它是不可执行代码。 为了更好地管理资源，Delphi中提供了一种.RES类型的资源文件。它可以把我们程序中所需要的资源整合到一个资源文件(.RES
DELPHI动态创建删除FRAME---示例源码
05-09
DELPHI动态创建删除FRAME unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,FM; type TForm2 = class(TForm) Panel1: ...
Frame3D_delphi_
10-03
Delphi Frame3D 函数的应用实例-三维框源码
利用Delphi读写Excel信息
此情可待成追忆
09-03 904
虽然，目前已经有一些处理Excel数据的控件，但一般觉得通用性差，使用起来不方便，难以满足具体应用开发需求。下面结合笔者的开发经验，介绍利用Delphi实现读写Excel信息的方法。 准备工作 首先，Delphi要在Uses部分，把要使用的外部程序的类写入。在这里，我们把“ExtCtrls,ComObj”写入Uses部分。其次，在程序变量声明部分声明要用到的变量： VAR XL: Varia...
TeeChart经验总结 11.Tools
weixin_30672295的博客
07-27 695
不记得是从7.0还是8.0,TeeChart提供了丰富的Tools.这是一个纯用TeeChart的Tools实现的简易游标Demo. 本节后面会附上全部源码.Clip Series:当Series被拖动超出了Axis的范围,则超出的部分不显示.Cursor:十字,垂直,水平方向的游标,可以具体Snap任意Series的相应方向上的数据点.Drag Marks:可以任意拖动位置的Marks.D...
博客总目录(2007.11.12 - 2010.4.25)
热门推荐
weixin_34249367的博客
04-25 1万+
如果我的学习记录和历程能对你有所帮助, 我非常高兴; 但是 -- "万一" 不是高手、更不是大师, 只是利用工作之余学点东西, 并感觉学得挺吃力. 内容都是写时才会, 难免稚嫩, 所以 "仅供参考" 可不是客套! 有朋友提出需要这么个目录, 所以忐忑列出; 并拜托发现问题及时通知我. 一个拼图工具的制作思路 - 回复 "AlwaysBug" 的问题 将 4 个 Byt...
Desktop Window Manager ——Delphi开发学习 .
Woosa
05-10 3881
原文地址：http://msdn.microsoft.com/en-us/library/windows/desktop/aa969540(v=vs.85).aspx   桌面合成功能，在Windows Vista版本中被引用，从根本上改变了应用程序在屏幕上显示像素的方式。当启用桌面合成时，单独的窗体不再像之前的Windows版本一样直接绘制到屏幕或主显示设备上。相反，他们的绘制被重新定向到视
Delphi 转载：使用GDI进行绘图深入了解
weixin_30569001的博客
10-04 293
万一博客总目录(2007.11.12 - 2010.4.25) https://www.cnblogs.com/del/archive/2010/04/25/1720750.html 如何用 GDI 绘制阴影文字 - 回复 "Splendour" 的问题如何把几张相同大小的图片拼合在 TImage 中 - 回复 "jxjjljf" 的问题WinAPI: CopyFileEx一句话复制...
FMX做的看图程序.rar
06-16
5. FMX.ExtCtrls.pas：这是一个Delphi源代码文件，包含了FireMonkey扩展控件的实现。这些控件可能包括额外的UI元素，如按钮、标签、滑块等，用于增强应用程序的交互性。 6. Unit1.pas、imgsize.pas、copy.pas和Unit2...
KSDevThemeEngine_v9.06.rar
06-19
3. **DCU文件**: `te_extctrls.dcu`, `te_controls.dcu`, `te_forms.dcu`, `te_theme.dcu`, `te_db_controls.dcu`, `te_extended.dcu`, `theme_se3objects.dcu`, `theme_se3.dcu` 是Delphi编译后的单元文件。...
delphi HTMLFrame 实现拍照的代码
07-26
Vcl.OleCtrls, SHDocVw, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Imaging.jpeg; type TForm1 = class(TForm, IDispatch) WebBrowser1: TWebBrowser; Image1: TImage; procedure FormCreate(Sender: TObject); ...
//--------------------------------------------------------------------------- #ifndef MyTrayIconH #define MyTrayIconH //--------------------------------------------------------------------------- #include <SysUtils.hpp> #include <Classes.hpp> #include <System.hpp> #include <Controls.hpp> #include <Forms.hpp> #include <Extctrls.hpp> #include <ShellAPI.hpp> #include <StdLib.h> //--------------------------------------------------------------------------- #define WM_SYSTEM_MY_TRAY_NOTIFY (WM_USER + 1) namespace my_TrayIcon{ enum TMyTrayIconMessage {imClick, imDoubleClick, imMouseDown, imMouseUp, imLeftClickUp, imLeftDoubleClick, imRightClickUp, imRightDoubleClick, imNone}; } using namespace my_TrayIcon; class PACKAGE TMyTrayIcon : public TComponent { private: TNotifyIconDataW FData; bool FIsClicked; TIcon *FIcon; TImageList* FIconList; TPopupMenu* FPopupMenu; TTimer *FTimer; UnicodeString FHint; int FIconIndex; bool FVisible; bool FHide; bool FAnimate; TMyTrayIconMessage FAppRestore; TMyTrayIconMessage FPopupMenuShow; TWindowHook FApplicationHook; TNotifyEvent FOnMinimize; TNotifyEvent FOnRestore; TMouseMoveEvent FOnMouseMove; TMouseMoveEvent FOnMouseExit; TMouseMoveEvent FOnMouseEnter; TNotifyEvent FOnClick; TNotifyEvent FOnDblClick; TMouseEvent FOnMouseDown; TMouseEvent FOnMouseUp; TNotifyEvent FOnAnimate; TNotifyEvent FOnCreate; TNotifyEvent FOnDestroy; TNotifyEvent FOnActivate; TNotifyEvent FOnDeactivate; void __fastcall SetHint(String Hint); void __fastcall SetHide(bool Value); int __fastcall GetAnimateInterval(); void __fastcall SetAnimateInterval(int Value); bool __fastcall GetAnimate(); void __fastcall SetAnimate(bool Value); void __fastcall EndSession(); TShiftState ShiftState(); protected: virtual void __fastcall SetVisible(bool Value); virtual void __fastcall DoMessage(TMessage &Message); virtual void __fastcall DoClick(); virtual void __fastcall DoDblClick(); virtual void __fastcall DoMouseMove(TShiftState Shift, int X, int Y); virtual void __fastcall DoMouseDown(TMouseButton Button, TShiftState Shift, int X, int Y); virtual void __fastcall DoMouseUp(TMouseButton Button, TShiftState Shift, int X, int Y); virtual void __fastcall DoOnAnimate(TObject *Sender); virtual void __fastcall Notification(TComponent *AComponent, TOperation Operation); bool __fastcall ApplicationHookProc(TMessage &Message); virtual void __fastcall Loaded(); __property TNotifyIconDataW Data = {read=FData}; public: __fastcall TMyTrayIcon(TComponent* Owner); __fastcall ~TMyTrayIcon(); virtual void __fastcall Minimize(); virtual void __fastcall Restore(); virtual void __fastcall Update(); virtual void __fastcall ShowMenu(); virtual void __fastcall SetIconIndex(int Value); virtual void __fastcall SetDefaultIcon(); HWND __fastcall GetHandle(); __published: // Properties __property bool Visible = {read=FVisible,write=SetVisible,default=false}; __property UnicodeString Hint = {read=FHint,write=SetHint}; __property TPopupMenu* PopupMenu = {read=FPopupMenu,write=FPopupMenu}; __property bool Hide = {read=FHide,write=SetHide}; __property TMyTrayIconMessage RestoreOn = {read=FAppRestore,write=FAppRestore}; __property TMyTrayIconMessage PopupMenuOn = {read=FPopupMenuShow,write=FPopupMenuShow}; __property TImageList* Icons = {read=FIconList,write=FIconList}; __property int IconIndex = {read=FIconIndex,write=SetIconIndex,default=0}; __property int AnimateInterval = {read=GetAnimateInterval,write=SetAnimateInterval,default=1000}; __property bool Animate = {read=GetAnimate,write=SetAnimate,default=false}; __property bool Handle = {read=GetHandle}; // Events __property TNotifyEvent OnMinimize = {read=FOnMinimize,write=FOnMinimize}; __property TNotifyEvent OnRestore = {read=FOnRestore,write=FOnRestore}; __property TNotifyEvent OnClick = {read=FOnClick,write=FOnClick}; __property TMouseMoveEvent OnMouseEnter = {read=FOnMouseEnter,write=FOnMouseEnter}; __property TMouseMoveEvent OnMouseExit = {read=FOnMouseExit,write=FOnMouseExit}; __property TMouseMoveEvent OnMouseMove = {read=FOnMouseMove,write=FOnMouseMove}; __property TMouseEvent OnMouseUp = {read=FOnMouseUp,write=FOnMouseUp}; __property TMouseEvent OnMouseDown = {read=FOnMouseDown,write=FOnMouseDown}; __property TNotifyEvent OnAnimate = {read=FOnAnimate,write=FOnAnimate}; __property TNotifyEvent OnCreate = {read=FOnCreate,write=FOnCreate}; __property TNotifyEvent OnDestroy = {read=FOnDestroy,write=FOnDestroy}; __property TNotifyEvent OnActivate = {read=FOnActivate,write=FOnActivate}; __property TNotifyEvent OnDeactivate = {read=FOnDeactivate,write=FOnDeactivate}; }; //--------------------------------------------------------------------------- #endif 有什么问题
07-22
我们正在处理的是在C++ Builder中实现托盘图标时调用Shell_NotifyIconA失败的问题。结合之前的讨论，我们知道失败的原因可能是多方面的，包括字符集不匹配、结构体大小设置错误、以及系统启动时调用时机不当等。...
基于双向长短期记忆网络(BILSTM)的MATLAB数据分类预测代码实现与应用
最新发布
08-09
基于双向长短期记忆网络（BILSTM）的数据分类预测技术及其在MATLAB中的实现方法。首先解释了BILSTM的工作原理，强调其在处理时间序列和序列相关问题中的优势。接着讨论了数据预处理的重要性和具体步骤，如数据清洗、转换和标准化。随后提供了MATLAB代码示例，涵盖从数据导入到模型训练的完整流程，特别指出代码适用于MATLAB 2019版本及以上。最后总结了BILSTM模型的应用前景和MATLAB作为工具的优势。 适合人群：对机器学习尤其是深度学习感兴趣的科研人员和技术开发者，特别是那些希望利用MATLAB进行数据分析和建模的人群。 使用场景及目标：①研究时间序列和其他序列相关问题的有效解决方案；②掌握BILSTM模型的具体实现方式；③提高数据分类预测的准确性。 阅读建议：读者应该具备一定的编程基础和对深度学习的理解，在实践中逐步深入理解BILSTM的工作机制，并尝试调整参数以适应不同的应用场景。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值