delphi-xe6

How to change color of TDateTimePicker?

早过忘川 提交于 2020-01-04 01:38:50
问题 How do i change the color of a TDateTimePicker ? A Date and Time Picker can have a color: Normally this is done by setting the Color : procedure TForm1.FormCreate(Sender: TObject); begin DateTimePicker1.Color := clLime; end; But when using version 6 of the Date and Time Picker Control, the color no longer works: I tried using SetWindowTheme to disable the style of the TDateTimePicker : procedure TForm1.FormCreate(Sender: TObject); begin UxTheme.SetWindowTheme(DateTimePicker1.Handle, '', '');

How to check if the app is running on iOS device or simulator in Delphi XE6

时光毁灭记忆、已成空白 提交于 2020-01-02 02:41:05
问题 Based on this link Conditional compilation (Delphi) CPUARM conditional if should be false for Simulator and true for device, the problem is it's not working for me. I am using Delphi XE6, iOS Simulator 7.1 This is my code {$IFDEF CPUARM} s := 'iOS device'; {$ELSE} s := 'iOS Simulator'; {$ENDIF} p.s iOS Simulator is running in a VMWare virtual machine. 回答1: Checking for CPUARM is the correct solution. iOS binaries compiled for the simulator are not ARM, they are actually x86. Just make sure to

String.Split works strange when last value is empty

和自甴很熟 提交于 2019-12-28 21:52:24
问题 I'd like to split my string to array but it works bad when last "value" is empty. See my example please. Is it bug or feature? Is there any way how to use this function without workarounds? var arr: TArray<string>; arr:='a;b;c'.Split([';']); //length of array = 3, it's OK arr:='a;b;c;'.Split([';']); //length of array = 3, but I expect 4 arr:='a;b;;c'.Split([';']); //length of array = 4 since empty value is inside arr:=('a;b;c;'+' ').Split([';']); //length of array = 4 (primitive workaround

Cannot find jedi within my Delphi 5 file using XE6 [closed]

旧巷老猫 提交于 2019-12-25 17:43:35
问题 Closed. This question is off-topic. It is not currently accepting answers. Want to improve this question? Update the question so it's on-topic for Stack Overflow. Closed 5 years ago . I have a multi-file project that was created in Delphi5 and I am attempting to compile in Delphi XE6. In my DSPack.pas file I get the error: "'jedi.inc' could not be found..." related to the code line: {$I jedi.inc} ... there are also many, mostly "undeclared identifier", errors shown as errors - but named as

scrolling vs selecting delphi XE6

徘徊边缘 提交于 2019-12-25 03:26:23
问题 I have a gridpanellayout that has about 16 rows and 5 columns. Each field has, for example a TRectangle set to TalignLayout.Client.. Each rectangle has an onclick event that performs an action ( e.g., highlighting the clicked rectangle by changing its color ). With 16 rows, my gridpanel exceeds the height of a user device such as an iPhone, and so i have the Grid placed on top of a VerticalScrollbox. What would be the best way to decipher between a user using a finger to scroll, vs using

How to create debug map file for Android app in Delphi XE6?

喜欢而已 提交于 2019-12-24 16:09:54
问题 I have implemented a back trace for my android app compiled in XE6 using the Posix.Backtrace from https://bitbucket.org/shadow_cs/delphi-arm-backtrace. As it is now I get the backtrace but not the line numbers. I am looking to create the map file for my android .so so that I can feed the addresses at runtime to addr2line so that my bug report will contain the line numbers. I looked to the IDE to create a map file as I would for a Win32 Delphi app by selecting Project > Options > Delphi

DataSnap return empty dataset

大城市里の小女人 提交于 2019-12-24 13:20:11
问题 After more than a week's trial, I feel very depressed with DataSnap. Today I again encountered a problem, My Android(Java) client need to get a dataset from the DataSnap Server(XE6),but the server return a empty result: {"result":[{"table":[]}]} Here is the server code: function TServerMethods1.GetDataset(cmdstr: string): TDBXReader; var CMD: TDBXCommand; begin SQLConnection1.Open; CMD := SQLConnection1.DBXConnection.CreateCommand; CMD.CommandType := TDBXCommandTypes.DbxSQL; CMD.Text :=

Delphi XE6 - How to make user defined components image show up on the pallette

◇◆丶佛笑我妖孽 提交于 2019-12-24 02:34:09
问题 I am migrating from 2007 to XE6 and have several user defined components written by both myself and third party. When installing components in delphi 2007 you just add the components to the library and it automatically found and loaded the DCR of the same name into the dpk file and it loaded the image onto the pallette. In delphi XE6 is does not automatically load the image files, instead you just get a default image which is the same for every user defined component. I sought and found some

How to check iOS version delphi xe5/xe6

血红的双手。 提交于 2019-12-23 20:39:35
问题 Is there a way to check the iOS version within a Delphi app? I would like to create specific piece of code for iOS7 and iOS6 in Delphi XE6. 回答1: You can use TOSVersion record in System.SysUtils. if TOSVersion.Check(7, 0) then //Os is iOS 7 Also you can find sample for iOS here. 来源: https://stackoverflow.com/questions/26758808/how-to-check-ios-version-delphi-xe5-xe6

TPanel does not AutoSize when containing a TWebBrowser

限于喜欢 提交于 2019-12-23 15:33:37
问题 I've found a another regression between Delphi 5 and Delphi XE6. I have a TPanel that is set to AutoSize itself to its contents (Panel is green): When the TPanel contains any other control, e.g. a TListView , the panel will auto-size itself to the size of the contained listview: But when the contained control is a TWebBrowser (or the replacement TEmbeddedWB), the panel will not auto-size: Must be TWebBrowser's fault There must be some VCL plumbing needed for auto-sizing that the TWebBrowser