Есть текстовое поле, и там надо вбивать строго в латинице.

Переключение языка поставил по входу.
Можно ли организавать ограничение на переключение языка пока находишся в пределах этого поля. сп.

Нашел косяк, опять не все перенес вот проблема была... все сп.

P.S. Ну это когда времени завались и основная деятельность это программирование, т.е. крутишся в одной стихии. А когда занимаешься аналогом, то каждый раз вправлять мозги бывает очешь утомительно....

Как выдернуть значение отсюда

        url:='https://sms.ru/my/balance';
        smsquestion:=createoleobject('WinHttp.WinHttpRequest.5.1');
        smsquestion.open('POST', url, true);
        smsquestion.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
        smsquestion.send('api_id='+SMSAPI_ID+'&json=1');
        //smsAn:= 'SMS.RU';

        //smsTimer:=Ttimer.create(Form1);
        //smsTimer.Enabled:=True;
        //smsTimer.Interval:=1000;
        //smsTimer.OnTimer:=@smsAnswer;

        JSONObject:=TJSONObject(TJSONObject.ParseJSONValue(smsquestion.responsetext));
        JSONString := TJSONString(JSONObject.GetPairByName('balance').JsonValue);

        form1.Edit6.Text := JSONString;

А вот объясните, как прихотят уведомления в обратку... ?

Вроде заработало, просто не мгновенно пришло.

sibprogsistem, Посмотрел, Ваш проект по СМС, и некак не получается отправить, все время пишет "нет соединения"...

У меня насильно все переобновляется от греха, Да и Дмитрий давал пример где редактирование в самом комбике насильно обновляло все содержимое...

т.е. так?

begin
@frmNote_Button20_OnClick;
end;

Сущ. способ повторно запустить процедуру в скрипте, без открытия и закрытия формы?

35

(54 replies, posted in Russian)

Тут надо делать условие в скрипте, на событие onchange, а там уже делать все что угодно.

Вот

Обнаружил, что нарушен порядок всплывающих окон. Когда производишь поиск по скрипту и он оканчивается (т.е. совпадения кончились), выдается сообщение об окончании поиска. Так вот, это сообщение должно быть поверх формы поиска, а не под ней. Вообще это форма, скорее всего с функцией поверх всего, т.к. если развернуть другую прогу, то эта форма будет поверх и ее (др. программы).

Увы, adiziktdy, речь не об этом. Надо, по красоте, чтоб курсор менялся дважды. т,е. на часте combox, где вводится текс оставался курсор ввода текста, а при его переводе на стрелочку combox - менялся на что-то другое. Поэтому припилить в свойствах combox возможность выбирать разные указатели для разных его частей.

А можно добавить дополнительный параметр константу для combox для отоброжения курсора?
Т.е. когда выбираешь стиль csDropDown, хотелось бы чтоб при наведении мышки на стрелочку combox была стрелочка мышки или руки, а не ввода текста.

40

(21 replies, posted in Russian)

звука нет по коду

MessageBeep(1); //Звуковой сигнал

Если точнее, то в наушниках можно услышать щелчок, как от статики, но не всегда...

Странно через Hdmi есть, а в наушниках нет, дрова косячат что ли.

Помог более сложный вариант

procedure frmClient_TableGrid1_OnChange (Sender: TObject);
var
    i, c: integer;
begin

    c := frmClient.TableGrid1.Columns.Count - 1;
    for i := 0 to c do
    begin
        frmClient.TableGrid1.Columns[i].VerticalAlignment := taAlignTop;
        frmClient.TableGrid1.Columns[i].WrapKind := wkWordWrap;
    end;

    c := frmClient.TableGrid1.RowCount - 1;
    for i := 0 to c do frmClient.TableGrid1.BestFitRow(i);
end;

У меня не получилось... Наверно из-за того что у меня идет через sql запрос. может можно туда встроить?

SELECT
client.name
,client.tel
,client.text 
,client.gText   
,client.id

FROM
client 
                  
WHERE  

(CASE WHEN '{sqlEdit1}' = '' THEN 1=1 ELSE client.name LIKE '{sqlEdit1}%' END) OR         
(CASE WHEN '{sqlEdit1}' = '' THEN 1=1 ELSE client.tel LIKE '{sqlEdit1}%' END) OR  
(CASE WHEN '{sqlEdit1}' = '' THEN 1=1 ELSE client.text LIKE '{sqlEdit1}%' END) OR
(CASE WHEN '{sqlEdit1}' = '' THEN 1=1 ELSE client.gText  LIKE '{sqlEdit1}%' END)  

43

(3 replies, posted in Russian)

Значит нельзя... Тогда по старинке делаем форму.

Тогда вопрос, как выудить картинки из программы, которые скрываются под MB_ICONINFORMATION и ему подобные...

44

(3 replies, posted in Russian)

Подскажите, а можно здесь сделать, чтоб текст из Edit9 был жирный

if IDOK = MessageBox(frmNote.Edit9.Text,'Вопрос',MB_OKCANCEL+MB_ICONINFORMATION) then

Раз в тему с редактированием ячейки никто не написал... Былоб неплохо в ячейку Grid'а добавить возможность переноса содержимого на словам с автоматическим расширением ячейки, как в Exel с включенной этой ф-цией.

Хотелось бы в Grid авто перенос по словам и автоматическим расширением по содержимому.

Было б неплохо выбирать цвет заголовка в Grid. А то в 10 все сливается. Можно выбрать стиль Vista, но там не прикольно выглядит  фильтрация по содержанию столбца (треугольничек лучше).

Не спасает, т.е. bsSingle не рисует рамку, наверно потому что использую EnableVisualStyle := False,
т.к. в 10ке нелепо смотрится Grid. Остается Panel подрисовать снизу.

ReadOnly -> True не дает должного эффекта, как меняется ширина столбцов так и меняется...

Да, а еще, как можно запретить изменять ширину столбцов. А то прога, иногда подглючивает, и вместо курсора мыши показывает значек изменения ширины столбцов...

Вроде настроек не крутил а вид без рамки, подскажите, как вернуть рамку...