| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Под вистой не отображается label

Великий ©   (2010-06-21 20:54:00) 

В программе есть Label (если это важно то он стоит поверх Image).имеется следующий код:
If combobox1.text='Íàáîð âàííû' then
begin
 label1.Visible:=true;
 label2.Caption:='';
 label1.Color:=clwhite;
 label1.Refresh;
 label1.Font.Color:=clBlack;
 label1.Refresh;

 Image1.Picture.LoadFromFile('C:\bakalavr\1etag_vanna.jpg');
 Image1.Refresh;
 sleep(3000);
 sndPlaySound('C:\bakalavr\sound\clickerx.wav',1);
 Label2.Caption:= Label2.Caption + '1';
 label2.Refresh;
 sleep(500);

 sndPlaySound('C:\bakalavr\sound\clickerx.wav',1);
 Label2.Caption:= Label2.Caption + 'ý';
 label2.Refresh;
 sleep(500);

 sndPlaySound('C:\bakalavr\sound\clickerx.wav',1);
 Label2.Caption:= Label2.Caption + 'ò';
 label2.Refresh;
 sleep(500);

 sndPlaySound('C:\bakalavr\sound\clickerx.wav',1);
 Label2.Caption:= Label2.Caption + 'à';
 label2.Refresh;
 sleep(500);

 sndPlaySound('C:\bakalavr\sound\clickerx.wav',1);
 Label2.Caption:= Label2.Caption + 'æ';
 label2.Refresh;
 sleep(500);

 sndPlaySound('C:\bakalavr\sound\clickerx.wav',1);
 Label2.Caption:= Label2.Caption + ' ';
 label2.Refresh;
 sleep(500);

 sndPlaySound('C:\bakalavr\sound\clickerx.wav',1);
 Label2.Caption:= Label2.Caption + 'â';
 label2.Refresh;
 sleep(500);

 sndPlaySound('C:\bakalavr\sound\clickerx.wav',1);
 Label2.Caption:= Label2.Caption + 'à';
 label2.Refresh;
 sleep(500);

 sndPlaySound('C:\bakalavr\sound\clickerx.wav',1);
 Label2.Caption:= Label2.Caption + 'í';
 label2.Refresh;
 sleep(500);

 sndPlaySound('C:\bakalavr\sound\clickerx.wav',1);
 Label2.Caption:= Label2.Caption + 'í';
 label2.Refresh;
 sleep(500);

 sndPlaySound('C:\bakalavr\sound\clickerx.wav',1);
 Label2.Caption:= Label2.Caption + 'à';
 label2.Refresh;
 delay(2000);
 end;
В ХР всё норм

---

Великий   (2010-06-23 21:54:00) [1]

не помогло(( к сожалению..

---

KilkennyCat   (2010-06-22 19:52:00) [2]

>  bukvi := 'òàæ âàííà'  

это лишнее...

---

KilkennyCat   (2010-06-22 19:51:00) [3]

Procedure PlaySnd(var s : string);
begin
 sndPlaySound('C:\bakalavr\sound\clickerx.wav',1);
 Label2.Caption:= Label2.Caption + s;
 Application.ProcessMessages;
 sleep(500);
end;
----------------------------------------
var
 i : integer;
 filename : string;
begin
 If combobox1.text='Íàáîð âàííû' then begin
   label1.Visible:=true;
   label2.Caption:='';
   label1.Color:=clwhite;
   label1.Font.Color:=clBlack;
   application.process.message;

   filename := '1etag_vanna.jpg';
   Image1.Picture.LoadFromFile('C:\bakalavr\' + filename);
   Image1.Refresh;
   sleep(3000);

   bukvi := 'òàæ âàííà'  
   for i := 1 to length(filename) - 4 do PlaySnd(bukvi[i]);

   delay(2000);
 end;
end;

хотя бы уж так... хотя разрешение лучше отрубать более грамотно, не всегда оно .3

---

icWasya   (2010-06-22 15:41:00) [4]

вместо label.Refresh везде поставь Application.ProcessMessages;

---

nobody   (2010-06-22 15:37:00) [5]

Удалено модератором

---

Германн   (2010-06-22 01:30:00) [6]

Удалено модератором

---

KilkennyCat   (2010-06-22 00:21:00) [7]

Удалено модератором

---

Rouse_   (2010-06-21 23:42:00) [8]

Удалено модератором

---

turbouser   (2010-06-21 23:34:00) [9]

Удалено модератором

---

Rouse_   (2010-06-21 22:01:00) [10]

Вопрос где?

---

Харакири   (2010-06-21 21:00:00) [11]

Удалено модератором

---

Наверх