Разделы сайта:

Новости сайта
Delphi.int.ru Expert
Файловый архив
∙ Статьи
∙ Компоненты
∙ Plug-in's
∙ Документация
∙ Исходники
∙ Изображения
∙ Игры
∙ Программы
F.A.Q. (ЧаВО)
Рассылки сайта
Дружеств. сайты
Обратная связь
Каталог ссылок

Разделы рассылки:

Авторское слово
Delphi.int.ru Expert
Статья по Delphi
Файловый архив
Ссылки
Юмор

Количество читателей рассылки (23.12.2006, 13:00):
5369+731+90=6190.

Текст вопроса:

Уважаемые эксперты! Есть такой вопрос:
На форме имеется один RichEdit1 и один CoolBar1, на котором 4 ToolBar'а. У CoolBar1 AutoSize:=True, у RichEdit1 Align:=alClient.
Вот сам вопрос: как сохранить в ini расположение Тулбаров на Кулбаре. Имеется в виду сохранить расположение Тулбаров и по горизонтали (это понятно как (см. вставку)), и по вертикали, и в очередности (если пользователь изменил очередность Тулбаров).
Изначально Тулбары находятся в одной строчке все у одного края.
Перепробывал много чего, но получилось только сохранить (и главное - загрузить) только расположение Тулбаров по горизонтали в определенном заранее порядке.
Заранее спасибо!

Приложение:

IniFile.WriteInteger('Tool Bar','Bands0',CoolBar1.Bands[0].Width); IniFile.WriteInteger('Tool Bar','Bands1',CoolBar1.Bands[1].Width); IniFile.WriteInteger('Tool Bar','Bands2',CoolBar1.Bands[2].Width); IniFile.WriteInteger('Tool Bar','Bands3',CoolBar1.Bands[3].Width);

Автор вопроса: feenords (статус: 1-ый класс)
Дата и время отправки вопроса: 01.10.2006, 16:19
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 4
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: min@y™ (статус: 4-ый класс), 03.10.2006, 08:35]:

Зайди на torry.net и набери в поиске toolbar2000.
Я давно юзаю эту весчь и весьма доволен. Особенно я доволен процедурами TBIni(Reg)Save(Load)Positions().

Оценка за ответ: 3.
Комментарий: Сторонние компоненты не особо приветствую, хотя и попадаются отличные. Но всё равно спасибо...

Текст вопроса:

Уважаемые эксперты!!! Как отключить на клавиатуре все кнопки кроме цифр и букв(еще Shift и кнопки прямо, влево, вправо, влево, вниз). Заранее благодарен!!!

Автор вопроса: Geron (статус: 1-ый класс)
Дата и время отправки вопроса: 02.10.2006, 02:23
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 2
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Вадим К (статус: 9-ый класс), 02.10.2006, 09:45]:

Зачем? Просто может если задачу коректней сформулировать, то и решение будет "прозрачней и понятней".
А так могу сказать только одно - ставить хук и вместо кода клавиши возвращать 0

2. [Отвечает: Бубырь Александр Николаевич (статус: 1-ый класс), 02.10.2006, 15:33]:

Если вообще - то читай предыдущий ответ, а если применительно к своей программе, то обрабатывай OnKeyDown, OnKeyPress и все.

Текст вопроса:

Доброе время суток, Господа программисты!
Как сделать, чтобы когда программа запущена кнопка Виндоус не работала. Заранее благодарен!!!

Автор вопроса: Geron (статус: 1-ый класс)
Дата и время отправки вопроса: 02.10.2006, 11:17
Получено ответов на вопрос: 0
Сообщений в форуме вопроса: 2
Страница данного вопроса >>

» Ответы на данный вопрос:

К сожалению, ответов на данный вопрос не поступило...

Текст вопроса:

Доброе время, господа программисты!!! Как на клавиатуре отключить кнопку Виндоус. Ранее предложенные способы не работуют!!!

