Jump to content

pavell

Members
 View Profile  See their activity

  • Posts

    14

  • Joined

  • Last visited

 Content Type 

Posts posted by pavell

    Позиционирование курсора в поле ввода после присвоения значения

    in Russian

    Posted

    Добрый день!

     

    Пробую такой вот код:

    procedure TfrmXXX.gridMainMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  If Shift=[ssAlt] Then
    inherited;  //
end;

procedure TfrmXXX.gridMainMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  If Shift=[ssAlt] Then
    inherited;  //
end;

    Но значение переменной SHIFT всегда = [], не зависимо от того нажат alt, ctrl или shift. 

    Это ошибка или я что-то не правильно понимаю?

     

    Спасибо!

    TUniDBGrid doesn't have properties SelectAll and UnSelectAll

    in General

    Posted

    Hi all,

     

    If DBGrid finde this situation:

    procedure TfrmXXX.gridMainMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  If Shift=[ssAlt] Then
    inherited;  //
end;

procedure TfrmXXX.gridMainMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  If Shift=[ssAlt] Then
    inherited;  //
end;

    Value of Shift is always '[]'. i.e. i can't catch pressed button SHIFT, ALT, CTRL.

     

    What is this, bug? 

    Позиционирование курсора в поле ввода после присвоения значения

    in Russian

    Posted

    Добрый день,

     

    Демо проанализировал. Я его смотрел и раньше.

    Но в моем случае все намного сложнее, у меня в проекте есть базовые формы. И в одной из них был снят признак NavigateKeys.HandleTabs. И видимо поэтому переход табом "пошел вразнос". Признак вернул, сейчас ситуация, вроде бы, вошла в норму. Осталось только понять почему этот признак мог быть снят. Ну буду наблюдать за поведением программы, может со временем и пойму. 

     

    В любом случае спасибо за "наводку"!  :)

    Позиционирование курсора в поле ввода после присвоения значения

    in Russian

    Posted

    Здравствуйте!

     

    Извините, что пропал на неопределенный срок. 

     

    Да, с картинками как-то не разобрался как можно прикреплять. И с проблемой вроде бы разобрался. Правда с большим трудом, но разобрался. Т.ч. спасибо.

     

    Сейчас борюсь с другой проблемой: порядком следования полей редактирования (TabOrder). Почему-то по табу курсор переходит не совсем туда, куда ожидается. Курсор даже умудряется перескочить на экранные поля родительского окна, что совсем не радует. Попробовал почитать форум. Народ уже пытался обсуждать эти вопросы. Но решений проблемы как-то не обнаружил.

     

    Подскажите пожалуйста, эта проблема решена?

    Позиционирование курсора в поле ввода после присвоения значения

    in Russian

    Posted

    Всем доброго дня!
     
    Есть такая задача: на форме имеется поле ввода (UniEdit). Задана маска ввода (InputMask.Mask='999-999-999'). После присвоения значения этому полю курсор всегда останавливается в самом конце поля, не зависимо от длины вводимого значения. Вот так:
     
    1.png
     
     
    А хотелось бы чтобы курсор оказался сразу после последнего значащего символа.
     
    2.png
     
    Это важно для меня. На самом деле, работа ведется над более существенным кодом, но все застопорилось именно из-за этой "фичи".
     
     
     
    Тестовый пример:
     

     

     

    fsUnderline vs fsBold

    in General

    Posted

    Hi,

     

    There is checkbox (TUniCheckBox) on the form. I want dynamically change props of his font. When i do:

     

    myCheckBox.Font.Style := myCheckBox.Font.Style + [fsBold];

     

    and

     

    myCheckBox.Font.Style := myCheckBox.Font.Style - [fsBold];

     

    i see required effect (font "bold-on"/"bold-off").

     

    But 

     

    myCheckBox.Font.Style := myCheckBox.Font.Style + [fsUnderline];

     

    and

     

    myCheckBox.Font.Style := myCheckBox.Font.Style - [fsUnderline];

     

    not work proper. That is, +fsUnderline make font underlined, but after -fsUnderline font still underlined.

     

    Is it bug? :(

     
×
×
  • Create New...