1

(3 replies, posted in Russian)

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

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

2

(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 не дает должного эффекта, как меняется ширина столбцов так и меняется...

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

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

Есть фраза на обязательное поле: "Данное поле обязательно для заполнения" Вот его можно изменить, и добавить звуковой сигнал.

сп., вроде, заработало...

Не-е, там только параметры и свойства настройки... это все понятно... Мне надо понять, как правильно условие if прописать, чтоб обе кнопки выполняли действие... Уже как-то создавал тему, где непонятно было с тремя кнопками... Или идти по пути создании формы с кнопками...

как его заставить обрабвтывать противоположное действие, т.е.

if IDNO = MessageBox

работает на отрицание при нажатии на "Нет", а вот "Да" как правильно прописать... Почему-то стандартное описание условие с else не работает.

Сп.

Хочу удалить из таблицы записи по определенной записи

var
    cId : string;
begin
    cId:=SQLEXecute('SELECT id FROM request WHERE id='+frmMain.TableGrid1.sqlValue);

    //очистка таблицы
    SQLExecute('DELETE FROM detali WHERE id='+cId);

    //Обновление таблицы
    frmNote.TableGrid2.dbUpdate;   
end;

Так же пытаюсь узнать номер и тоже не выходит...

if SQLExecute('SELECT COUNT(id) FROM detali WHERE id='+cId) = 0  then

дает всегда "0"

Угу, сп.

Отличный пример, сп. derek.

procedure Form1_Button4_OnClick (Sender: TObject; var Cancel: boolean);
var
    i,cR : integer;   
begin
    cR := Form1.TableGrid1.RowCount - 1;
   
    for i := 0 to cR do
    begin
        Form1.Edit1.Text := Form1.TableGrid1.Cell[0,i];
    end;   
end;

Так работать не хочет sad

Требуется дернуть значения из таблицы (определенного столбца), по кнопке, и сумму поместить в текстовое поле.

19

(4 replies, posted in FAQ)

А чем обусловлено, что картинка больше 24х24, не может быть, т.е. не отображается?

Ход правильный мыслей, но надо так...

procedure Form1_TableGrid1_OnDoubleClick (Sender: TObject; Action: string);
begin
     if (...  = 'Admin') then 
     begin
          idZapr := Form1.TableGrid1.dbItemID;
          idPlat :=SQLExecute ('SELECT id_plat FROM zapros WHERE zapros.id= '+inttostr(idZapr));
          Form1.Button6.Click;
     end else       
end;

т.е. если учетка админ, то выполнить, обратно, знак <> (не равно)...

21

(4 replies, posted in FAQ)

Из примера не понятно, как картинку загружать

вроде так

ImageList.AddPng(ExtractFilePath(Application.ExeName)+'images\new0.png');

У меня не получилось, либо ничего или черный квадрат.

Не понятно как быть с кнопками на других формах?

Приходится городить из-за виндового масштабирования...

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

Заметил проблем, у меня форма проги создана при масштабе 100, но при переключении 125, она, форма, искажается, т.е.не происходит растягивание внутри проги, а вот при 150 все нормально.

Хотел сделать переход на вкладке ч/з кл. enter...

Масштабирование иконок кнопки.