Автор вопроса: Geron (статус: 1-ый класс)
Дата и время отправки вопроса: 03.10.2006, 00:36
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Denisss (статус: 1-ый класс), 03.10.2006, 21:18]:

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

Посмотрите вот этот пример:
http://expert.delphi.int.ru/download_15

Надеюсь, это поможет.

Удачи!

Текст вопроса:

Здраствуйте.
Необходимо при работе с реестром создать свой новый раздел. Как это можно это сделать через Tregistry?

Автор вопроса: Князев А.А. (статус: Посетитель)
Дата и время отправки вопроса: 05.10.2006, 01:22
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 3
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: min@y™ (статус: 4-ый класс), 05.10.2006, 09:10]:

Вот простой пример сохранения настроек в реестре: с созданием раздела, если он не существует. Выдрал из своей проги.

Приложение:

procedure TSettings.Save; const SettingsRegKey = 'Software\MyProga\Settings'; var Reg: TRegistry; begin Reg:= TRegistry.Create; try Reg.RootKey:= HKEY_CURRENT_USER; Reg.OpenKey(SettingsRegKey, True); Reg.WriteInteger('DownloadPictures', PictureFormats2Int(FDownloadPictures)); Reg.WriteInteger('DownloadBufferSize', FDownloadBufferSize); Reg.WriteInteger('DownloadPaths', DownloadPaths2Int(FDownloadPaths)); Reg.CloseKey; finally Reg.Free; end; end;

Оценка за ответ: 5.
Комментарий: Спасибо

2. [Отвечает: Alex Van Glukhman (статус: 4-ый класс), 05.10.2006, 11:30]:

Здравствуйте, Князев А.А.!

Приложение:

1.В разделе uses подключаем модуль Registry 2.Объявляем переменную MyReg: TRegistry; 3.При желании объявляем строковую константу названия раздела. NK = 'NewKey' 4.В основном теле программы пишем: //Создаём экземпляр переменной MyReg:=TRegistry.Create; //Определяем ROOT реестра - по умолчанию его //значение HKEY_CURRENT_USER MyReg.RootKey:=HKEY_CURRENT_CONFIG; //вводим новый раздел MyReg.Create(NK); ... Готово - раздел появился! для доступа и записи значения в ключ используем свойства CurrentPath и WriteString(const Name: String; const Value: String), WriteInteger(const Name: String; const Value: Integer) и т.д. Данный метод не работает в NT с ReadOnly ROOT - HKEY_LOCAL_MACHINE и HKEY_USERS - для них необходимы админовские права для приложения

Оценка за ответ: 5.
Комментарий: еще раз спасибо

Текст вопроса:

Есть MySQL 5.0.18 и Delphi 7. Создаю из MySQLManager базу, кодировка Cp1251. Пробую руками вводить русские поля в VarChar - все нормально. Пишу прогу - на форме создаю ADOConnection, ADOTable,DataSource и DBGrid.
Буржуйские буквы вводит и отображает, русские вводит но при Commit вылетает ошибка не совместимости. Помогите плиз побороть

Автор вопроса: Шевчук Олег Васильевич (статус: Посетитель)
Дата и время отправки вопроса: 05.10.2006, 17:53
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Alex Van Glukhman (статус: 4-ый класс), 05.10.2006, 19:46]:

Здравствуйте, Шевчук Олег Васильевич!

У меня аналогичная ситуация была с Interbase при работе с Delphi выше 7. Так же при создании таблицы давал к типу VARCHAR CHARACTER SET 1251 именно при Transaction Commit вылетала ошибка.

Решений нашёл 2:
1. Создать таблицу ручками SQL запросоми и при этом не указывать кодовую страницу - по умолчанию лепится WideString и Delphi - не ругается
2. В параметрах коннекта TADOConnection указать кодовую страницу 1251

Текст вопроса:

