Текущий архив: 2010.09.19;
Скачать: CL | DM;
Вниз
Под вистой не отображается label Найти похожие ветки
← →
Великий (2010-06-21 20:54) [0]В программе есть 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-21 21:00) [1]Удалено модератором
← →
Rouse_ © (2010-06-21 22:01) [2]Вопрос где?
← →
turbouser © (2010-06-21 23:34) [3]Удалено модератором
← →
Rouse_ © (2010-06-21 23:42) [4]Удалено модератором
← →
KilkennyCat © (2010-06-22 00:21) [5]Удалено модератором
← →
Германн © (2010-06-22 01:30) [6]Удалено модератором
← →
nobody (2010-06-22 15:37) [7]Удалено модератором
← →
icWasya © (2010-06-22 15:41) [8]вместо label.Refresh везде поставь Application.ProcessMessages;
← →
KilkennyCat © (2010-06-22 19:51) [9]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
← →
KilkennyCat © (2010-06-22 19:52) [10]
> bukvi := "òàæ âàííà"
это лишнее...
← →
Великий (2010-06-23 21:54) [11]не помогло(( к сожалению..
Страницы: 1 вся ветка
Текущий архив: 2010.09.19;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.014 c
