Отправляет email-рассылки с помощью сервиса Sendsay

KLSoft company - программирование в Delphi и PHP

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Веб-разработка: пособие начинающим" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

  Июль 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
21.07.2004
16:56:03
18:55:19
22
23
24
25
26
27
28
29
30
31
Автор
ADMIN

Статистика

989 подписчиков
0 за неделю
←   Все выпуски   →

X-Program ПО, новости сайта и программирование в Delphi7


Информационный Канал Subscribe.Ru
Выпуск 3
Сегодня в выпуске:
Как таскать форму не за рамку в Delphi?
Регистрация расширений файлов в Delphi
HTML. Создание летучих часов на Java
Юмор

Как таскать форму не за рамку в Delphi?
Данная проблемма часто возникает, когда нужно таскать форму без рамки (WinAMP), но решить её очень просто!
К примеру нужно таскать форму за Label1 находящийся на Form1.

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, SC_DragMove, 0);
end;

Так же и с другими объектами на Form1. Просто обрабатываем событие MousDown.
***
Регистрация расширений файлов в Delphi
procedure RegisterFileType( ft, key, desc, icon, prg : string );
var
myreg : TRegIniFile;
ct : Integer;
begin
ct := pos('.',ft);
while ct > 0 do begin
System.Delete(ft,ct,1);
ct := pos('.',ft);
end;
if (ft = '') or (prg = '') then exit;
ft := '.'+ft;
myreg := TRegIniFile.Create('');
try
myreg.rootkey := hkey_classes_root;
if key = '' then key := copy(ft,2,maxint)+'_auto_file';
myreg.writestring(ft,'',key);
myreg.writestring(key,'',desc);
if icon <> '' then
myreg.writestring(key+'\DefaultIcon','',icon);
myreg.writestring(key+'\shell\open\command','',prg+' "%1"');
finally
myreg.Free;
end;
end;

