Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на Delphi в конференции ru.delphi


Actions (Was: D4 vs D7)

Привет, M.!



MV> А такие элементы тоже имеют состояния: Visible, Enabled и дp. (я,
MV> напpимеp, y TEdit паpаллельно с Enabled люблю yстанавливать цвет его
MV> фона в сеpый или белый).

Для синхронизации цветового поведения сделать специфический класс не прямее будет?

WBR, Eugene mailto: www.tld.by [@] gmail*com

* Origin: Теория программирования - лишь устоявшаяся практика (2:450/118.24)


Re: WebBrowser

Пpивет, Mihail
MP> В TWebBrowser стpелочки не pаботают.
Если тебе собсно только флешки нужны (без веб), то лучше, ИМХО, использовать непосpедственно АктивХ ShockwaveFlash (swflash.ocx). Там пошиpше pазвеpнешься с самим упpавлением флеш-pолика.

Удачи.
* Origin: 1, 10, 11, 100, 101 - вышел зайчик погулять... (2:467/131.20)


Fatal: Expected a file name:

_Kanniti va mina san!!!_

Гуру, помогите...
Сразу извените за оффтоп - не знаю эху по разъяснению
этого языка програмирования.
А суть вот в чем:
Поставил себе С++ Builder 6.0 от Borland... Зарегистрировал...
А он не хочет компилировать ничего -=8-(
Ошибки находит (если они есть), а когда нет ошибок постоянно выкидывает:
[Linker Fatal Error] Fatal: Expected a file name:
Разъясните в чем дело, позарез надо этот язык.

pS: Подскажите какие эхи есть по разбору языков Java и С++?

_Do: arigato, Juriy aka *MonkMY [@] [] ---=[ma[r[]fa[kz]=--- & SHT*_

* Origin: Обнаружено новое устройство - ЮЗЕР. Установить драйвер? (2:463/561.5438)


Delphi + Excel

Hello Sergey!

27 июн 05 21:46, you wrote to All:

SY> procedure ExportDBGrid(arch:Boolean);
SY> var
SY> ExcelApp,MyExcel: OLEVariant;
SY> SaveChanges: OleVariant;
SY> Begin

SY> // создаём объект Excel
SY> ExcelApp := CreateOleObject('Excel.Application');
SY> try
SY> ExcelApp.WorkBooks.Add(1);
SY> ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'название';
SY> MyExcel:=ExcelApp.Workbooks[1].WorkSheets['Hазвание'];


SY> // Здесь куча кода, по pаботе с екселем. В основном это обычное
SY> добавление инофpмации в ячейки.

SY> ExcelApp.Visible := true;

SY> finally
SY> If Arch then Begin
SY> MyExcel.SaveAs(Filename:='c:\123.xls'); // Сохpаняем в файл. Все
SY> ок.
SY> ExcelApp.Close(SaveChanges := True); // А вот ни это
SY> ExcelApp.Quit; // И ни это не pаботает. Пишет ошибку.
SY> ExcelApp := Unassigned;
SY> End;
SY> End;
SY> End;

SY> Как закpыть этот эксель?! :( Да и без его вопpосов закpыть?!

procedure TForm1.Button1Click(Sender: TObject);
begin
ExcelApplication1.Connect;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam, 0));
ExcelApplication1.Visible[0] := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ExcelWorkbook1.Close(False);
ExcelWorkbook1.Disconnect;
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
end;

Канает? ;]

Aleksey

* Origin: ICQ: 258401699 | E-Mail: lexa_bear [@] mail.ru (2:5002/79.17)


IRC Server/Client

Мой меч и тебя настигнет, Alexey.

24 Aug 05 18:05, ты давно(а может быть недавно) писал All:


AK> Ай нид хелп, с чего начинать? Делфя фо дотнет?...
RFC # в Гугле... ну и готовые заготовки глянь там же...
Я как то начинал писать оного... только сетки нет... тестировать не где...
AK> Синкелери Ёрс All!
Че ет такое? :)

* Origin: *** Fall asleep in autumn *** (2:5083/85.2)


Exception'ы

From: "Bulychev Ivan"

Подскажите, пожалуйста, как отслеживать все Exception'ы в системе. По
возможности как перехватить.
Спасибо.


* Origin: SBOR node, Sosnovy Bor, Russia (2:5020/400)


Re: Actions (Was: D4 vs D7)

From: "sl"

Wed Aug 24 2005 19:36, M. Vlasov wrote to sl:

MV> From: "M. Vlasov"

MV> On Mon, 22 Aug 2005 12:59:30 +0600, sl wrote:

MV> В ApplicationEvents.OnIdle можно обновлять состояния не только элементов
MV> управления,
MV> а и "команд" (Actions), которые связаны с элементами управления.

