Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.06.2012, 15:28   #1
HellMercenariess
Форумчанин
 
Аватар для HellMercenariess
 
Регистрация: 27.07.2009
Сообщений: 547
Восклицание метки(TLabel) мешают отображать картинку

После добавления секции с выводом меток, перестала загружаться картинка, загружается если закоментировать секцию с созданием и выводом меток.

классы TImage и TLabel'l имеют один и тот же родительский компонент,
имадж создается раньше меток.
Код:
  Imagines[ix]:=Timage.Create(self);
   Imagines[ix].Parent:=PrintItems[ix];
     Imagines[ix].Left:=180;
     Imagines[ix].Height:=64;
      Imagines[ix].Width:=64;
      Imagines[ix].Top:=3;
     Imagines[ix].Name:='ArteBitmap'+IntToStr(ix);
Код:
procedure TForm1.LoadQ(Numb:integer);
     var 
    Col,i,exa,YPos,gtop:integer; path,fname,imName:string;

 for I:=1 to 9 do
  begin
exa:=I;
while TextLabel[exa]<>nil do
inc(exa);
     TextLabel[exa]:=TLabel.Create(self);
   TextLabel[exa].Parent:=PrintItems[numb];
   TextLabel[exa].Name:='text'+IntToStr(exa);
  TextLabel[exa].AutoSize:=false;
   TextLabel[exa].Width:=90;
  TextLabel[exa].Height:=17;
  TextLabel[exa].Align:=alTop;
  TextLabel[exa].Left:=72;
  TextLabel[exa].Top:=gtop;
   TextLabel[exa].Caption:=STRR[i];
 gtop:=gtop+TextLabel[exa].Height;
  end; 


    if FileExists(imName)then
  Imagines[numb].Picture.LoadFromFile(imName);
"Виновник этого парада,он не дурак, ушел как надо!" Похороны панка.

Последний раз редактировалось HellMercenariess; 23.06.2012 в 15:31.
HellMercenariess вне форума Ответить с цитированием
Старый 23.06.2012, 21:52   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Скорее всего ваши лейбы перекрывают имеджи. Для имеджа Top=3, а для лейбы Align:=alTop, вот и лезет на самый верх. Последующее присвоение в Top ни чего не меняет
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 23.06.2012 в 22:16.
Аватар вне форума Ответить с цитированием
Старый 24.06.2012, 18:25   #3
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,882
По умолчанию

Идентация феерична.
После исправлений по совету Аватар'а советую ещё добавить инициализацию переменной gtop для первого присвоения, а то это - локальная переменная, и в первый раз в ней может лежать некий "мусор со стека"

Переменная imName же вообще нигде не задается - её тоже надо инициализировать.
phomm вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
C++. Две функции в разных файлах мешают друг другу. Крот Помощь студентам 13 21.03.2012 14:56
Обьявление метки ramzes777 Общие вопросы Delphi 11 01.10.2011 17:28
Как получить картинку при наведении на другую картинку (ссылку) seeker1 JavaScript, Ajax 8 04.07.2010 19:42
Условию if ... then мешают пробелы Droid Общие вопросы Delphi 5 12.07.2009 21:06
Метки в делфи Neymexa Помощь студентам 1 29.01.2009 16:52