Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Image ...свойства, работа с image  
:(
    Опции темы
rthsobakas
Дата 25.11.2007, 09:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Awaiting Authorisation
Сообщений: 562
Регистрация: 20.9.2007

Репутация: нет
Всего: -1



Помогите решить следующие проблемы:
1) есть процедура getcursorpos ... она аозвращает позицию курсора(на экране), можно ли при изменении размеров формы не высчитывать координаты... а работать с image-ем ... т.е. верхний угол имаги это (0 ,0) вне зависимости от положения формы?
2) как распечатать рисунок с image ?
3) в чем измеряется top left height wifth  ? можно ли перейти в ММ?
4)как поменять фон image?
5) как изменить размеры image принажатии на кнопку?(image1.width:=image1.width-10 не катит,хз почему но рисунок не меняет размеров)
6)где можно найти краткую справку по image,Сanvas и printer?(понятно что гуглить надо, но все же)
PM   Вверх
MetalFan
Дата 25.11.2007, 10:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128



6) не поверишь, но F1 спасет ;)


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
WaReZMEN
Дата 25.11.2007, 10:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3



1. Можно
2. Смотри хелп
3. В Пикселях... нет...
4.Это что имееш виду картинки чтоли?
5. image1.width:=image1.width-10  работает тока поставь своство AutoSize:=false; а      Stretch:=True;

PM MAIL ICQ   Вверх
rthsobakas
Дата 25.11.2007, 11:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Awaiting Authorisation
Сообщений: 562
Регистрация: 20.9.2007

Репутация: нет
Всего: -1



Цитата

4.Это что имееш виду картинки чтоли?

нее... короче если выводишь точку на имагу то фон её становится белым... это в канвасе наверно кавырять надо...

Цитата

1. Можно

воо... как раз... скажи че надо сделать сделать или намекни на процедуру...

Цитата

2. Смотри хелп


ммм... как текст печатать , нашел, а с имагой не могу(((
PM   Вверх
WaReZMEN
Дата 25.11.2007, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3



Цитата(rthsobakas @  25.11.2007,  19:03 Найти цитируемый пост)
нее... короче если выводишь точку на имагу то фон её становится белым... это в канвасе наверно кавырять надо...

Если ты ее рисуеш на канвасе Image то да есть там функция заливки.... А если ты точку грузиш из фаила то фон будет такои какои и в файле...

Цитата(rthsobakas @  25.11.2007,  19:03 Найти цитируемый пост)
воо... как раз... скажи че надо сделать сделать или намекни на процедуру...


Вообщем у Image есть события onMouseMove там есть параметры 
 
Код

Shift: TShiftState;  //Состояние кнопок мыши
 X,  Y: Integer  //Координаты мыши на поверхности картинки...



Цитата(rthsobakas @  25.11.2007,  19:03 Найти цитируемый пост)
мм... как текст печатать , нашел, а с имагой не могу((( 


Код


uses
     .... printers;
....

procedure TForm1.Button1Click(Sender: TObject);
Var
  SrcRect, DstRect:TRect;
begin
Printer.BeginDoc();
SrcRect.Top:=0;
SrcRect.Left:=0;
SrcRect.Right:=(Image1.Picture.Bitmap.Width); // взяли ширину
SrcRect.Bottom:=(Image1.Picture.Bitmap.Height); // и высоту картинки загруженной в Image
DstRect.Top:=0;
DstRect.Left:=0;
// Далее натянул рисунок на лист
DstRect.Right:=Printer.PageWidth;
DstRect.Bottom:=Round(SrcRect.Bottom*(DstRect.Right/SrcRect.Right));
Printer.Canvas.CopyRect(DstRect, Image1.Picture.Bitmap.Canvas, SrcRect);
Printer.EndDoc();
//В результате из печати выдет лист на котором рисунок растянут по ширине с сохранением пропорций. Подправь под свои нужды. Надеюсь поможет.
end;

PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.0452 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.