Думаю вы мне поможете.
Так вот, начал я писать программку на delphi и решил прикрепить к ней DLL-ку (т.к. будет очень много повторяющихся процедур, а размещать их в exe-шнике не хочеться). Мои процедуры будут работать с компонентами на форме - допустим a:= StrToInt(edit1.text) + StrToInt(edit2.text); label1.caption:=IntToStr(a);
но у меня нечего не получаеться.... общие принцыпы создания и вызова библиотеки я знаю..... но похоже что не всё. Помогите мне пожайлусто!

Автор вопроса: Друщенко Денис Юрьевич (статус: Посетитель)
Дата и время отправки вопроса: 06.10.2006, 19:25
Получено ответов на вопрос: 3
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Вадим К (статус: 9-ый класс), 06.10.2006, 20:01]:

Вы наверное не совсем представляете для чего нужны dll. Туда нужно выносить процедуры и функции, которые не зависят от компонентов на форме. Иначе теряется всё прелесть dll. Работать с dll с компонентами формы можно, но подводных камней там стоко, что необерёшся.

Оценка за ответ: 4.
Комментарий: спасибо! думаю тогда я буду помещать эти процедуры в exe-шнике

2. [Отвечает: Бубырь Александр Николаевич (статус: 1-ый класс), 07.10.2006, 18:46]:

Есть некоторые тонкости при передаче в DLL данных типа String.
Сейчас все не помню (давно с этим сталкивался), но там приходилось использовать борландовскую библиотеку borlndmm.dll (на компьютерах где не установлен Делфи), а в раздел USES добавить Sharemem.
Приведу кусок своего:
uses
ShareMem, SysUtils, Windows, Classes;
Если не использовать длинные строки - этих проблем нет.

Оценка за ответ: 4.
Комментарий: Спасибо!

3. [Отвечает: Alex Van Glukhman (статус: 4-ый класс), 11.10.2006, 14:33]:

Здравствуйте, Друщенко Денис Юрьевич!

Хочется ответить экспертам ответившим на данный вопрос - DLL может хранить кроме исполняемого кода различного рода рессурсы в том числе и саму форму приложения. Тип перемен ;ных и констант не ограничен - такой же раздел uses с подключаемыми модулями.
Теперь отвечаю своим собственным примером.
1.Создаём библиотеку DLL
- File->New->Other->DLL Wizard
Удаляем весь код и пишем:
library MyLib;
uses
SysUtils,
Classes, StdCtrls ;
{$R *.res}
function CalcSum(a, b: TEdit): Integer;
begin
Result:=StrToInt(a.Text)+StrToInt(b.Text);
end;
exports
CalcSum;
end.
Компилируем и строим - DLL готов
2.Далее создаём проект с формой кидаем Label1: TLabel; Edit1, Edit2: TEdit; Button1: TButton;
К проекту подключаем библиотеку DLL Project->Add To Project - указываем путь к библиотеке.

Вот код модуля формы:

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants,
Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function CalcSum(a,b: TEdit): Integer;

var
Form2: TForm2;

implementation

{$R *.dfm}
function CalcSum; external 'MyLib';

procedure TForm2.Button1Click(Sender: TObject);
begin
Label1.Caption:=IntToStr(CalcSum(Edit1,Edit2));
end;

end.

Всё работает без каких то глюков со строками и т.д
Удачи

Оценка за ответ: 5.
Комментарий: огромное спасибо! это то что я хотел увидеть!

Текст вопроса:

Приветствую! Помогите пожалуйста начинающему.
Возник такой вопрос. Работаю с поздним связыванием. Прилагаю код, который загружает имена листов указанной рабочей книги
Приведённый код работает. Но бывают случаи, когда возникает ошибка OLE Error 800A9C64. При этом было выяснено, что это возникает при работе с файлом, у которого в исходном тексте имеется любой символ(ы). Исходный код - это если кликнуть правой кнопкой мыши по ярлычку и выбрать в меню "Исходный текст". Похоже, что при активации листа Эксель пытается выполнить имеющийся там "код". Как обойти эту проблему программно? Буду признателен за любую помощь. (Win XP, D7, Excel 2003)

Приложение:

