Прозрачные скрытые лэйблы съедают рисунок?!

[Dennis777]

Есть форма - на ней имейдж. На нем - куча лейблов, прозрачных! Есть процедура:

procedure SetLabelsVisible(const ParentControl:TWinControl; const VisibleState:Boolean=TRUE);
var
n:Integer;
C:TControl;
begin
for n:=0 to ParentControl.ControlCount-1 do
begin
C:=ParentControl.Controls[n];
if C is TLabel then C.Visible:=VisibleState;
end;
end;

Для того, чтобы там где не нужно, лейблы скрывать. Вот только по непонятной причине, эти самые лейблы "съедают" кусок имейджа, на котором нанесен текст.
http://clip2net.com/s/56kliy
вот тут на второй строчке немного обрезана верхушка. есть картинки, где обрезается сильнее. Именно в месте, где находились лейблы. Текст является составляющей картинки, и как так получается, что часть букв обрезается, а фон остается - я понять не могу. Картинка не деформирована, если смотреть не через программу - все идеально. Как это можно вылечить?)

[Dennis777]

Хотя нет. Это не лейблы. Просто по скрытым, непонятным причинам, стали выпадать края строчек из джпеговских файлов! Посмотрел позавчерашнюю версию программы - в ней все норм. Ничего толком не менял, добавил подгружение нескольких других картинок и ни с того, ни с сего все полетело.

По идее, это связано с сеткой, которая появлется, когда несколько объектов стоит в ряд. Голубенькая такая. И она соединяет все лейблы, что стоят в ряд, их верхушки и низушки, из-за этого, и выпадают наверное части картинки.

То есть по какой-то непонятной причине, направляющие стали каким-то образом просвечиватся на форме, и хотя их не видно, но можно понять, что они там есть. Линейкой на мониторе только что мерял. Как это можно лечить?

[iworm2009]

м.б. это то что нужно

procedure SetLabelsVisible(const ParentControl:TWinControl; const VisibleState:Boolean=TRUE);
var
n:Integer;
C:TWinControl;
ALabel: TLabel;
begin
for n:=0 to ParentControl.ControlCount-1 do
begin
  C:=ParentControl.Controls[n];
  if assign(c) and (C is TLabel) then 
  begin
    ALabel := C as TLabel;
    ALabel.Visible : =VisibleState;
  end;
end;

[Dennis777]

Сообщение от iworm2009

м.б. это то что нужно

procedure SetLabelsVisible(const ParentControl:TWinControl; const VisibleState:Boolean=TRUE);
var
n:Integer;
C:TWinControl;
ALabel: TLabel;
begin
for n:=0 to ParentControl.ControlCount-1 do
begin
  C:=ParentControl.Controls[n];
  if assign(c) and (C is TLabel) then 
  begin
    ALabel := C as TLabel;
    ALabel.Visible : =VisibleState;
  end;
end;

Я сейчас сдохну!) Понимаешь в чем беда, я УДАЛИЛ ТОЛЬКО ЧТО ВСЕ эти долбанные лейблы. Но все равно, по месту где они располагались и проходила сетка - остается пустое место в тексте. Это же просто бредятина. Ничего не менял толком. И тут просто так в программе пропадают куски строк

[iworm2009]

что за сетка?

[Dennis777]

Когда размещаешь объекты на форме - по умолчанию включена привязка к сетке, чтобы на одном уровне размещались элементы. И вот по линиям этой сетки, хотя они не видны, если не наводишь элемент на один уровень с другими объектами, у меня какого-то фига стал исчезать текст. Мистика

[Dennis777]

http://clip2net.com/s/56kw42

здесь нагляднее. в 3й строке вообще исчезла серединка буквы Н

[iworm2009]

разметка на форме из desinetime вряд ли тут причем
из каких компонентов состоит то что по на картинке выше?

[Dennis777]

Это просто имейдж, на который подгружается картинка. Но при подгрузке, она почему-то стала искажаться. При чем так странно, что искажается только текст. Сверху, есть прозрачные лейблы, но они вроде тоже не при чем)

[Dennis777]

Джпег - не поврежден. Открываю ЕГО же, таким же способом, только более ранней версией программы - все идеально. Открываю здесь - искажение. Я бы переписал, все, и откатился на более раннюю версию, но там более 1000 строк кода копировать, запутаюсь где-то, вообще беде быть