Tag: firemonkey
Firemonkey（FMX）位图和颜色
假设我在Firemonkey中有一个小的位图（比如32×24像素）。 所以我把一个TImage放到一个表单上，在构造函数中有这样的代码： Image1.Bitmap.Create(32, 24); if Image1.Bitmap.Canvas.BeginScene then try Image1.Bitmap.Canvas.Fill.Color := claBlack; Image1.Bitmap.Canvas.Stroke.Color := claYellow; Image1.Bitmap.Canvas.FillRect(RectF(0,0,32,24), 0, 0, AllCorners, $FF); Image1.Bitmap.Canvas.DrawLine(PointF(1,1), PointF(10,10), $FF); finally Image1.Bitmap.Canvas.EndScene; Image1.Bitmap.BitmapChanged; end; 这在blackground上画了一条很好的对angular线。 我想要做的是现在parsing位图来确定受到线条绘制影响的像素。 如果我做一个基本的像素检查使用： for y := 0 to 23 do for x := 0 to 31 do if Image1.Bitmap.Pixels[x,y] <> claBlack then memo1.Lines.Add(Format('x=%d. y=%d. c=%x', [x,y,Image1.Bitmap.Pixels[x,y]])); 输出到我的备忘录是： x=0. y=0. […]
Firemonkey ScrollBox的Bug
我们正在经历Firemonkey的ScrollBox组件中的一个奇怪的错误（因为TGrid从TScrollBoxinheritance，它也影响所有的网格）。 在我们的开发机器上，一切正常，而另一些则发生错误。 我们没有检测到系统之间的任何模式（我们检查了操作系统，graphics硬件，DirectX版本）。 再生产： 创build一个新的FireMonkey应用程序。 在表单上放置一个TScrollBox 。 将一个button添加到滚动框并将其垂直位置设置为500000。 启动应用程序，并检查滚动到滚动框结束时是否显示button。 如果发生错误，button不可见。 使用网格时，会导致1-19047行正确显示，并且不会显示19047年以后的所有行。 有没有人知道这可能是什么原因造成的？ 或者有什么想法，我们如何更详细地确定问题？
在屏幕上有很多控件时，严重的FireMonkey性能问题
我们已经在办公室与FireMonkey合作了。 过了一段时间，我们注意到，由于Embarcadero告诉我们，GPU加速并不是那么快。 所以我们build立了一个基本的应用程序来testingFireMonkey的性能。 基本上它是一个窗体底部（alBottom）作为状态栏和所有客户端（alClient）面板。 底部的面板有一个进度条和一个animation。 我们在表单中添加了一个方法，释放所有客户端面板中存在的任何控件，并使用自定义types和“鼠标hover”样式的单元格来完成此操作，并使用有关信息的信息更新animation，进度条和表单标题实现进展。 最重要的信息是所需的时间。 最后，我们将这种方法添加到窗体的OnResize中，运行应用程序并最大化窗体（1280×1024）。 XE2的结果真的很慢。 花了大约11秒。 此外，由于面板被满足，直到应用准备好接收用户input，所以还有约10秒的延迟（如冻结）。 总共21秒。 XE3的情况最糟糕。 对于同样的操作，总共需要25秒（14 + 11秒）。 而传言说XE4将会是XE3中最糟糕的一个。 考虑到应用程序完全相同，使用VCL代替FireMonkey并使用SpeedButtons以获得相同的“鼠标hover效果”仅需1.5秒！ 所以这个问题显然存在于一些内部的FireMonkey引擎问题中。 我开了一个QC（＃113795）和一张支付embarcadero（支付）的票，但没有任何解决办法。 我真的不明白他们怎么能忽略这么重的问题。 因为我们的企业正在成为一个制表者和一个交易断路器。 我们不能向客户提供性能差的商业软件。 早些时候或之后，我们将被迫移动到另一个平台（顺便说一句：相同的代码delphi棱镜与WPF需要1.5秒作为VCL之一）。 如果有人对如何解决这个问题有任何想法，或试图提高这个testing性能，并想帮助，我会真的很高兴。 先谢谢你。 布鲁诺·弗拉蒂尼 该应用程序是以下一个： unit Performance01Main; interface uses System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Objects; const cstCellWidth = 45; cstCellHeight = 21; type TCell = class(TStyledControl) private […]
如何创build一个对话框，允许在其中放置其他控件？
这是一个Firemonkey组件，但是我可以看到，大部分的组件基础对于VCL和FMX都是一样的，所以如果你知道在VCL中如何做到这一点，请分享你的知识，最终可以成为我的案例的解决scheme。 我正在使用TPopup作为祖先。 这对我来说很方便，因为它仍然保留在窗体/框架上，我可以使用LiveBindings使用父窗体的相同上下文/结构来连接它，这对我来说非常方便。 我需要它的行为正是TPopup，作为一个容器。 但我需要它看起来更好，并有我的具体button（我已经创build了一些属性和自动化为我的软件在里面） 问题是我创build了一些内部控件，比如TLayouts，Tpanels和Tbuttons，看起来像这样：（空） 里面的黑色区域是我想放置像TEdit和其他控件的地方。 我已经将所有内部创build的控件设置为Store = false，所以它不会被存储在stream式系统上。 这样做，当我删除一个TEdit例如，我得到的是（Tedit与align =顶部我需要这个）： 但是我期待这样的： 如果我改变了Store = true，我可以得到正确的效果，但是所有的内部控件都暴露在Structure面板上，每次保存表单并重新打开所有的东西都会被重复。 内部组件暴露对我来说不是问题，但是重复的是，如果我closures并打开组件10次，我会得到整个内部结构复制10次。 我将尝试展示一些与组件devise相关的代码： 类声明： [ComponentPlatformsAttribute(pidWin32 or pidWin64 or pidOSX32 or pidiOSSimulator or pidiOSDevice or pidAndroid)] TNaharFMXPopup = class(TPopup, INaharControlAdapter, INaharControl) private protected FpnlMain : TPanel; FlytToolBar : TLayout; FbtnClose : TButton; FbtnSave : TButton; FbtnEdit : TButton; FpnlClientArea : TPanel; […]
如何在Firemonkey中创build“不激活”窗体
在XCode中，通过将这些方法添加到NSView子类中，可以防止在单击该窗口时该窗口变为活动状态： – (BOOL)shouldDelayWindowOrderingForEvent:(NSEvent )theEvent { return YES; } – (BOOL)acceptsFirstMouse:(NSEvent )theEvent { return YES; } – (void)mouseDown:(NSEvent )theEvent { [[[NSApp]] preventWindowOrdering]; } 在Windows平台上它是由这个简单的代码完成的： HWND hWnd = FindWindowW((String("FM") + fmxForm->ClassName()).c_str(), fmxForm->Caption.c_str()); SetWindowLong(hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) | WS_EX_NOACTIVATE); 我怎么能子类NSView，以防止我点击它时，我的FMX TForm变得活跃？ 如何在firemonkey中创build“ 不激活 ”窗体？
如何在Android / iOS中释放组件
我在Android的表单上dynamic创build一个TEdit ： edit := TEdit.Create(Self); 我想使用edit.Free释放它，但它仍然在表单上。 此代码在win32上正常工作，但在Android上失败。 不仅对于TEdit，而且对于使用Android或iOS的任何组件，似乎也是如此。
