Jump to content

clovishulse

Members
  • Posts

    7
  • Joined

  • Last visited

clovishulse's Achievements

Newbie

Newbie (1/4)

0

Reputation

  1. No. Version FMSoft_uniGUI_Complete_Professional_1.10.0.1459
  2. Hi. I used this solution but from the FMSoft_uniGUI_Complete_Professional_1.10.0 doesn't work. What is the soluction?
  3. Olá. Gostaria de saber que componente utilizar para obtenção de Horário (hh:nn:ss)? Utilizando o TUniDBDateTimePicker com Kind = tUniTime a máscara de obtenção mantém como Data (DD/MM/YYYY) incorretamente. Agradeço pela ajuda.
  4. Olá. Gostaria de saber que componente utilizar para obtenção de Horário (hh:nn:ss)? Utilizando o TUniDBDateTimePicker com Kind = tUniTime a máscara de obtenção mantém como Data (DD/MM/YYYY). Agradeço pela ajuda.
  5. Hi. Yes, I know the label properties. But it's just an example. Should not my example work? Thanks
  6. Hi. I'm building custom components by adding UniLabel's to UniEdit, UniComboBox ... I have similar components in VCL mode. In the new components inherited from UniGui at design time the UniLabel components are shown correctly. But at runtime the UniLabel components are not shown next to the UniEdit, UniComboBox ... Can someone direct me so that I can evolve with this problem? Are there any examples that might help me with this problem? Thanks Here are examples of source code: unit CmpTest; interface uses Windows, Messages, Classes, Controls, uniGUIClasses, uniEdit, uniLabel, SysUtils; type TCmpTest = class(TUniEdit) private FLabelCmp: TUniLabel; procedure SetLabelPosition; protected procedure SetParent(AParent: TWinControl); override; procedure Notification(AComponent: TComponent; Operation: TOperation); override; procedure SetName(const Value: TComponentName); override; procedure CMVisiblechanged(var Message: TMessage); message CM_VISIBLECHANGED; procedure CMEnabledchanged(var Message: TMessage); message CM_ENABLEDCHANGED; procedure CMBidimodechanged(var Message: TMessage); message CM_BIDIMODECHANGED; public constructor Create(AOwner: TComponent); override; procedure SetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer); override; published property LabelCmp: TUniLabel read FLabelCmp; end; procedure register; implementation constructor TCmpTest.Create(AOwner: TComponent); begin inherited Create(AOwner); if not Assigned(FLabelCmp) then begin FLabelCmp := TUniLabel.Create(Self); FLabelCmp.Parent := TWinControl(Self.Owner); FLabelCmp.FreeNotification(Self); end; SetLabelPosition; end;
  7. clovishulse

    Test

    Testing
×
×
  • Create New...