Delphide Analog Saat

31/Ağu/07 17:35

Kısayol

Şikayet

Özel Mesaj

ercan10

Kayıt Tarihi: 27/Mayıs/2007

iki skinli umarım begenirsiniz

http://rapidshare.com/files/52472008/Project1.exe.html

Alıntı yap

01/Eyl/07 01:25

Kısayol

Şikayet

Özel Mesaj

ercan10

Kayıt Tarihi: 27/Mayıs/2007

okadar kotumu olmus yaw

Alıntı yap

01/Eyl/07 01:55

Kısayol

Şikayet

Özel Mesaj

Sharp

Kayıt Tarihi: 02/Temmuz/2007

güsel olmş hocam kodlarınıda açarmısın rica etsem olarmı ?

bide üzerine x koy işlemi sonlandırıp kapatıoz programı :)

www.yesilgrow.com - Growshop

Alıntı yap

01/Eyl/07 02:28

Kısayol

Şikayet

Özel Mesaj

ercan10

Kayıt Tarihi: 27/Mayıs/2007

eyvallah saol cift tık kapatır sag tık ikinci skin

kodu bu

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,math, jpeg;

type
TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Timer2Timer(Sender: TObject);
    procedure Image2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image2DblClick(Sender: TObject);
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var
y,x:variant;
sn,dk,st,xx,yy:integer;
sni,dki,sti,o:double;
procedure TForm1.FormCreate(Sender: TObject);
var
s:hrgn;
begin
setwindowlong(application.Handle, gwl_exstyle,ws_ex_toolwindow);//grvcbu
s:=createellipticrgn(0,0,200,200);
setwindowrgn(handle,s,true);
form1.Left:=screen.Width-203;
form1.top:=3;
image1.Width:=200;
image1.Height:=200;
image2.Width:=200;
image2.Height:=200;
image2.Hide;
timer2.Enabled:=false;
sni:=4.72;
dki:=4.72;
sti:=4.72;
o:=time/0.00001156828704;
sn:=floor(o);
dk:=sn-60;
st:=dk-720;
while sn>0 do
begin
sni:=sni+pi*0.1/3;
sn:=sn-1;
if dk=sn then
begin
dki:=dki+pi*0.1/3;
dk:=dk-60;
if st=dk then
begin
sti:=sti+pi*0.1/3;
st:=st-720;
end;
end;
end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Repaint;
image2.Repaint;
label1.Caption:=datetostr(date);
x:=50*cos(sti);
y:=50*sin(sti);
canvas.Pen.Width:=6;
canvas.Pen.Color:=-512;
canvas.MoveTo(100,100);
canvas.LineTo(x+100,y+100);

x:=64*cos(dki);
y:=64*sin(dki);
canvas.Pen.Width:=4;
canvas.Pen.Color:=-512;
canvas.MoveTo(100,100);
canvas.LineTo(x+100,y+100);

x:=80*cos(sni);
y:=80*sin(sni);
canvas.Pen.Width:=2;
canvas.Pen.Color:=-512;
canvas.MoveTo(100,100);
canvas.LineTo(x+100,y+100);
sn:=sn-1;

if sn=dk then
begin
dki:=dki+pi*0.1/3;
dk:=dk-60;
end;

sni:=sni+pi*0.1/3;

if st=dk then
begin
sti:=sti+pi*0.1/3;
st:=st-720;
end;
end;

procedure TForm1.Image1DblClick(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
begin
timer2.Enabled:=true;
xx:=x;
yy:=y;
end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then
begin
image2.Show;
image1.Hide;
end
else
timer2.Enabled:=false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
form1.Left:=mouse.CursorPos.X-xx;
form1.Top:=mouse.CursorPos.Y-yy;
end;

procedure TForm1.Image2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then
begin
image1.Show;
image2.Hide;
end
else
timer2.Enabled:=false;
end;

procedure TForm1.Image2DblClick(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
begin
timer2.Enabled:=true;
xx:=x;
yy:=y;
end;
end;

end.

Alıntı yap

01/Eyl/07 02:47

Kısayol

Şikayet

Özel Mesaj

manyakusta

Kayıt Tarihi: 14/Haziran/2006

bende bir aralar vbasicde digital yapmıştım tarihde gösteriyor hatta tarihin altındaki boşluğa tıklayınca not ekleme ekranı çıkıyo ve not ekleyip gönder deyinvce o boşlukta artık not çıkıyor ird tüm pencerelerin üzerinde tutabiliyorsun(burada soluklaşıyo ve rahatsız edici olmuyo istersniz bir deneyin)

http://www.efsanefen.com/Takvim.exe

İmza . . .

Alıntı yap

01/Eyl/07 02:55

Kısayol

Şikayet

Özel Mesaj

ercan10

Kayıt Tarihi: 27/Mayıs/2007

manyakusta bunu yazdı:
-----------------------------

bende bir aralar vbasicde digital yapmıştım tarihde gösteriyor hatta tarihin altındaki boşluğa tıklayınca not ekleme ekranı çıkıyo ve not ekleyip gönder deyinvce o boşlukta artık not çıkıyor ird tüm pencerelerin üzerinde tutabiliyorsun(burada soluklaşıyo ve rahatsız edici olmuyo istersniz bir deneyin)

http://www.efsanefen.com/Takvim.exe

-----------------------------

guzel olmus

Alıntı yap

01/Eyl/07 03:14

Kısayol

Şikayet

Özel Mesaj

manyakusta

Kayıt Tarihi: 14/Haziran/2006

teşekkür ederim.

İmza . . .

Alıntı yap