firemonkey

Firemonkey Grid Control - Aligning a column to the right

主宰稳场 提交于 2019-12-05 08:20:13
I am using the FireMonkey Grid control but have an on-going issue in trying to right align a column. From other users postings, I have managed to create a new TColumn type, apply a style to this (text as HorzAlign=taTrailing) and in theory - thought that this would be solution. The values are provided by the OnGetValue function to the Grid control. The problem is however that although at first it looks OK, if you scroll the bar/mouse wheel etc. the new TColumn type column does not appear to refresh correctly using the method/code below. It could be a bug/feature of the Grid (or the way I am

Delphi XE4 FireMonkey TMemo Transparent? (iOS)

允我心安 提交于 2019-12-05 06:17:41
Is there any way to make the TMemo transparent in Delphi/iOS/FireMonkey? I don't see any way to edit styles myself when selecting + right-clicking the memo control... Try removing memo's background on applying style event. procedure TForm1.Memo1ApplyStyleLookup(Sender: TObject); var BckObject: TFmxObject; begin BckObject := Memo1.FindStyleResource('background'); if Assigned(BckObject) and (BckObject is TSubImage) then begin TSubImage(BckObject).Source := nil; end; end; You need to change the style of the control you want to display transparent as you want. Unfortunately Embarcadero does not

How to show more than 200 rows in TStringGrid using LiveBindings?

风格不统一 提交于 2019-12-05 06:02:45
I have a TDataSource that is backed by a TClientDataset bound to a TStringGrid . I did this by right-clicking on the grid, selecting " Link to DB Datasource... ", and selecting the DataSource. This setup the LiveBindings for me. When I run the application, the grid only fills with 200 rows, even though there are 5000 records in the dataset. I'm unable to find any documentation regarding how to change the number of rows displayed or the proper way to allow the user to scroll through all of the data. I did find the hard coded 200 value in TBindScopeDBEnumerator.Create in the unit Data.Bind

Delphi XE2: Why FireMonkey apps are HD?

人走茶凉 提交于 2019-12-05 05:39:29
According to release notes of Delphi XE2. FireMonkey may create HD application. HD stands for High Definition. Why HD? Can't VCL application create HD apps as FireMonkey? Here is the documentation on Firemonkey , from it you can see several features. Compare normal TV to HD TV. Is like comparing the VCL to what Firemonkey can do. It's a Marketing term that I suspect will catch on as it, does highlight the power. HD Applications refer many of the features of Firemonkey but the following stand out. 2D Applications (VCL can do this) 3D Applications (VCL can not do this) Powerful Vector engine

Correct way to create styles for custom components

拈花ヽ惹草 提交于 2019-12-05 05:09:31
I sort of asked this question at the end of another post but feel this topic needs a question of its own... If I have created my own component with its own .style what is the correct procedure to merge that with the defined styles supplied with Delphi without modifying the defaults? Can I embed a default style into a component I have created and can that embedded style inherit most of the style of its parent control? I feel that I am missing a link that I am struggling to describe. My application has a TStyleBook that has (for example) the "dark.style" loaded by default. My component has its

TOpenDialog/NSOpenPanel not working in a sandboxed Delphi app

怎甘沉沦 提交于 2019-12-05 04:51:50
There seems to be a problem with the TOpenDialog in a Firemonkey application, which is sandboxed for the Mac Appstore. I use XE3, but it is also present in XE2. I actually found a QC report here, but it is still unresolved: http://qc.embarcadero.com/wc/qcmain.aspx?d=105344 Has anyone had the same problem, or any ideas how to work around it? It is very easy to check. Just put a TOpenDialog on a form and call the Execute method. Sign and sandbox the application according to the Embarcadero instructions: http://docwiki.embarcadero.com/RADStudio/en/Mac_OS_X_Application_Development When Execute is

Best way to implement MVVM bindings (View <-> ViewModel) in Delphi? [closed]

a 夏天 提交于 2019-12-05 04:03:15
For a multi-platform application using native components, the standard Delphi approach is no longer sufficient. So far our structure had only to parts: GUI (Forms) and Business logic. We now need to split the "Forms" part into two, which in a MVVM context would be View and ViewModel . The bindings between View and ViewModel can be handled in different ways: LiveBindings in Delphi DSharp (Delphi Sorcery) Delphi Spring (Spring4D) There might be more. I know this is a religious question to some, but I still hope it is possible to get objective answers: If you are using a solution in your

How to add menu items separators which work as expected on OSX?

我怕爱的太早我们不能终老 提交于 2019-12-05 03:52:38
On Windows platform, with the VCL , when we want to add a separator in a menu, we add a TMenuItem with a Caption := '-' ; With FireMonkey , we add a TMenuItem with a Text := '-' ; It works as expected on Windows platform, the item with the Text='-' is displayed as a separator. But, when I run the same application on OSX , I have the minus sign visible... I haven't found any property on the TMenuItem to specify it is a separator ... I have tried with a TMainMenu and a TMenuBar ( UseOSMenu := True|False; ) and I still have this issue. Any idea to create a real separator? (otherwise, I will check

Firemonkey ScrollBox Bug

主宰稳场 提交于 2019-12-04 23:37:25
We are experiencing what seems to be a strange bug in Firemonkey's ScrollBox component (since TGrid inherits from TScrollBox it also affects all grids). On some ouf our development machines, everything works fine, while on others the bug occurs. We failed to detect any pattern between the systems (we checked OS, graphics hardware, DirectX version). Reproduction: Create a new FireMonkey application. Place a TScrollBox on the form. Add a button to the scrollBox and set its vertical position to 500000. Start the application and check if the button is displayed when you scroll to the end of the

Delphi Xe2 with Firemonkey : Can you have a non-client area that is painted in a style other than the default Windows nonclient paint style?

自古美人都是妖i 提交于 2019-12-04 23:26:30
Here is a sample of a delphi application I am making using firemonkey + Delphi XE2. As you can see, you can use the visual style "stylebook" in Firemonkey to customize the appearance of most things inside the window frame. However the outside of the window frame is drawn using whatever style Windows decides. Now if I was using VCL instead of Firemonkey, I could apply "VCL Styles" and "skin" the whole VCL application in a dark color scheme. My guess is that this is NOT YET posssible with Delphi XE2 + Firemonkey. Can anyone show how to do this? At designtime, the "preview" of your form shows a