помогите найти продвинутый Spinner

[beegl]

Привет всем! Помогите найти продвинутый Spinner. С возможностью ввода цифр, или подскажите, как ассоциировать обычный Edit с UpDown по горизонтали с лева/на право, как на скрине.

Нашел RzSpinner, но он с клавиатуры не допускает ввода цифр, или не нашел нужного свойства.

Такой надо:



Есть предложения?

[Stilet]

Могу посоветовать сделать Frame на котором будет Эдит, по бокам кнопки с Глифами в виде стрелок. Самое простое. А фрейм уже будешь как компонент размещать на форме.

[min@y™]

напиши ты свой компонент хороший на основе, к примеру, TCustomPanel.
если планируешь юзать его и в будущем, можно и установить его в поллитру компонентов.

[Toxa]

то что на картинке, очень похоже на TcxSpinEdit из DevExpress
он такое умеет

[beegl]

Сообщение от Toxa

то что на картинке, очень похоже на TcxSpinEdit из DevExpress
он такое умеет

не могу найти свойство когда вводиш, фокус все время по центру TcxSpinEdit

Не знаете, где настройки, которые отключают эти дополнительные модули?

аа, нашел, В меню Delphi выберите пункт Project | Modify Skin Options

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxContainer, cxEdit, dxSkinsCore, dxSkinBlack, dxSkinBlue,
  dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
  dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
  dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
  dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
  dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, cxTextEdit,
  cxMaskEdit, cxSpinEdit;

[ДралсяСошибками]

RzSpinner сделан на основе делфийского спинедита(вкладка Samples), поэтому возможно и в нём прокатит варварское перекрытие функции валидности вводимых символов)))

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin;

type
  TSpinEdit = class(Spin.TSpinEdit)
  protected
    function IsValidChar(Key: Char): Boolean; override;
  end;

  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ SpinEdit }

function TSpinEdit.IsValidChar(Key: Char): Boolean;
begin
  Result := True;
end;

end.

Теперь в спинедит можно вводить любые символы)))

[Человек_Борща]

TButtonEdit это стандартный умеет. Справа кнопку, слева кнопку, и код написать что левая, а что правая делать будет.
Компонент этот есть начиная с XE версий.

[Toxa]

Сообщение от beegl

не могу найти свойство когда вводиш, фокус все время по центру TcxSpinEdit

Не знаете, где настройки, которые отключают эти дополнительные модули?

аа, нашел, В меню Delphi выберите пункт Project | Modify Skin Options

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters,
  cxContainer, cxEdit, dxSkinsCore, dxSkinBlack, dxSkinBlue,
  dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
  dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
  dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
  dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
  dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, cxTextEdit,
  cxMaskEdit, cxSpinEdit;

на счет фокуса не понял
а все модули dxSkin* , после снятия тут " В меню Delphi выберите пункт Project | Modify Skin Options" галки, лучше удалить из uses, а то от них выходной файл пухнет

[Человек_Борща]

Вообще все компоненты, в более-менее интересных программах - пишутся от руки, чего и вам советую делать. Там в полную силу и примените свою фантазию.

[Аватар]

Вообще все компоненты, в более-менее интересных программах - пишутся от руки, чего и вам советую делать.

Не правда. В программах с визуальными наворотами да, что совсем не значит, что они интересные.