procedure LoadSheetNames(FName: string; aCombo: TComboBox); var Excel, WBook: OLEVariant; SheetsCount, i, x, y, k, r: Integer; begin try Excel:= GetActiveOleObject('Excel.Application'); except Excel:= CreateOleObject('Excel.Application'); end; try Excel.DisplayAlerts:= false; Excel.Visible := false; Excel.Workbooks.Open(FName); WBook := Excel.ActiveWorkBook; {Кол-во листов открытой книги} SheetsCount:= WBook.Sheets.Count; {Загрузка в комбобокс имён листов} ACombo.Items.Clear; for i:= 1 to SheetsCount do ACombo.Items.Add(WBook.Worksheets[i].Name); //GLUCK ACombo.ItemIndex:= 0; {Finalization} finally if not VarIsEmpty(Excel) then begin Excel.Quit; Excel:= Unassigned; end; WBook:= Unassigned; end; end;

Автор вопроса: Discorezzz (статус: Посетитель)
Дата и время отправки вопроса: 07.10.2006, 13:47
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 3
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Косолапов Дмитрий Юрьевич (статус: 2-ой класс), 07.10.2006, 13:59]:

Сдается мне, цикл должен быть от 0 до SheetsCount-1

Приложение:

for i:= 0 to SheetsCount-1 do ACombo.Items.Add(WBook.Worksheets[i].Name);

Оценка за ответ: 2.
Комментарий: Вы не правы. В Экселе всё нумеруется начиная с 1. Если внимательно прочитать вопрос, то будет ясно, что код работает, но выдаёт ошибку только на вышеописанных листах рабочей книги.

2. [Отвечает: Бубырь Александр Николаевич (статус: 1-ый класс), 08.10.2006, 01:19]:

У меня не получилось повторить Вашу ошибку - код работает. Дайте ссылку на пример файла, на котором происходит ошибка, или уточните что значит " При этом было выяснено, что это возникает при работе с файлом, у которого в исходном тексте имеется любой символ(ы). Исходный код - это если кликнуть правой кнопкой мыши по ярлычку и выбрать в меню "Исходный текст"." - какой конкретнее символ и в чем нужно кликать по ярлычку и что за ярлычок?

Оценка за ответ: 3.

Текст вопроса:

Уважаемые эксперты!
Возникла проблема с цветом меню. Само меню вручную перерисовывается через OnDrawItem, однако вся оставшаяся область, которая занимает окно, остаётся серая. Это сильно выбивается из общего оформления программы. Подробнее - см. скриншот:
http://expert.delphi.int.ru/download_18
Есть ли выходы из этой ситуации? Теоретически, можно программно изменить системные настройки оформления и поменять цвет на нужный, а при выходе восстановить тот, что был до этого, но этот вариант плох - все приложения временно изменят цвет меню. Может быть, кто-то встречался с такой проблемой? Как перекрасить эту область? Через Canvas доступа к ней нет.
Заранее благодарю за ответы.

Автор вопроса: Dron (статус: 10-ый класс)
Дата и время отправки вопроса: 07.10.2006, 21:27
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 7
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Alex Van Glukhman (статус: 4-ый класс), 11.10.2006, 17:49]:

Здравствуйте, Dron!
К сожалению в Delphi данная проблема решается только ручками с детальной прорисовкой меню, либо созданием нового компонента что практически по затратам времени и сил одинако ;во.
Либо используйте сторонние компоненты.

Оценка за ответ: 1.
Комментарий: Вы вопрос вообще внимательно читали? "Само меню вручную перерисовывается через OnDrawItem" - какая ещё прорисовка? Сторонние - дайте пример хотя бы одного.

2. [Отвечает: Yurchik (статус: 3-ий класс), 13.10.2006, 02:55]:

Здравствуйте Dron и уважаемые эксперты!

Позвольте не согласиться с мнением Alex Van Glukhman. Предлагаю такой вариант. В примере цвет фона главного меню заливается желтым цветом.
И свой компонент, потенциально коммерческий ))), писать не надо.
Английский у меня хромает), так что если комментарии непонятны, пишите. С радостью отвечу

