delphi-xe7

In iOS 7 the default behavior of the statusbar is to be transparent, but that seems impossible in Delphi XE7. The statusbar always get the same color as the mainform (which was the default behavior in iOS 6). The Mainform.borderstyle controls if the statusbar is shown or not, but I cannot find any way to set it transparent. I have tried setting UIViewControllerBasedStatusBarAppearance and UIStatusBarStyle in the info.plist and tried to call TUIApplication.wrap(TUIApplication.OCClass.sharedApplication).setStatusBarStyle(UIStatusBarStyleBlackTranslucent) but it remains solid. Did anyone succeed

Using code below which I found on another post , the email appears ready to send with the attachment, but when email is received, there is no attachment. Also, the email address has to be manually entered, it is not populated by the CreateEmail statement. I am sending from a gmail account. Anyone help please? procedure TForm1.CreateEmail(const Recipient, Subject, Content, Attachment: string); var Intent: JIntent; Uri: Jnet_Uri; AttachmentFile: JFile; begin Intent := TJIntent.Create; Intent.setAction(TJIntent.JavaClass.ACTION_SEND); Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);

Related to this question: Should "Library path" point to the source files of packages? Fabricio Araujo suggested that is not necessary to set the 'search path' for each new project by creating a 'Default Project Option'. How can this be done in Delphi XE7? How this can be done in Delphi XE7? It cannot. This functionality was removed I'm not sure exactly when, but it has not been present for some considerable time. What you can do is: Create a new project. Change its settings however you please. Save this modified project template to some central location. Whenever you make a new project, do so

How can I use a C++ class in Delphi? I am trying to use it through an abstract class. However it doesn't work as expected I get weird numbers from Age(); . Delphi: program Test; {$APPTYPE CONSOLE} type IPerson = class function Age(): Integer; overload; virtual; stdcall; abstract; procedure Age(const Value: Integer); overload; virtual; stdcall; abstract; end; const DLL = 'Interface.DLL'; procedure FreePerson(const Person: IPerson); external DLL; function CreatePerson(): IPerson; external DLL; var Person: IPerson; I: Integer; begin Person := CreatePerson; Person.Age(10); I := Person.Age(); // I

I have a bunch of overloaded methods, all of them get an array of some type as a parameter and return a random value from that array: function GetRandomValueFromArray(Arr: array of String): String; overload; begin Result := Arr[Low(Arr) + Random(High(Arr) + 1)]; end; function GetRandomValueFromArray(Arr: array of Integer): Integer; overload; begin Result := Arr[Low(Arr) + Random(High(Arr) + 1)]; end; etc. How can I use generics to create a single method for array of any type? Something like this (does not compile in Delphi XE7): function GetRandomValueFromArray(Arr: TArray<T>): <T>; Appreciate

I want to draw something. Because the GUI freezes I want to draw in a thread. But sometimes I want to pause the drawing (for minutes). Delphi's documentation says that Suspend/resume are obsolete but doesn't tell which functions replaces them. Suspend and Resume are deprecated. Sleep and SpinWait are obviously inappropriate. I am amazed to see that Delphi does not offer such a basic property/feature. So, how do I pause/resume a thread? You may need fPaused/fEvent protection via a critical section. It depends on your concrete implementation. interface uses Classes, SyncObjs; type TMyThread =

I have observed that calling DirectoryExists(x) immediately after calling TDirectory.Delete(x) returns true IF the folder to be deleted has few files in it AND the folder is open (in Total Commander). In other words: begin TDirectory.Delete('x', true); <-- 'Delete' exited but the folder is still not fully deleted if SysUtils.DirectoryExists('x')... <-- This returns true end; Is this a normal behavior? The "solution" is this: begin TDirectory.Delete('x', true); Sleep(1000); //wait for Delete to finish if SysUtils.DirectoryExists('x')... end; Question: How do I know when the Delete is ready (how

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

I have a string var 'HTMLCode' that contains HTML code. I want to load this code into the browser. This is Embarcadero's code: procedure THTMLEdit.EditText(CONST HTMLCode: string); {VAR Doc: IHTMLDocument2; TempFile: string; } begin TempFile := GetTempFile('.html'); StringToFile(TempFile, HTMLCode); wbBrowser.Navigate(TempFile); Doc := GetDocument; if Doc <> NIL then Doc.Body.SetAttribute('contentEditable', 'true', 0); //crash here when I load complex html files DeleteFile(TempFile); end; It has some problems so I replaced it with this one: procedure THTMLEdit.EditText(CONST HTMLCode: string);