» Вопросы по Delphi (до версии 2009) - часть 6

Frodo_Torbins

Цитата:

нельзя было бы перекомпилировать

это я вообще-то о себе, а если нельзя ему, то зачем тогда спрашивать, чтобы экзюк раскрякать?


Цитата:

Экран -> 125%". То есть с помощью этой настройки можно было бы увеличить шрифт в этой проге, попутно увеличив шрифт во всей системе. Вот только jr13ster уже написал, что такой вариант ему не подходит

мне тоже :)
из-за одной программы во всей системе? -- не наш метод, сейчас лучше посоветую ему воспользоваться лупой, можно экранной, можно настоящей :)

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

jr13ster
я тоже посмотрел, переписан тот же TOsnova.Fontdialog2Click...

хорошая идея сохранять его в конфиге, а если при этом есть возможность его загружать чтобы не переустанавливать каждый раз -- тогда вообще всё в шоколаде...

---
есть...
не увидел с первого раза, тогда бери вариант Frodo_Torbins не задумываясь, и не забудь его поблагодарить :)

akaGM
Да, откомпилить в конце концов удалось, так что поправить код не составило большого труда. Но остается вопрос, правильно ли я выбрал версию компоненты для работы с COM-портом.

"всё будет хорошо" :)

jr13ster
да, и не забудь самое главное: изменить юнит about.pas, добавив туда имя
Frodo_Torbins :)

а вот у меня такая задачка...

есть здоровенный файл common.inc такого формата:
Код: //prototypes
function f1();
function f2();
function f3();

//implementation
function f1();
begin
end;

function f2();
begin
end;

function f3();
begin
end;

Прошу не пинать за, возможно, элементарный вопрос - давно не пользовался WinAPI
Вопрос такой:
Необходимо запустить внешнее приложение с помощью CreateProcess и оставить его крутиться, пока не понадобится. Здесь проблем нет.
А вот как потом отправить этому приложению сообщение, ведь дескриптор главного окна вновь созданного приложения CreateProcess не возвращает? Пользоваться FindWindow или этот дескриптор где-то все-таки спрятан в PROCESS_INFORMATION?
Спасибо.
С уважением, Сергей ака Grande.

Grande
CreateProcess не знает ни про какие окна, так что да, искать самому после WaitForInputIdle

Спасибо, придется так и сделать.

Grande
Имея хендл процесса, перечислить все его окна и найти главное не проблема.

Всё, починил
Использовал CreateProcess, потом FindWindow - пока работает.

Grande
FindWindow плох тем, что может вернуть хендл окна, принадлежащего совершенно другому процессу.

Grande
лучше искать через EnumWindows + GetWindowThreadProcessId

Подскажите, может и дурацкий вопрос, но можно-ли убрать тень окна, которая была создана так:
Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW;
после показа формы?

всем привет
следующий код дает ошибку (List out of bounds ...)

Код:
for I := 0 to ComponentCount - 1 do
begin
Item := Components[ I ];
if Item.ClassNameIs( 'TTBXItem' ) then
begin
J := TTBXItem( Item ).Tag;
IsFiltered[ J ] := TTBXItem( Item ).Checked;
end;
end;

Цитата:

В чем может быть прикол ?

В методе SetItem?

vetal71

а Item что у тебя?
и в каком классе этот цикл работает?

Aleksandr N
Можно: http://msdn.microsoft.com/en-us/library/windows/desktop/ms633591%28v=vs.85%29.aspx

Aleksandr N
SetClassLong(Handle, GCL_STYLE,
GetClassLong(Handle, GCL_STYLE) and not CS_DROPSHADOW);
vetal71
Возможно компонент внутри цикла (в сеттере у Item например) уничтожается. поставь брейкпойнт в начале цикла - потом на TComponent.Destroy и смотри стек
Не, есть лучше идея:
у тебя локальных переменных Components или ComponentCount не объявлено?

Frodo_Torbins
A_V
Странное что-то. Мало того что тень не убирается, при закрытии форма гарантированно уничтожается, а вот новая форма появляется уже без тени (форма вызывается из главной). Может ещё какая-то команда нужна?

Aleksandr N
попробуй с RecreateWnd

A_V
Точно.
Нашел ещё так (может кому понадобится) без RecreateWnd работает

Procedure TSkin_Form.RebuildShadow(_b:boolean);
const CS_DROPSHADOW = $00020000;
var old: THandle; x,y:integer;
begin
if not(IsWinXP) then exit;
old := GetWindowLong(MainForm.handle,GCL_STYLE);
if _b then begin
if not((old and CS_DROPSHADOW)=CS_DROPSHADOW) then begin
SetClassLong(MainForm.handle, GCL_STYLE, old or CS_DROPSHADOW);
MainForm.RecreateleForm;
end;
end else begin
if (old or CS_DROPSHADOW)=CS_DROPSHADOW then begin
ShowWindow(MainForm.handle, SW_HIDE);
SetClassLong(MainForm.handle, GCL_STYLE, old and not CS_DROPSHADOW);
ShowWindow(MainForm.handle, SW_NORMAL);
end;
end;
end;

akaGM

Цитата:

а Item что у тебя?
и в каком классе этот цикл работает?

Item :TComponent;
класс TForm

vetal71
чёрт его знает...
проверь всё то, что тебе советовали выше...
+
вроде твой список компонент слетает...
тебе надо на своей форме все компы пробежать?
я бы попробовал ещё так жёстко:

ТвояФорма.ComponentCount
self.ComponentCount
Item := ТвояФорма.Components[I];
Item := self.Components[I];
однофигственное...

akaGM, Frodo_Torbins
Отписываюсь как обещал.

Начал с варианта Frodo_Torbins. Раньше было так, как на скрине, а стало так, как на этом скрине. На втором скрине видно, что нарушен формат вывода (при размере шрифта 8 тоже), как выровнять х.з. PS. Выбор шрифта работает, и сохраняется.

Вариант akaGM не удалось попробовать, т.к. требуется переустановка Delphi.

Огромное спасибо за участие.

jr13ster

Цитата:

Вариант akaGM не удалось попробовать, т.к. требуется переустановка Delphi.

это как это?

вариант Frodo_Torbins с изменённым методом компилируется/собирается/запускается, а замена в коде комментария требует переустановки Дельфей?
:)


Цитата:

как выровнять х.з.

используй "Courier New"...
тем более что
Цитата:

Выбор шрифта работает, и сохраняется.

jr13ster
Все дело в типе шрифта. Установите какой-нибудь из моноширинных.

akaGM

Цитата:

ТвояФорма.ComponentCount
self.ComponentCount
Item := ТвояФорма.Components[I];
Item := self.Components[I];
однофигственное...

пробовал. я думаю, что тут где-то глюк закрался...

vetal71
ну чудес не бывает...
мы же не знаем, что и где у тебя происходит _до_

item := Components[i]
вызывает getcomponent(i), в котором если FComponents = nil, возникает ошибка списка...

ну проверь для порядка

assigned(Components)
length(Components)