小编men*_*raz的帖子

Delphi:绘制抗锯齿三角形

如何在 ListBoxDrawItem 上绘制抗锯齿三角形?

ListBox.Canvas.Polygon
Run Code Online (Sandbox Code Playgroud)

绘制有锯齿。

谢谢!!!

delphi antialiasing draw tlistbox

3
推荐指数
1
解决办法
4883
查看次数

如何在iOS应用程序中创建.doc文件或文字处理器?

我正在寻找IOS应用程序中的文件处理.我在Google上挖掘了很多东西,我发现word文件是基于OOXML的.iOS有可能遵循这种格式.如果有人有想法,请转介我.


然后我试图找到另一种方式来改变.doc文件的样式.我发现,我们可以在.html文件中使用JavaScripts在UIWebView中执行此类操作.但仍然没有得到如何在.doc中存储这个.html文件.


如果有人对字处理器有所了解,那么请指导我在目标C中如何实现任何帮助.

谢谢,

objective-c openxml ios

3
推荐指数
1
解决办法
4499
查看次数

如何创建自己的非系统剪贴板?

是否可能,如果是这样,您将如何实施自己的剪贴板?

通过这个我的意思是能够像Windows剪贴板那样复制和粘贴任何东西,但实际上没有干扰系统剪贴板.

为了更好地了解这是我尝试过的:

uses
  ClipBrd;

...

procedure TMainForm.actCopyExecute(Sender: TObject);
var
  MyClipboard: TClipboard;
begin
  MyClipboard := TClipboard.Create;
  try
    MyClipboard.AsText := 'Copy this text';
  finally
    MyClipboard.Free;
  end;
end;
Run Code Online (Sandbox Code Playgroud)

这是因为它会将字符串"复制此文本"复制到剪贴板,但它会覆盖Windows剪贴板上的内容.

以上必须只创建一个Windows剪贴板的实例,而不是实际创建自己的.

请注意,自定义剪贴板可以保存任何数据而不仅仅是纯文本.它应该与Windows剪贴板一样工作,但不会干扰它(丢失它上面的任何内容).

怎么能实现这一目标?

谢谢.

delphi clipboard

3
推荐指数
1
解决办法
2264
查看次数

如何在Delphi中使用稳定排序替换StringList.Sort?

我正在做一个简单的StringList.sort,但是Delphi使用的QuickTort不是一个稳定的排序,这意味着它可能会改变具有相同键的记录的相对顺序.

我需要使用稳定的排序.对我来说,实现这个最简单的方法是什么?


Mike W的答案可能是最简单的方法,无需进行太多的代码更改.

谢谢,迈克.

delphi sorting tstringlist stable-sort

3
推荐指数
1
解决办法
859
查看次数

创建时约束组件父级

我希望能够限制组件的创建位置.

例如,TMyChild可以是TButton,TMyParent可以是TPanel,当我将MyChild放到其他组件上时,我希望MyChild检查它是否在TMyParent/TPanel中创建.

如果是,那么就好了,如果它不是在TMyParent/TPanel中创建的,那么取消TMyChild创建并显示一条消息,上面写着:"抱歉,MyChild需要在MyParent中创建!".

谢谢!

delphi components creation parent

3
推荐指数
1
解决办法
181
查看次数

将RTTI.TRttiIndexedProperty的后端移植到Delphi XE

事实:

将Delphi XE2中引入的Rtti.TVirtualInterface成功引入以前的Delphi版本的成功独立工作分别由

  • Vincent Parrett在Delphi.Mocks.VirtualInterface单位(德尔福模拟)
  • DSharp.Core.VirtualInterface.pas单位Stefan Glienke (DSharp)

发现:

  • TRttiIndexedProperty源自TRttiMember.
  • TRttiType和TRttiInstanceType依赖于TRttiIndexedProperty.
  • Rtti.pas依赖于TypInfo.pas,其中还引入了一些重大变化.

题:

是否有人希望有一天能够在Delphi XE上引入TRttiIndexedProperty?

delphi rtti delphi-xe

3
推荐指数
1
解决办法
384
查看次数

如何防止用户更改系统日期/时间(在Windows 7中)?

谷歌搜索后,一般的建议是创建一个标准的非管理员帐户.

我试过了.我只有一个帐户,我自己的帐户,然后创建了第二个帐户(不是Guest帐户).我退出自己的帐户并进入新帐户并尝试更改时间.Windows 7弹出一个框,询问我的主帐户是否允许此操作(并提示输入密码).

我被告知"不可能改变系统日期/时间".我打算提供一台只有标准帐户和我的s/w的PC,但不能(我认为)阻止用户创建管理帐户并更改日期/时间.

我是否可以从Delphi中预防这种情况,或者我只是要说如果用户想要破坏性我无法阻止它?

delphi windows-7

3
推荐指数
1
解决办法
2万
查看次数

Delphi 5和浮点乘法和数学

我使用Delphi 5进行偶尔的编程工作,包括我的电子商务的一个不错的商业应用程序.多年来我用它完成了一些图形,数据库和其他一些东西.

今天,我正在制作一个模拟,其中我想基于一些物理移动像素,细节在应用程序上并不重要,但我一直在寻找整个早上和一些昨天找出如何使用Square Root和Square函数没有得到奇怪的答案.通过检查分配给扩展变量类型"vector_length"的简单计算,我在计算时得到类似的结果(数字是固定的,但是任何浮点类型表示这些数字的结果相同):

vector_length := Sqrt(Sqr(3.4) + Sqr(3)) 
Run Code Online (Sandbox Code Playgroud)

从理论上讲,这给了我大约4.53.使用计算器足够合理.

Delphi的调试器给我看了这样的事情:

2.9134839203548e-322
Run Code Online (Sandbox Code Playgroud)

这显然是一个毫无意义的浮点表示.

代码不能像预期的那样工作,所以我只能认为数学是错误的,或者我在做什么错误,期望函数给我一些合理的结果?

感谢您的任何意见.

delphi math delphi-5

3
推荐指数
1
解决办法
410
查看次数

如何使用Windows API枚举所有已安装的USB调制解调器

我买了一台中兴MF190 usb调制解调器并开始利用它.

到目前为止,我已经设法使用TurboPowers的免费AsyncPro组件以编程方式将短信发送到另一个移动设备.

我想知道有没有办法检索所有已安装调制解调器列表及其连接的串行COM端口(希望具有其他有价值的功能).

提前致谢.

delphi usb modem 32-bit windows-7

3
推荐指数
1
解决办法
2162
查看次数

使用big if子句或堆叠它们?

什么是更好的做事方式?

if f1() and f2() then...
Run Code Online (Sandbox Code Playgroud)

要么

if f1() then
  if f2() then
Run Code Online (Sandbox Code Playgroud)

要么:

fBoolean1 := f1()
fBoolean2 := f2()

if fboolean1 and fboolean2 then...
Run Code Online (Sandbox Code Playgroud)

在第一个例子中,我不确定这两个函数中的哪一个被评估.在第二个示例中,仅当f1计算为true时才会计算f2,而在第三个示例中,f1和f2都会被计算得到.

最好的方法是什么?

delphi if-statement

3
推荐指数
1
解决办法
193
查看次数