Не знаю какой параметр за что отвечает. :-(
***
HTML. Создание летучих часов на Java
≪SCRIPT≫
≪!--
document.write(unescape("%20%3CSCRIPT%20language%3DJavaScript%3E%0D%0AdCol%3D%27%23FF0000%27%3B//date%20colour.%0D%0AfCol%3D%22%230066FF%22%3B//face%20colour.%0D%0AsCol%3D%27%2300FF00%27%3B//seconds%20colour.%0D%0AmCol%3D%27%23FF0000%27%3B//minutes%20colour.%0D%0AhCol%3D%27%23FF0000%27%3B//hours%20colour.%0D%0AClockHeight%3D40%3B%0D%0AClockWidth%3D40%3B%0D%0AClockFromMouseY%3D0%3B%0D%0AClockFromMouseX%3D100%3B%0D%0A%0D%0A//Alter%20nothing%20below%21%20Alignments%20will%20be%20lost%21%0D%0A%0D%0Ad%3Dnew%20Array%28%22SUNDAY%22%2C%22MONDAY%22%2C%22TUESDAY%22%2C%22WEDNESDAY%22%2C%22THURSDAY%22%2C%22FRIDAY%22%2C%22SATURDAY%22%29%3B%0D%0Am%3Dnew%20Array%28%22JANUARY%22%2C%22FEBRUARY%22%2C%22MARCH%22%2C%22APRIL%22%2C%22MAY%22%2C%22JUNE%22%2C%22JULY%22%2C%22AUGUST%22%2C%22SEPTEMBER%22%2C%22OCTOBER%22%2C%22NOVEMBER%22%2C%22DECEMBER%22%29%3B%0D%0Adate%3Dnew%20Date%28%29%3B%0D%0Aday%3Ddate.getDate%28%29%3B%0D%0Ayear%3Ddate.getYear%28%29%3B%0D%0Aif%20%28year%20%3C%202000%29%20year%3Dyear+1900%3B%0D%0ATodaysDate%3D%22%20%22+d%5Bdate.getDay%28%29%5D+%22%20%22+day+%22%20%22+m%5Bdate.getMonth%28%29%5D+%22%20%22+year%3B%0D%0AD%3DTodaysDate.split%28%27%27%29%3B%0D%0AH%3D%27...%27%3B%0D%0AH%3DH.split%28%27%27%29%3B%0D%0AM%3D%27....%27%3B%0D%0AM%3DM.split%28%27%27%29%3B%0D%0AS%3D%27.....%27%3B%0D%0AS%3DS.split%28%27%27%29%3B%0D%0AFace%3D%271%202%203%204%205%206%207%208%209%2010%2011%2012%27%3B%0D%0Afont%3D%27Arial%27%3B%0D%0Asize%3D1%3B%0D%0Aspeed%3D0.6%3B%0D%0Ans%3D%28document.layers%29%3B%0D%0Aie%3D%28document.all%29%3B%0D%0AFace%3DFace.split%28%27%20%27%29%3B%0D%0An%3DFace.length%3B%0D%0Aa%3Dsize*10%3B%0D%0Aymouse%3D0%3B%0D%0Axmouse%3D0%3B%0D%0Ascrll%3D0%3B%0D%0Aprops%3D%22%3Cfont%20face%3D%22+font+%22%20size%3D%22+size+%22%20color%3D%22+fCol+%22%3E%3CB%3E%22%3B%0D%0Aprops2%3D%22%3Cfont%20face%3D%22+font+%22%20size%3D%22+size+%22%20color%3D%22+dCol+%22%3E%3CB%3E%22%3B%0D%0ASplit%3D360/n%3B%0D%0ADsplit%3D360/D.length%3B%0D%0AHandHeight%3DClockHeight/4.5%0D%0AHandWidth%3DClockWidth/4.5%0D%0AHandY%3D-7%3B%0D%0AHandX%3D-2.5%3B%0D%0Ascrll%3D0%3B%0D%0Astep%3D0.06%3B%0D%0AcurrStep%3D0%3B%0D%0Ay%3Dnew%20Array%28%29%3Bx%3Dnew%20Array%28%29%3BY%3Dnew%20Array%28%29%3BX%3Dnew%20Array%28%29%3B%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20n%3B%20i++%29%7By%5Bi%5D%3D0%3Bx%5Bi%5D%3D0%3BY%5Bi%5D%3D0%3BX%5Bi%5D%3D0%7D%0D%0ADy%3Dnew%20Array%28%29%3BDx%3Dnew%20Array%28%29%3BDY%3Dnew%20Array%28%29%3BDX%3Dnew%20Array%28%29%3B%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20D.length%3B%20i++%29%7BDy%5Bi%5D%3D0%3BDx%5Bi%5D%3D0%3BDY%5Bi%5D%3D0%3BDX%5Bi%5D%3D0%7D%0D%0Aif%20%28ns%29%7B%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20D.length%3B%20i++%29%0D%0Adocument.write%28%27%3Clayer%20name%3D%22nsDate%27+i+%27%22%20top%3D0%20left%3D0%20height%3D%27+a+%27%20width%3D%27+a+%27%3E%3Ccenter%3E%27+props2+D%5Bi%5D+%27%3C/font%3E%3C/center%3E%3C/layer%3E%27%29%3B%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20n%3B%20i++%29%0D%0Adocument.write%28%27%3Clayer%20name%3D%22nsFace%27+i+%27%22%20top%3D0%20left%3D0%20height%3D%27+a+%27%20width%3D%27+a+%27%3E%3Ccenter%3E%27+props+Face%5Bi%5D+%27%3C/font%3E%3C/center%3E%3C/layer%3E%27%29%3B%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20S.length%3B%20i++%29%0D%0Adocument.write%28%27%3Clayer%20name%3DnsSeconds%27+i+%27%20top%3D0%20left%3D0%20width%3D15%20height%3D15%3E%3Cfont%20face%3DArial%20size%3D3%20color%3D%27+sCol+%27%3E%3Ccenter%3E%3Cb%3E%27+S%5Bi%5D+%27%3C/b%3E%3C/center%3E%3C/font%3E%3C/layer%3E%27%29%3B%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20M.length%3B%20i++%29%0D%0Adocument.write%28%27%3Clayer%20name%3DnsMinutes%27+i+%27%20top%3D0%20left%3D0%20width%3D15%20height%3D15%3E%3Cfont%20face%3DArial%20size%3D3%20color%3D%27+mCol+%27%3E%3Ccenter%3E%3Cb%3E%27+M%5Bi%5D+%27%3C/b%3E%3C/center%3E%3C/font%3E%3C/layer%3E%27%29%3B%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20H.length%3B%20i++%29%0D%0Adocument.write%28%27%3Clayer%20name%3DnsHours%27+i+%27%20top%3D0%20left%3D0%20width%3D15%20height%3D15%3E%3Cfont%20face%3DArial%20size%3D3%20color%3D%27+hCol+%27%3E%3Ccenter%3E%3Cb%3E%27+H%5Bi%5D+%27%3C/b%3E%3C/center%3E%3C/font%3E%3C/layer%3E%27%29%3B%0D%0A%7D%0D%0Aif%20%28ie%29%7B%0D%0Adocument.write%28%27%3Cdiv%20id%3D%22Od%22%20style%3D%22position%3Aabsolute%3Btop%3A0px%3Bleft%3A0px%22%3E%3Cdiv%20style%3D%22position%3Arelative%22%3E%27%29%3B%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20D.length%3B%20i++%29%0D%0Adocument.write%28%27%3Cdiv%20id%3D%22ieDate%22%20style%3D%22position%3Aabsolute%3Btop%3A0px%3Bleft%3A0%3Bheight%3A%27+a+%27%3Bwidth%3A%27+a+%27%3Btext-align%3Acenter%22%3E%27+props2+D%5Bi%5D+%27%3C/B%3E%3C/font%3E%3C/div%3E%27%29%3B%0D%0Adocument.write%28%27%3C/div%3E%3C/div%3E%27%29%3B%0D%0Adocument.write%28%27%3Cdiv%20id%3D%22Of%22%20style%3D%22position%3Aabsolute%3Btop%3A0px%3Bleft%3A0px%22%3E%3Cdiv%20style%3D%22position%3Arelative%22%3E%27%29%3B%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20n%3B%20i++%29%0D%0Adocument.write%28%27%3Cdiv%20id%3D%22ieFace%22%20style%3D%22position%3Aabsolute%3Btop%3A0px%3Bleft%3A0%3Bheight%3A%27+a+%27%3Bwidth%3A%27+a+%27%3Btext-align%3Acenter%22%3E%27+props+Face%5Bi%5D+%27%3C/B%3E%3C/font%3E%3C/div%3E%27%29%3B%0D%0Adocument.write%28%27%3C/div%3E%3C/div%3E%27%29%3B%0D%0Adocument.write%28%27%3Cdiv%20id%3D%22Oh%22%20style%3D%22position%3Aabsolute%3Btop%3A0px%3Bleft%3A0px%22%3E%3Cdiv%20style%3D%22position%3Arelative%22%3E%27%29%3B%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20H.length%3B%20i++%29%0D%0Adocument.write%28%27%3Cdiv%20id%3D%22ieHours%22%20style%3D%22position%3Aabsolute%3Bwidth%3A16px%3Bheight%3A16px%3Bfont-family%3AArial%3Bfont-size%3A16px%3Bcolor%3A%27+hCol+%27%3Btext-align%3Acenter%3Bfont-weight%3Abold%22%3E%27+H%5Bi%5D+%27%3C/div%3E%27%29%3B%0D%0Adocument.write%28%27%3C/div%3E%3C/div%3E%27%29%3B%0D%0Adocument.write%28%27%3Cdiv%20id%3D%22Om%22%20style%3D%22position%3Aabsolute%3Btop%3A0px%3Bleft%3A0px%22%3E%3Cdiv%20style%3D%22position%3Arelative%22%3E%27%29%3B%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20M.length%3B%20i++%29%0D%0Adocument.write%28%27%3Cdiv%20id%3D%22ieMinutes%22%20style%3D%22position%3Aabsolute%3Bwidth%3A16px%3Bheight%3A16px%3Bfont-family%3AArial%3Bfont-size%3A16px%3Bcolor%3A%27+mCol+%27%3Btext-align%3Acenter%3Bfont-weight%3Abold%22%3E%27+M%5Bi%5D+%27%3C/div%3E%27%29%3B%0D%0Adocument.write%28%27%3C/div%3E%3C/div%3E%27%29%0D%0Adocument.write%28%27%3Cdiv%20id%3D%22Os%22%20style%3D%22position%3Aabsolute%3Btop%3A0px%3Bleft%3A0px%22%3E%3Cdiv%20style%3D%22position%3Arelative%22%3E%27%29%3B%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20S.length%3B%20i++%29%0D%0Adocument.write%28%27%3Cdiv%20id%3D%22ieSeconds%22%20style%3D%22position%3Aabsolute%3Bwidth%3A16px%3Bheight%3A16px%3Bfont-family%3AArial%3Bfont-size%3A16px%3Bcolor%3A%27+sCol+%27%3Btext-align%3Acenter%3Bfont-weight%3Abold%22%3E%27+S%5Bi%5D+%27%3C/div%3E%27%29%3B%0D%0Adocument.write%28%27%3C/div%3E%3C/div%3E%27%29%0D%0A%7D%0D%0A%28ns%29%3Fwindow.captureEvents%28Event.MOUSEMOVE%29%3A0%3B%0D%0Afunction%20Mouse%28evnt%29%7B%0D%0Aymouse%20%3D%20%28ns%29%3Fevnt.pageY+ClockFromMouseY-%28window.pageYOffset%29%3Aevent.y+ClockFromMouseY%3B%0D%0Axmouse%20%3D%20%28ns%29%3Fevnt.pageX+ClockFromMouseX%3Aevent.x+ClockFromMouseX%3B%0D%0A%7D%0D%0A%28ns%29%3Fwindow.onMouseMove%3DMouse%3Adocument.onmousemove%3DMouse%3B%0D%0Afunction%20ClockAndAssign%28%29%7B%0D%0Atime%20%3D%20new%20Date%20%28%29%3B%0D%0Asecs%20%3D%20time.getSeconds%28%29%3B%0D%0Asec%20%3D%20-1.57%20+%20Math.PI%20*%20secs/30%3B%0D%0Amins%20%3D%20time.getMinutes%28%29%3B%0D%0Amin%20%3D%20-1.57%20+%20Math.PI%20*%20mins/30%3B%0D%0Ahr%20%3D%20time.getHours%28%29%3B%0D%0Ahrs%20%3D%20-1.575%20+%20Math.PI%20*%20hr/6+Math.PI*parseInt%28time.getMinutes%28%29%29/360%3B%0D%0Aif%20%28ie%29%7B%0D%0AOd.style.top%3Dwindow.document.body.scrollTop%3B%0D%0AOf.style.top%3Dwindow.document.body.scrollTop%3B%0D%0AOh.style.top%3Dwindow.document.body.scrollTop%3B%0D%0AOm.style.top%3Dwindow.document.body.scrollTop%3B%0D%0AOs.style.top%3Dwindow.document.body.scrollTop%3B%0D%0A%7D%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20n%3B%20i++%29%7B%0D%0A%20var%20F%3D%28ns%29%3Fdocument.layers%5B%27nsFace%27+i%5D%3AieFace%5Bi%5D.style%3B%0D%0A%20F.top%3Dy%5Bi%5D%20+%20ClockHeight*Math.sin%28-1.0471%20+%20i*Split*Math.PI/180%29+scrll%3B%0D%0A%20F.left%3Dx%5Bi%5D%20+%20ClockWidth*Math.cos%28-1.0471%20+%20i*Split*Math.PI/180%29%3B%0D%0A%20%7D%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20H.length%3B%20i++%29%7B%0D%0A%20var%20HL%3D%28ns%29%3Fdocument.layers%5B%27nsHours%27+i%5D%3AieHours%5Bi%5D.style%3B%0D%0A%20HL.top%3Dy%5Bi%5D+HandY+%28i*HandHeight%29*Math.sin%28hrs%29+scrll%3B%0D%0A%20HL.left%3Dx%5Bi%5D+HandX+%28i*HandWidth%29*Math.cos%28hrs%29%3B%0D%0A%20%7D%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20M.length%3B%20i++%29%7B%0D%0A%20var%20ML%3D%28ns%29%3Fdocument.layers%5B%27nsMinutes%27+i%5D%3AieMinutes%5Bi%5D.style%3B%0D%0A%20ML.top%3Dy%5Bi%5D+HandY+%28i*HandHeight%29*Math.sin%28min%29+scrll%3B%0D%0A%20ML.left%3Dx%5Bi%5D+HandX+%28i*HandWidth%29*Math.cos%28min%29%3B%0D%0A%20%7D%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20S.length%3B%20i++%29%7B%0D%0A%20var%20SL%3D%28ns%29%3Fdocument.layers%5B%27nsSeconds%27+i%5D%3AieSeconds%5Bi%5D.style%3B%0D%0A%20SL.top%3Dy%5Bi%5D+HandY+%28i*HandHeight%29*Math.sin%28sec%29+scrll%3B%0D%0A%20SL.left%3Dx%5Bi%5D+HandX+%28i*HandWidth%29*Math.cos%28sec%29%3B%0D%0A%20%7D%0D%0Afor%20%28i%3D0%3B%20i%20%3C%20D.length%3B%20i++%29%7B%0D%0A%20var%20DL%3D%28ns%29%3Fdocument.layers%5B%27nsDate%27+i%5D%3AieDate%5Bi%5D.style%3B%0D%0A%20DL.top%3DDy%5Bi%5D%20+%20ClockHeight*1.5*Math.sin%28currStep+i*Dsplit*Math.PI/180%29+scrll%3B%0D%0A%20DL.left%3DDx%5Bi%5D%20+%20ClockWidth*1.5*Math.cos%28currStep+i*Dsplit*Math.PI/180%29%3B%0D%0A%20%7D%0D%0AcurrStep-%3Dstep%3B%0D%0A%7D%0D%0Afunction%20Delay%28%29%7B%0D%0Ascrll%3D%28ns%29%3Fwindow.pageYOffset%3A0%3B%0D%0ADy%5B0%5D%3DMath.round%28DY%5B0%5D+%3D%28%28ymouse%29-DY%5B0%5D%29*speed%29%3B%0D%0ADx%5B0%5D%3DMath.round%28DX%5B0%5D+%3D%28%28xmouse%29-DX%5B0%5D%29*speed%29%3B%0D%0Afor%20%28i%3D1%3B%20i%20%3C%20D.length%3B%20i++%29%7B%0D%0ADy%5Bi%5D%3DMath.round%28DY%5Bi%5D+%3D%28Dy%5Bi-1%5D-DY%5Bi%5D%29*speed%29%3B%0D%0ADx%5Bi%5D%3DMath.round%28DX%5Bi%5D+%3D%28Dx%5Bi-1%5D-DX%5Bi%5D%29*speed%29%3B%0D%0A%7D%0D%0Ay%5B0%5D%3DMath.round%28Y%5B0%5D+%3D%28%28ymouse%29-Y%5B0%5D%29*speed%29%3B%0D%0Ax%5B0%5D%3DMath.round%28X%5B0%5D+%3D%28%28xmouse%29-X%5B0%5D%29*speed%29%3B%0D%0Afor%20%28i%3D1%3B%20i%20%3C%20n%3B%20i++%29%7B%0D%0Ay%5Bi%5D%3DMath.round%28Y%5Bi%5D+%3D%28y%5Bi-1%5D-Y%5Bi%5D%29*speed%29%3B%0D%0Ax%5Bi%5D%3DMath.round%28X%5Bi%5D+%3D%28x%5Bi-1%5D-X%5Bi%5D%29*speed%29%3B%0D%0A%7D%0D%0AClockAndAssign%28%29%3B%0D%0AsetTimeout%28%27Delay%28%29%27%2C20%29%3B%0D%0A%7D%0D%0Aif%20%28ns%7C%7Cie%29window.onload%3DDelay%3B%0D%0A%3C/SCRIPT%3E%0D%0A%0D%0A%3Cscript%20language%3DJavaScript%3E%0D%0A"));
//--≫
≪/SCRIPT≫
Конечно все лучше сразу скопировать в код страници :-)
***
Юмор
Однажды молодой сисадмин, открыв свой почтовый ящик, нашел там повестку в райвоенкомат.
- Опять этот чертов спам, - прорычал он, нервно разрывая повестку в клочья.

Звонок на радио:
- Поставьте, пожалуйста, песню Пугачевой про то, как у нее завис Windows!
Ди-джей (после паузы):
- Я не могу вспомнить у Пугачевой такой песни! Можете напеть?
- Ну, там еще в припеве: "Кликну, а в ответ тишина, снова я осталась одна. Сильная
женщина плачет у Окна"
Присылайте свои статьи, полезные советы по Html, Delphi, Анекдоты и смешные истории на адресс x-program@narod.ru. Все опубликуем в рассылке.
 Посетите наш сайт http://www.x-program.narod.ru
http://subscribe.ru/
E-mail: ask@subscribe.ru		 Адрес подписки
 Отписаться
В избранное