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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Image и разрешение экрана, Организовать одинаковый вид 
V
    Опции темы
RTV
Дата 25.4.2006, 09:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 53
Регистрация: 11.4.2006
Где: Днепропетровск

Репутация: нет
Всего: нет
Доброго здоровья всем! Есть такой вопрос, на имейдже рисую простую табличку, но при разных разрешениях табличка выглядит по разному. Как организовать одинаковый вид при разных разрешениях. 
PM MAIL   Вверх
Snowy
Дата 25.4.2006, 09:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
У формы выставить Scaled в false. 
PM MAIL   Вверх
Alexeis
Дата 25.4.2006, 09:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Snowy, а на что это влияет smile  


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Snowy
Дата 25.4.2006, 10:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Image перестанет масштабироваться под разные dpi и будет всегда одного размера. 
PM MAIL   Вверх
RTV
Дата 25.4.2006, 10:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 53
Регистрация: 11.4.2006
Где: Днепропетровск

Репутация: нет
Всего: нет
Стоит Scaled в False,  но вот прикол вчера принес прогу домой, а там ужас. smile  
PM MAIL   Вверх
Alexeis
Дата 25.4.2006, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата(RTV @  25.4.2006,  08:36 Найти цитируемый пост)
табличка выглядит по разному

В чем это выражается smile  


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
RTV
Дата 25.4.2006, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 53
Регистрация: 11.4.2006
Где: Днепропетровск

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

procedure TForm1.FormCreate(Sender: TObject);
Var
S,Parametr : String;
H,H1,i : Integer;
begin
  parametr:=ParamStr(1);
    if LowerCase(parametr) = 's' then
  MainMenu1.Items.Items[5].Visible:=True; //*****ЗАпуск с параметрами****
  DateTimePicker1.Date:=Now();
  DateTimePicker2.Date:=Now();
  H:=0;H1:=0;
  Image1.Canvas.Pen.Width:=1;
  Image1.Canvas.rectangle((Image1.Width-Image1.Width)+5,(Image1.Height-Image1.Height)+5,Image1.Width-5,Image1.Height-5);
  Image1.Canvas.Font.Size:= 9;
  Image1.Canvas.Font.Style :=[fsBold];
  Image1.Canvas.MoveTo(0,1020);
//  Image1.Canvas.Pen.Color:=8684032;
  Image1.Canvas.Pen.Width:=1;
  Image1.Canvas.Pen.Color:=65536;
  With Image1.Canvas do
    begin
      S:='ООО ПКП Стеклопласт (062) 387-10-15, 387-10-14';
      TextOut((ClientWidth-TextWidth(s))div 2,30,s);
      Font.Size:=8;
      Font.Style:=[fsUnderline];
      Image1.Canvas.Pen.Width:=1;
      H:=H+78;
      MoveTo(20,H);
      LineTo(Width-20,H);
      H1:=H1+66;
      TextOut(30,H1,'Дата заказа');

      H:=H+(Font.Size*2)-2;
      MoveTo(20,H);
      LineTo(Width-20,H);
      H1:=H1+(Font.Size*2)-2;
      TextOut(30,H1,'Заказчик');

      H:=H+(Font.Size*2)-2;
      MoveTo(20,H);
      LineTo(Width-20,H);
      H1:=H1+(Font.Size*2)-2;
      TextOut(30,H1,'Адрес');

      H:=H+(Font.Size*2)-2;
      MoveTo(20,H);
      LineTo(Width-100,H);
      H1:=H1+(Font.Size*2)-2;
      TextOut(30,H1,'Телефон');

      H:=H+(Font.Size*2)-2;
      MoveTo(20,H);
      LineTo(Width-100,H);
      H1:=H1+(Font.Size*2)-2;
      TextOut(30,H1,'Дата монтажа (вывоза)');

      H:=H+(Font.Size*2)-2;
      MoveTo(20,H);
      LineTo(Width-100,H);
      H1:=H1+(Font.Size*2)-2;
      TextOut(30,H1,'Цвет конструкции');

      H:=H+(Font.Size*2)-1;
      MoveTo(20,H);
      LineTo(Width-100,H);
      Font.Style:=[fsBold];
      H1:=H1+(Font.Size*2)-2;
      TextOut(30,H1,'Стоимость заказа (у.е.)');

      H:=H+(Font.Size*2)-2;
      MoveTo(20,H);
      LineTo(Width-100,H);
      Font.Style:=[fsUnderline];
      H1:=H1+(Font.Size*2)-1;
      TextOut(30,H1,'Курс');

      H:=H+(Font.Size*2)-1;
      MoveTo(20,H);
      LineTo(Width-100,H);
      Font.Style:=[fsBold];
      H1:=H1+(Font.Size*2)-2;
      TextOut(30,H1,'Сумма к уплате (грн.)');

      H:=H+(Font.Size*2)-2;
      MoveTo(20,H);
      LineTo(Width-100,H);
      Font.Style:=[fsUnderline];
      H1:=H1+(Font.Size*2)-1;
      TextOut(30,H1,'Предоплата (грн.)');

      Rectangle(20,215,320,230);
      TextOut(160,217,'Роллет');
      Rectangle(319,215,383,230);
      TextOut(330,217,'Профиль');
      Rectangle(382,215,445,230);
      TextOut(390,217,'Ширина');
      Rectangle(444,215,507,230);
      TextOut(455,217,'Высота');
      Rectangle(506,215,607,230);
      TextOut(526,217,'Управление');
      Rectangle(606,215,670,230);
      TextOut(616,217,'Площадь');
      Rectangle(669,215,765,230);
      TextOut(685,217,'Общая ст-сть');
      TextOut(180,66,DateToStr(DateTimePicker2.Date));

      i:=Image1.Height-10;
      repeat
      i:=i-14;
      MoveTo(Width-Width+20,i);
      LineTo(Width-100,i);
      until i=1036;
      MoveTo(20,1036);
      LineTo(20,1107);
      MoveTo(765,1036);
      LineTo(765,1107);
      MoveTo(500,1036);
      LineTo(500,1107);
      TextOut(400-Length('Итого за роллеты'),1038,'Итого за роллеты');
      TextOut(400-Length('Общая площадь'),1052,'Общая площадь');
      TextOut(400-Length('Скидка'),1066,'Скидка');
      TextOut(400-Length('Итого сумма к уплате'),1080,'Монтаж');
      TextOut(400-Length('Итого сумма к уплате'),1094,'Итого сумма к уплате');
    end;
end;


 
PM MAIL   Вверх
Alexeis
Дата 25.4.2006, 12:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
RTV, у меня зацикливается строчка until i=1036; i, изначально меньше 1036, высота image при моем 800х600 ни как не может быть 1036, поскольку форма меньше 600, а форма всегда меньше высоты экрана.

Добавлено @ 12:39 
должно быть until i<=1036;

Добавлено @ 12:47 
Вы неповерите! у меня ваш очет хорошо выглядит даже при разрешении 320х240 - появились скроллбары но все рисуется как надо и выглядит хорошо (сделал  until i<=1036; и  Scaled = true)  


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
RTV
Дата 25.4.2006, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 53
Регистрация: 11.4.2006
Где: Днепропетровск

Репутация: нет
Всего: нет
Все разобрался в коде надо написать
Код

  LineTo(Image1.Width-20,H);

всем спасибо  smile . 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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