|
|
| Другие темы раздела | |
|
Delphi Копия файла с новым именем
https://www.cyberforum.ru/ delphi-beginners/ thread2576301.html procedure TForm1.BitBtn1Click(Sender: TObject); begin if CopyFile('C:\test\test.xls', 'D:\test\test1.xls', true) then ShowMessage('файл скопирован.') else ShowMessage('ошибка копирования.'); end; Здравствуйте. Нужна помощь. |
Рассчитать значения выражения для разных значений аргумента Delphi Рассчитать значения y для разных значений аргумента n(n= 1, 2, 3, …, m ), где m - заданное целое число. Напечатать результаты в виде таблицы. Построить график функции y(n), На этом же графике показать контрольное математическое значение. Для заданной точности \varepsilon определить необходимое количество слагаемых ряда. Сама функция : y=1-1/2+1/3-1/4+... ±1/n Контрольно математическое... |
|
Delphi Работа с массивами данных
https://www.cyberforum.ru/ delphi-beginners/ thread2576165.html Добрый день помогите решить следующую задачку. Массив (объект) мПлатежей содержит платежи абонентов в разрезе (в группировке) лицевых счетов, дат платежей, названий оплачиваемых услуг. Т.е. элемент массива мПлатежей хранит сумму платежа по некоторому лицевому счету за такой-то день по такой-то услуге. Пример исходного наполнения массива: мПлатежей = 150; мПлатежей = 100; мПлатежей = 90;... |
Delphi Выписать из текста определенное слово Добрый день. Нужно составить программу, которая выписывает из предложения определенное слово. Дано предложение: Нет худа без добра Выписать слово "худа" Графически должно выглядеть так: https://www.cyberforum.ru/ delphi-beginners/ thread2576042.html |
|
Решение линейной системы уравнений Delphi Здраствуйте, Я имею система 3 линейныйх уравнений: a1x1+a2x2+.....+a6x6+w1=0; b1x1+b2x2+.....+b6x6+w2=0; c1x1+c2x2+.....+c6x6+w3=0; Нуждаюсь програмное решение этой системе на Pascal, C++ или C. |
Delphi Функция поиска файла в папке и подпапок получения папок с файлом
https://www.cyberforum.ru/ delphi-beginners/ thread2575755.html Здравствуйте. Вот код: procedure TMyThread.ScanDir(aDir: string); var aPath: String; SearchRec: TSearchRec; FindResult: Integer; begin fIsScanFileInPath := True; aPath := IncludeTrailingBackslash(aDir); |
| Delphi Составить программу, которая содержит статическую запись c динамическим полями. Программа должна обеспечить ввод, вывод Составить программу, которая содержит статическую запись c динамическим полями. Программа должна обеспечить ввод, вывод информации. Не могу исправь ошибку. Решение: Type Stud = record Name : string ; LastName : string ; Sport : string ; Age = ^trec; Trec = record https://www.cyberforum.ru/ delphi-beginners/ thread2575570.html |
Delphi Вещественная матрица. Построение массива Уважаемые форумчане, хочу попросить у вас помощи в решении непростой для меня задачи. Дана вещественная матрица A размером п×n. Построить массив B, каждый элемент которого принимает значение true, если в строке матрицы A существует элемент, делящий ее на две части с одинаковой суммой элементов в каждой. Матрица загружается из текстового файла. С одной задачей я вроде справился, матрица... |
|
Delphi Ошибка в коде
https://www.cyberforum.ru/ delphi-beginners/ thread2575181.html Доброго времени суток уважаемые форумчане. Подскажите пожалуйста, почему выскакивает ошибка ( expected but '(' found и указывает на эту часть кода (StringGrid1.Cells(j,i):=IntToStr(k); Вроде все везде расставлено правильно unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
Delphi Быстро прописать все пути к модулям
https://www.cyberforum.ru/ delphi-beginners/ thread2575177.html Здравствуйте. Может кто помочь другими словами я знаю где хранится все прописанные модуля: Вот здесь: HKEY_CURRENT_USER\Software\Embarcadero\BDS\20.0\History Lists\Library\DelphiWin32\hlLibraryPath Вот так вот выглядит: Но я не так чтоб сильно помню как работать в реестре в Delphi Может кто помочь простенько это реализовать? Получается нужно будет получить и изменить Count. И добавить... |
|
Ошибка: File not found Delphi Мир всем и привет ! ) У меня как стоял Делфи ХЕ8, теперь Делфи ХЕ10.3 открываю созданную программу в Делфи хе8 открывает но выводит ошибку: OKCNHLP1.pas(6): F1026 File not found: 'c:\program files (x86)\embarcadero\studio\16.0\ObjRepos\EN\DelphiWin32\OKCANCL1.PAS' теперь у меня строка \16.0\ObjRepos\EN\DelphiWin32\ не существует, но OKCANCL1.PAS у меня есть в папке с программой. ... |
Delphi Условный оператор Case С использованием оператора Case необходимо показывать сообщение, в зависимости от того, что мы вводим в поле Edit. Например, вводим число 5, появляется сообщение: "5". Если мы вводим букву b, то сообщение: "b". var num : Char; begin Num := StrToInt(Edit1.Text); https://www.cyberforum.ru/ delphi-beginners/ thread2574986.html |
|
32 / 26 / 7
Регистрация: 18.10.2019
Сообщений: 187
|
|
| 28.01.2020, 18:40 | 0 |
Delphi 6-7 AlphaSkins: убрать вертикальные полоски на sToolBar'е - Delphi - Ответ 1421026928.01.2020, 18:40. Показов 849. Ответов 8
Метки (Все метки)
Ответ
На скрине разные управляющие элементы. Если 2 полоски в начале бара, то это вроде как не убирается т.к. это по сути заголовок бара, а вот одна полоска - это разделитель групп и его можно убрать. В принципе заголовок бара тоже можно убрать, но придется изменить визуальную тему на ту в которой не предусмотрена отрисовка такого заголовка.
Вернуться к обсуждению: AlphaSkins: убрать вертикальные полоски на sToolBar'е Delphi
0
|
|
| 28.01.2020, 18:40 | |
|
Готовые ответы и решения:
8
Зеленые вертикальные полоски вертикальные полоски на экране. Вертикальные полоски из div светло-розовые вертикальные полоски на экране. |
| 28.01.2020, 18:40 | |
| 28.01.2020, 18:40 | |
|
Помогаю со студенческими работами здесь
0
сверху вниз появляются вертикальные зеленые полоски После загрузки Windows на мониторе черно-белые вертикальные полоски..
Как убрать боковые полоски в видео? |
Наверх