Обсуждение программирования на 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" <bulychov [@] sbor.net>
Подскажите, пожалуйста, как отслеживать все Exception'ы в системе. По
возможности как перехватить.
Спасибо.
* Origin: SBOR node, Sosnovy Bor, Russia (2:5020/400)
Re: Actions (Was: D4 vs D7)
From: "sl" <sl [@] nist.fss.ru>
Wed Aug 24 2005 19:36, M. Vlasov wrote to sl:
MV> From: "M. Vlasov" <misha [@] integro.ru>
MV> On Mon, 22 Aug 2005 12:59:30 +0600, sl <sl [@] nist.fss.ru> 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" <fly13 [@] rol.ru>
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" <vech [@] mail.ru>
Здравствуйте!
Подскажите, имеется ли какая-нибудь возможность вывода текста
(SimpleText) в цвете, отличном от черного в компоненте TStatusBar? Устал я с
ним бороться... :( Установка Font.Color, а также UseSystemFont, ParentColor
и т.п. ничего не дает. Вариант с ручной отрисовкой панелей использовать не
хотелось бы.
D5, WinXP - если это важно.
С уважением,
Черноморец Евгений.
* Origin: Apex NCC Public Internet News Server (2:464/36 [@] fidonet)