Приложение:

type TForm1 = class(TForm) ... private MenuBarBackground: TBrush; MenuBarBackgroundOld: HBrush; ... end; ... procedure TForm1.FormCreate(Sender: TObject); var lpcmi: TMenuInfo; begin // Initialization MenuBarBackground:= TBrush.Create; MenuBarBackground.Color:= clYellow; // Retrieving info about menu... lpcmi.cbSize:= SizeOf(TMenuInfo); lpcmi.fMask:= MIM_BACKGROUND; GetMenuInfo(MainMenu1.Handle, lpcmi); // Save parameters we want to change... MenuBarBackgroundOld:= lpcmi.hbrBack; // Applying new parameters... lpcmi.fMask:= MIM_BACKGROUND or MIM_APPLYTOSUBMENUS; lpcmi.hbrBack:= MenuBarBackground.Handle; SetMenuInfo(MainMenu1.Handle, lpcmi); // Redraw menu // It is not nessesary to do this in OnCreate event, // because after OnCreate has been called, all elements will redraw //DrawMenuBar(Handle); end; procedure TForm1.FormDestroy(Sender: TObject); var lpcmi: TMenuInfo; begin // Restore changed parameters, so OS can free allocated resources correctly ZeroMemory(@lpcmi, SizeOf(TMenuInfo)); lpcmi.cbSize:= SizeOf(TMenuInfo); lpcmi.fMask:= MIM_BACKGROUND; lpcmi.hbrBack:= MenuBarBackgroundOld; SetMenuInfo(MainMenu1.Handle, lpcmi); // Free our Brush... MenuBarBackground.Free; end;

Оценка за ответ: 5.
Комментарий: Большое спасибо!

Текст вопроса:

Я являюсь экспертом, и после ответа на вопрос захотел расширить ответ и привести отрывки поясняющего кода, но не смог этого сделать - при повторной отсылке ответа пишет что я уже отправлял ответ, а никаких элементов для редактирования своего сообщения не нашел. Кнопки "Форум данного вопроса" и "Добавление сообщения" не работают.
Возможно ли редактирование или дополнение своего ответа?

Приложение:

Это я хотел добавить к ответу на вопрос 127: Вообще-то DLL используются для использования одних процедур разными EXE-шниками (Я например засунул в DLL процедуру печати накладной, и подменяя библиотеку смог выбирать внешний вид накладной без замены основного EXE файла). Приведу куски текста из своего проекта DLL: library PrnCheck; uses ShareMem, SysUtils, Windows, Classes, ANB; {$R *.RES} Procedure PrintNakl(DataNakl:PNaklStrukt); Begin {Текст самой процедуры} End; Exports PrintNakl Name 'PrintNakl'; begin end. Вызов процедуры из основной программы: Procedure TFormNakladn.PrintNow(NaklType:Integer); Type TNaklProc=Procedure(DataNakl:PNaklStrukt); Var hLib:THandle; NaklProc:TNaklProc; Begin if FileExists('Nakladn.dll') then begin hLib:=LoadLibrary(PChar('Nakladn.dll')); if hLib<32 then begin Application.MessageBox(PChar('Ошибка загрузки драйвера печати накладной. Код ошибки '+IntToStr(GetLastError)),PChar('Ошибка'),mb_Ok); Exit; end; NaklProc:=TNaklProc(GetProcAddress(hLib,'PrintNakl')); NaklProc(@MyNakl.DataNakl); FreeLibrary(hLib); end else Application.MessageBox(PChar('Не найден драйвер печати накладной.'),PChar('Ошибка'),mb_Ok); End;

Автор вопроса: Бубырь Александр Николаевич (статус: 1-ый класс)
Дата и время отправки вопроса: 08.10.2006, 00:57
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: min@y™ (статус: 4-ый класс), 08.10.2006, 14:32]:

Здравствуйте, Бубырь Александр Николаевич!

У тебя, наверно, отключены скрипты. Включи, штоб кнопки работали.