Бывалый
Профиль
Группа: Участник
Сообщений: 163
Регистрация: 27.5.2008
Где: Геническ
Репутация: нет Всего: нет
|
Это не простые часы, а такие, которые показывают в сутках 100 часов, в часе 100 минут, в минуте 100 секунд. Вот что получилось: Код | var x1,x,y1,z,i,j,k:integer; z1,i1,j1,k1:string; begin ShowWindow(Application.Handle,SW_HIDE); assignfile(f,'координаты формы.txt'); reset(f); readln(f,x1); readln(f,z); closefile(f); form1.Left:=x1; form1.Top:=z; assignfile(f,'фон.txt'); reset(f); readln(f,k1); closefile(f); label1.Color:=StringToColor(k1); assignfile(f,'цвет цифр.txt'); reset(f); readln(f,k1); closefile(f); label1.font.Color:=StringToColor(k1); assignfile(f,'секунды.txt'); reset(f); read(f,y); closefile(f); x1:=0; z:=0; repeat Application.ProcessMessages; repeat i1:=(FormatDateTime('h',Now)); j1:=(FormatDateTime('n',Now)); k1:=(FormatDateTime('s',Now)); z1:=(FormatDateTime('z',Now)); x:=strtoint(z1)+((strtoint(k1))+(strtoint(j1)*60)+(strtoint(i1)*60*60))*1000; if x1>x then x1:=0; y1:=x-x1; until y1>86; x1:=x; k:=trunc(x/86.4); if k>=10000 then begin i:= trunc(k/100/100); k:=k-(i*100*100); end else i:=0; if i<10 then i1:='0'+inttostr(i) else i1:=inttostr(i); if k>=100 then begin j:=trunc(k/100); k:=k-(j*100); end else j:=0; if j<10 then j1:='0'+inttostr(j) else j1:=inttostr(j); if k<10 then k1:='0'+inttostr(k) else k1:=inttostr(k); if y=0 then begin label1.Font.Size:=28; label1.Caption:=i1+':'+j1+':'+k1; end; if y=1 then begin label1.Font.Size:=42; label1.Caption:=i1+':'+j1; end; until z=1; end;
procedure TForm1.N2Click(Sender: TObject); begin label1.Color:=clblack; assignfile(f,'фон.txt'); rewrite(f); append(f); writeln(f,'clblack'); closefile(f); end;
procedure TForm1.N3Click(Sender: TObject); begin label1.Color:=clcream; assignfile(f,'фон.txt'); rewrite(f); append(f); writeln(f,'clcream'); closefile(f); end;
procedure TForm1.N4Click(Sender: TObject); begin label1.Color:=clwhite; assignfile(f,'фон.txt'); rewrite(f); append(f); writeln(f,'clwhite'); closefile(f); end;
procedure TForm1.N5Click(Sender: TObject); begin label1.Color:=clblue; assignfile(f,'фон.txt'); rewrite(f); append(f); writeln(f,'clblue'); closefile(f); end;
procedure TForm1.N6Click(Sender: TObject); begin label1.Color:=clgreen; assignfile(f,'фон.txt'); rewrite(f); append(f); writeln(f,'clgreen'); closefile(f); end;
procedure TForm1.N8Click(Sender: TObject); begin label1.font.Color:=clgreen; assignfile(f,'цвет цифр.txt'); rewrite(f); append(f); writeln(f,'clgreen'); closefile(f); end;
procedure TForm1.N9Click(Sender: TObject); begin label1.font.Color:=clred; assignfile(f,'цвет цифр.txt'); rewrite(f); append(f); writeln(f,'clred'); closefile(f); end;
procedure TForm1.N10Click(Sender: TObject); begin label1.font.Color:=clblack; assignfile(f,'цвет цифр.txt'); rewrite(f); append(f); writeln(f,'clblack'); closefile(f); end;
procedure TForm1.N11Click(Sender: TObject); begin label1.font.Color:=clblue; assignfile(f,'цвет цифр.txt'); rewrite(f); append(f); writeln(f,'clblue'); closefile(f); end;
procedure TForm1.N12Click(Sender: TObject); begin label1.font.Color:=clcream; assignfile(f,'цвет цифр.txt'); rewrite(f); append(f); writeln(f,'clcream'); closefile(f); end;
procedure TForm1.N13Click(Sender: TObject); begin label1.font.Color:=clwhite; assignfile(f,'цвет цифр.txt'); rewrite(f); append(f); writeln(f,'clwhite'); closefile(f); end;
procedure TForm1.N14Click(Sender: TObject); begin y:=1; assignfile(f,'секунды.txt'); rewrite(f); append(f); writeln(f,'1'); closefile(f); end;
procedure TForm1.N15Click(Sender: TObject); begin y:=0; assignfile(f,'секунды.txt'); rewrite(f); append(f); writeln(f,'0'); closefile(f); end;
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if ( Button = mbLeft ) then begin ReleaseCapture; SendMessage( form1.Handle, WM_SYSCOMMAND, $F012, 0 ); assignfile(f,'координаты формы.txt'); rewrite(f); append(f); x:=form1.Left; y:=form1.Top; writeln(f,x); writeln(f,y); closefile(f); end; end;
|
|