delphi-xe8

Change Alternating Colors in Firemonkey TListView

由 孤者浪人 提交于 2019-12-01 23:41:58
问题 Dropping a tlistview onto a form and checking the property 'AlternatingColors' to true, by default it will show a grey background on every other item on the listview. My question is does anyone now how to change this color to something else? Thanks, 回答1: You need to edit the style of TlistView. Right-click on listview, choose "Edit Custom Style" and in the structure panel there are two items: "itembackground" and "alternatinfitembackground". You can change the colors from there. 来源： https:/

Does interface delegation of an inherited interface require a wrapper class?

由 人走茶凉 提交于 2019-12-01 20:05:20
Delphi allows for interface delegation using the implements keyword. For example IIndep1 = interface function foo2: integer; end; IIndep2 = interface function goo2: integer; end; TIndep1And2 = class(TInterfacedObject, IIndep1, IIndep2) private FNested : IIndep1; //e.g. passed via constructor or internally created (not shown here) public Constructor Create(AIndep1: IIndep1); function goo2: integer; property AsIndep1 : IIndep1 read FNested implements IIndep1; end; That works well, but not for inherited interfaces. (Error message "Missing implementation of interface method ILev1.foo") ILev1 =

Drawing unicode text on listbox canvas is too slow

由 ￣綄美尐妖づ 提交于 2019-12-01 06:00:34
I am trying to display news from a RSS in a listbox using the following format as shown in the image below. The application on the screenshot has been developed in firemonkey by styling the listbox. I need to display the same in my VCL application. The requirements of this layout are: The news title should be bold text The short description should be located at bottom and it should be wrapped if it doesn't fit in a single line(as shown in the image); font-style should be normal There should be an image for each news item My code so far: procedure TfrmDatePicker.ListBox1DrawItem(Control:

Delphi XE8: TEdit TextHint Disappears When Receiving Focus

由 一世执手 提交于 2019-12-01 05:56:38
Basically, I want the TextHint of my TEdits to disappear when the first character is entered and not when they receive focus, like the Edits on this Microsoft page: Sign in to your Microsoft account . Can someone please walk me through on how to achieve this? Thank you in advance. Based on Uwe Raabe's answer, here is a procedure (for Delphi 2007, should work for newer versions of Delphi as well): type TCueBannerHideEnum = (cbhHideOnFocus, cbhHideOnText); procedure TEdit_SetCueBanner(_ed: TEdit; const _s: WideString; _WhenToHide: TCueBannerHideEnum = cbhHideOnFocus); const EM_SETCUEBANNER =

Delphi XE8: TEdit TextHint Disappears When Receiving Focus

由 不羁岁月 提交于 2019-12-01 04:38:49
问题 Basically, I want the TextHint of my TEdits to disappear when the first character is entered and not when they receive focus, like the Edits on this Microsoft page: Sign in to your Microsoft account. Can someone please walk me through on how to achieve this? Thank you in advance. 回答1: Based on Uwe Raabe's answer, here is a procedure (for Delphi 2007, should work for newer versions of Delphi as well): type TCueBannerHideEnum = (cbhHideOnFocus, cbhHideOnText); procedure TEdit_SetCueBanner(_ed:

Drawing unicode text on listbox canvas is too slow

由 自闭症网瘾萝莉.ら 提交于 2019-12-01 03:54:12
问题 I am trying to display news from a RSS in a listbox using the following format as shown in the image below. The application on the screenshot has been developed in firemonkey by styling the listbox. I need to display the same in my VCL application. The requirements of this layout are: The news title should be bold text The short description should be located at bottom and it should be wrapped if it doesn't fit in a single line(as shown in the image); font-style should be normal There should

Cleartype font / text rendering in Firemonkey

由 岁酱吖の 提交于 2019-12-01 02:45:18
问题 Here is a sample VCL application containing just a TEdit control. If you compile a similar Firemonkey (FMX) application you will notice this: (The small L letter is jumping around like crazy) On my research i found this G+ post which results in: As you can see the result is better. The jumping is gone. However the TCircle isn't rendered very nicely. After some more research i found out that using initialization GlobalUseDX := False; has a better output: Occasionally there is still some

How to Stop all Pipeline tasks correctly

由 非 Y 不嫁゛ 提交于 2019-12-01 01:38:38
how to stop Pipleline tasks correctly, I've tried but when i press Abort button i get an AV, i'm not too good at debugging,i have reached to DoOnStop(task); in OtlParallel then i couldn't figure out what to do next, i believe there is something missing ? type procedure SetInProcess(const Value: Boolean); private FInProcess: Boolean; property inProcess: Boolean read FInProcess write SetInProcess; public FStopAll: Boolean; procedure FlushData; procedure Retriever(const input: TOmniValue; var output: TOmniValue); ... procedure TForm1.SetInProcess(const Value: Boolean); var I: Integer; begin if

How to Stop all Pipeline tasks correctly

由 筅森魡賤 提交于 2019-11-30 20:15:23
问题 how to stop Pipleline tasks correctly, I've tried but when i press Abort button i get an AV, i'm not too good at debugging,i have reached to DoOnStop(task); in OtlParallel then i couldn't figure out what to do next, i believe there is something missing ? type procedure SetInProcess(const Value: Boolean); private FInProcess: Boolean; property inProcess: Boolean read FInProcess write SetInProcess; public FStopAll: Boolean; procedure FlushData; procedure Retriever(const input: TOmniValue; var

How to Get Images From Server using App Tethering

由 前提是你 提交于 2019-11-30 09:54:17
问题 I've 2 Apps Let's call Server And Client. I'm using Delphi-xe8. App ->Multi-Device Application In Both Side using: App tethering[tManager,tAProfile], SQLite Database. In Server SQLite Database I've 6 images. I would like to View that images In Client Side. In Client Side I've 6 [TImage]. When I Click Button 'Get Image List' I'm getting 6 images with the same view. I would like 6 images view differently.->[Get From Server Database] Client "Get Image List" button Code: procedure TForm1
订阅 delphi-xe8