Новые книги
 Книга «Как навести порядок в своем бизнесе» – это система практических инструментов, которые позволят вам наладить бизнес. Так, чтобы он:• приносил хорошую прибыль; • стал более конкурентоспособным и устойчивым к кризисам; • стабильно работал и развивался; • практически не зависел от человеческого фактора сотрудников; • требовал от владельца минимального контроля. Конкретные техники и рекомендации: • 130 практических заданий, выполнив которые, вы сможете усовершенствовать свой бизнес. • 123 примера и комментария от владельцев и руководителей компаний; • 418 примеров из практики автора; Книга – для собственников и топ-менеджеров: от крупных холдингов до средних и малых компаний. С 2010 года она стала настольной во многих организациях. Также книга будет полезна бизнес-консультантам и тренерам. Михаил Рыбаков ( ) – бизнес-консультант, модератор стратегических сессий. Основатель команды «Михаил Рыбаков и Партнеры». В бизнесе с 1997 года. Автор двух деловых бестселлеров, фильма «От карьеры к свободе», сотен публикаций, организатор ежегодных бизнес-мероприятий в России и за рубежом. Два образования – системный аналитик (экономика, ИТ) и психолог. Помогает владельцам и управленческим командам частных рыночных компаний русскоязычного пространства. 9-е издание. empty-line 7 empty-line 12 empty-line 15 http://www.mrybakov.ru nofollow www.mrybakov.ru |
 Добро пожаловать в форум...Тема: "Мир Interbase.." или "FireBird.." Что выбрать Здравствуйте, Господа! Начинаю потихоньку знакомиться с InterBase и решил приобрести книжку (поскольку с монитора читать довольно тяжело). Почитав отзывы, понял, что выбирать придется между «Мир InterBase» (Ковязин, Востриков) и «FireBird. Руководство разработчика баз данных) (Х.Борри). К сожалению, денег на обе не хватит. В связи с этим вопросы: ·Какая из этих книг доступнее для новичка, только начинающего изучать СУБД и проектирование БД ·В какой степени эти книги, так сказать, взаимозаменяемы. Т.е. насколько знания, полученные из книги про InterBase(например) применимы для работы с FireBird и наоборот. Заранее всем спасибо за ответы. С уважением, Londinium --------- Гаджимурадов Рустам 1. Если ты совсем новичек, то бери первую - в ней доступнее. 2. Если ты новичек только в ИБ, то лучше вторую. 3. Вторую книжку желательно иметь под рукой по-любому - независимо от того, есть ли первая. 4. Важно - во второй нет нихрена (кажется) про библиотеки доступа (IBX, FIBPlus). 5. Знания про InterBase, полученные из первой книги, применимы к FireBird практически в полном объеме. ... |
Вопрос и Ответ 12
Вопросы и Ответы
12. Как одной процедурой осуществить вывод и в окно и на принтер?
Для этого необходимо учитывать размер используемого контекста отображения и конечно же, сам контекст в который производится вывод. Вот параметры которые необходимы процедуре для вывода:
| Вывод | Контекст |
Ширина |
Высота |
в окно |
Printers.Canvas |
ClientWidth | ClientHeight |
на принтер |
Canvas |
PageWidth | PageHeight |
............
{вывод
рисунка в контекст Cv} k := W DIV 40; {вычисление коэффициента - от ширины
листа} Font.Name
:= 'Times New Roman Cyr'; END;
END; ............ {вывод
информации в окно} Draw(Canvas,
ClientWidth, ClientHeight); end; ............ {вывод
информации на принтер} WITH
Printer DO BEGIN BeginDoc;
END;
end; ............ Для работы с принтером не
забудте добавить модуль Printers в строку Uses....
PROCEDURE TForm1.Draw(Cv: TCanvas; W, H : Integer);
VAR k: Integer;
BEGIN
WITH Cv DO BEGIN {рисование
в предоставленном контексте}
Font.Size := k*6;
Font.Color := clOlive;
TextOut(k*10, k*6, 'Delphi');
Font.Size := k*4;
Font.Color := clBlue;
TextOut(k*11, k*15, 'для всех');
Pen.Color := clRed;
Pen.Width := k div 2;
MoveTo(k*15, k*22);
LineTo(k*34, k*21);
procedure TForm1.FormPaint(Sender: TObject);
begin
procedure TForm1.mPrintClick(Sender: TObject);
begin
Draw(Printer.Canvas, PageWidth, PageHeight);
EndDoc;
...предыдущая страница следующая...
оглавление