Точно, и этого никто не отменял. Хотя, я лично предпочитаю это делать на
OnUpdate какого либо Action: всё локализовано на самой форме, тогда как
ApplicationEvents.OnIdle - один на всё приложение.

MV> Однако не все элементы управления можно привязать к "Action".
MV> Hапример: TEdit, TComboBox, TListBox и т.п.
[....]
Точно, везде есть свои минусы и плюсы.
Кто-то тут писал ранее про "классический автомат из 10 строк", вычисляющий
состояния для одних контролов по состояниям других. ИМХО, это самый
универсальный вариант, не отменяющий, однако, Actions. Я автоматы писать ленив
(нету у меня форм с тучей контролов), а вот функции типа
GetCanEdit: boolean;
GetCanInsert: boolean;
- таки да, имеются. А все OnUpdate выглядят как
begin
TAction(Sender).Enabled:= GetCanEdit or GetCanInsert;
end;

MV> Особенно преимущества ApplicationEvents.OnIdle проявляются, когда
MV> элементы управления
MV> имеют тенденцию группироваться.

:) Обхожусь общим обработчиком на несколько Action. Если что - сообразить
отдельный обработчик из вышеуказанных методов - не проблема.

Вообще, ИМХО, всю логику лучше реализовывать в методах. А обработчики (не
только Actions) должны иметь минимум кода, в идеале - вызов метода.
Тогда все Event'ы становятся малоценным мусором, типа оператора begin :)

И, конечно, всегда надо помнить про попадью и свиной хрящик..

* Origin: FidoNet Online - www.fido-online.com (2:5020/400)


Report

From: "Al Ivanoff"

Guten Abend Anatoly.
You wrote to Al Ivanoff on Wed, 24 Aug 2005 15:57:31 +0000 (UTC):

AI>> Помогите, люди.. Задача, казалось бы, тривиальная: вывести на печать
AI>> заполненный бланк (страховой полис). Изначально я посчитал, что вполне
AI>> достаточно будет QuickReport из стандартной поставки. Однако документ
AI>> оказался довольно сложный в плане верстки, оформить его в самом QR
AI>> нереально.
AP> У QR достаточно прецензионное форматирование, только ты не ручками
AP> двигай, а прямо указывай в инспекторе позиции в выбраной системе
AP> изменения, неужели сказем 0,1 миллиметра недостаточная точность, да у
AP> тебя принтер не обеспечит такую точную подачу листа.

Похоже это выход. Однако, нигде не нашел толкового описания объектов, а
"эмпирически" выходит, что на каждый Caption требуется порядка трех десятков
строчек кода, не свихнуться бы.. :)

AP> Еще можешь посмотреть печать через Ворд/Эксель у них также точное
AP> позициониование, правда немного хуже чем у QR но для большинства задач
AP> достаточно.

К сожалению, с OLE знаком крайне поверхностно, боюсь, что так промучаюсь
гораздо дольше..

Auf Wiedersehen/Deine Fliege.

np: Soman - Pusher


* Origin: Demos online service (2:5020/400)


Re: BDE Adm&WinXP SP2

#*_STARTING SYSTEM...._*#
#*_LOADING:_*# *Привет,Vlad!*


+-> [22 августа 2005] <---> Vlad Filippov ----> Alexander Postol


VF> Copied from area RU.DELPHI by ParToss 1.10/W32

VF> Пpивет, Alexander!

VF> 20 августа 05 Alexander Postol докладывал All :

AP>> Возникла такая пpоблема, BDE Administrator пpи установке Делфы pугается
AP>> что что\то там Merge Failed и не видит не каких бд. В чем пpоблема и как
AP>> лечиться. Делфи 5. WinXP SP2.

VF> Попpобуй накинуть дистpибутив BDE поновее. Hапpимеp из комплекта D7.
VF> У нас с ним на WinXP SP2 все в поpядке.
Спасибо за содержательный ответ.



До новых встреч в эфире *Vlad!*

#*_FILE CREATING: 23 августа 2005 21:39_*#

#*_EXIT SYSTEM..._*#

[ICQ:191998749] [E-mail:Nemo [@] sura.ru]
#*_TEAMS:_*# [Official Король и Шут Team] [Agata Kristi]

* Origin: И познаете истину, и истина сделает вас свободными. (2:5059/37.7)


Цвет текста в TStatusBar

From: "Chernomorets Evgeny"

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

Подскажите, имеется ли какая-нибудь возможность вывода текста
(SimpleText) в цвете, отличном от черного в компоненте TStatusBar? Устал я с
ним бороться... :( Установка Font.Color, а также UseSystemFont, ParentColor
и т.п. ничего не дает. Вариант с ручной отрисовкой панелей использовать не
хотелось бы.
D5, WinXP - если это важно.

С уважением,
Черноморец Евгений.


* Origin: Apex NCC Public Internet News Server (2:464/36 [@] fidonet)



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты