Programlama yapalım ve Öğrenelim.

****** seklindeki sifrenin icerigini gösteren basit bi progam (: Slyvestr

Forma bir edit nesnesi ve timer nesnesi ekleyin programi calistirip fareyi ***** seklindeki sifrenin üzerine getirin o kadar

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons;

var

Slyvestr : HWND;

type

TForm1 = class(TForm)

Edit1: TEdit;

Zaman: TTimer;

procedure ZamanTimer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure Sifrecoz;

var

windenhandlenoal : HWND;

ekrankoordinati : TPOINT;

SifreUzunlugu : integer;

Sifre : string;

begin

GetCursorPos(ekrankoordinati);

windenhandlenoal := WindowFromPoint(ekrankoordinati);

Slyvestr := windenhandlenoal;

if SendMessage(Tuncay, EM_GETPASSWORDCHAR, 0, 0) = 0 then Exit;

SifreUzunlugu := SendMessage(windenhandlenoal, WM_GETTEXTLENGTH,0,0)+ 1;

SetLength(Sifre, SifreUzunlugu);

SendMessage(Tuncay, WM_GETTEXT, SifreUzunlugu,LongInt(@Sifre[1]));

form1.Label1.Caption:='Şifre '+IntToStr(SifreUzunlugu-1)+' karakter';

form1.Edit1.Text:= PChar(Sifre);

end;

procedure TForm1.ZamanTimer(Sender: TObject);

begin

Sifrecoz;

end;

Delphi - .....................................

****** seklindeki sifrenin icerigini gösteren basit bi progam (: Slyvestr

Forma bir edit nesnesi ve timer nesnesi ekleyin programi calistirip fareyi ***** seklindeki sifrenin üzerine getirin o kadar

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons;

var

Slyvestr : HWND;

type

TForm1 = class(TForm)

Edit1: TEdit;

Zaman: TTimer;

procedure ZamanTimer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure Sifrecoz;

var

windenhandlenoal : HWND;

ekrankoordinati : TPOINT;

SifreUzunlugu : integer;

Sifre : string;

begin

GetCursorPos(ekrankoordinati);

windenhandlenoal := WindowFromPoint(ekrankoordinati);

Slyvestr := windenhandlenoal;

if SendMessage(Tuncay, EM_GETPASSWORDCHAR, 0, 0) = 0 then Exit;

SifreUzunlugu := SendMessage(windenhandlenoal, WM_GETTEXTLENGTH,0,0)+ 1;

SetLength(Sifre, SifreUzunlugu);

SendMessage(Tuncay, WM_GETTEXT, SifreUzunlugu,LongInt(@Sifre[1]));

form1.Label1.Caption:='Şifre '+IntToStr(SifreUzunlugu-1)+' karakter';

form1.Edit1.Text:= PChar(Sifre);

end;

procedure TForm1.ZamanTimer(Sender: TObject);

begin

Sifrecoz;

end;

Delphi - .....................................

DBRid Canvas

//mbedtr@hotmail.com (Mücahit)

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,

const TRect &Rect, int DataCol, TColumn *Column,

TGridDrawState State)

{

if(Column->FieldName == "alan_adi" && Column->Field->AsString == "değer"){

DBGrid1->Canvas->FillRect(Rect);

DBGrid1->Canvas->Font->Color = clRed;

DBGrid1->Canvas->Brush->Color = clInfoBk;

int x = Rect.Left + 2;

int y = Rect.Top + 2;

DBGrid1->Canvas->TextOut(x,y,"parametre");

}

else DBGrid1->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::DBGrid1DrawDataCell(TObject *Sender,

const TRect &Rect, TField *Field, TGridDrawState State)

{

if(Field->FieldName == "alan_adi" && Field->AsString == "değer){

((TDBGrid*)Sender)->Canvas->FillRect(Rect);

((TDBGrid*)Sender)->Canvas->Font->Color = clRed;

((TDBGrid*)Sender)->Canvas->Brush->Color = clYellow;

int x = Rect.Left+2;

int y = Rect.Top+2;

((TDBGrid*)Sender)->Canvas->TextOut(x,y,"parametre");

}

C++ Builder - .....................................

DBRid Canvas

//mbedtr@hotmail.com (Mücahit)

void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender,

const TRect &Rect, int DataCol, TColumn *Column,

TGridDrawState State)

{

if(Column->FieldName == "alan_adi" && Column->Field->AsString == "değer"){

DBGrid1->Canvas->FillRect(Rect);

DBGrid1->Canvas->Font->Color = clRed;

DBGrid1->Canvas->Brush->Color = clInfoBk;

int x = Rect.Left + 2;

int y = Rect.Top + 2;

DBGrid1->Canvas->TextOut(x,y,"parametre");

}

else DBGrid1->DefaultDrawColumnCell(Rect, DataCol, Column, State);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::DBGrid1DrawDataCell(TObject *Sender,

const TRect &Rect, TField *Field, TGridDrawState State)

{

if(Field->FieldName == "alan_adi" && Field->AsString == "değer){

((TDBGrid*)Sender)->Canvas->FillRect(Rect);

((TDBGrid*)Sender)->Canvas->Font->Color = clRed;

((TDBGrid*)Sender)->Canvas->Brush->Color = clYellow;

int x = Rect.Left+2;

int y = Rect.Top+2;

((TDBGrid*)Sender)->Canvas->TextOut(x,y,"parametre");

}

C++ Builder - .....................................

Formun Caption kısmına tarih......

//murat turan

procedure TFrmMain.Timer1Timer(Sender: TObject);

begin

FrmMain.Caption := FormatDateTime('dd mmmm yyyy dddd - hh:nn:ss',now);

end;

{

arkdaşım yukarıdaki gibide olabilir. tarih açık olarak yazmak için

daha ideal. bunu yazıyorum diye kesinlikle bilgini küçümsene vs...

gibi bir kanıya katılmanızı istemem. amacım yardımcı olmak.

iyi çalışmalar...

d : gün

m : ay

y : yıl

h:saat

n:dakika

s:saniye

}

Delphi - .....................................

Formun Caption kısmına tarih......

//murat turan

procedure TFrmMain.Timer1Timer(Sender: TObject);

begin

FrmMain.Caption := FormatDateTime('dd mmmm yyyy dddd - hh:nn:ss',now);

end;

{

arkdaşım yukarıdaki gibide olabilir. tarih açık olarak yazmak için

daha ideal. bunu yazıyorum diye kesinlikle bilgini küçümsene vs...

gibi bir kanıya katılmanızı istemem. amacım yardımcı olmak.

iyi çalışmalar...

d : gün

m : ay

y : yıl

h:saat

n:dakika

s:saniye

}

Delphi - .....................................

Formun Caption kısmına tarih bilgisinin çıkması için;

//maruf@saykom.com

// Timer eklemeniz gerekir

procedure TFrmMain.Timer1Timer(Sender: TObject);

var

gun:String;

begin

case DayOfWeek(Date) of

1: gun:='Pazar';

2: gun:='Pazartesi';

3: gun:='Salı';

4: gun:='Çarşamba';

5: gun:='Perşembe';

6: gun:='Cuma';

7: gun:='Cumartesi';

end;

FrmMain.Caption:='Deneme Proje'+datetostr(date)+ '-' + Gun + ' ' + timetostr(time)+'... '+'' ;

end;

Delphi - .....................................

Formun Caption kısmına tarih bilgisinin çıkması için;

//maruf@saykom.com

// Timer eklemeniz gerekir

procedure TFrmMain.Timer1Timer(Sender: TObject);

var

gun:String;

begin

case DayOfWeek(Date) of

1: gun:='Pazar';

2: gun:='Pazartesi';

3: gun:='Salı';

4: gun:='Çarşamba';

5: gun:='Perşembe';

6: gun:='Cuma';

7: gun:='Cumartesi';

end;

FrmMain.Caption:='Deneme Proje'+datetostr(date)+ '-' + Gun + ' ' + timetostr(time)+'... '+'' ;

end;

Delphi - .....................................

, den sonraki sayıyı kaldır

procedure TForm1.Button1Click(Sender: TObject);

VAR I:REAL;

begin

i:=strtofloat(edit1.text);

edit2.Text:=floattostr(int(i));

end;

Delphi - .....................................

, den sonraki sayıyı kaldır

procedure TForm1.Button1Click(Sender: TObject);

VAR I:REAL;

begin

i:=strtofloat(edit1.text);

edit2.Text:=floattostr(int(i));

end;

Delphi - .....................................

gif dosyaları açma ve form arka resmi olarak döşeme

//Selam arkadaşlar ilk öncelikle kendimi tanıtayım

//Ben Mesut Altürk Delphi delilerinden

//İkinci olarak delphi manyak grubumuza katılmak isteyen arkadaşlar

//mesut2004@hotmail.com

//adres listesine beni eklesin ve delphiden diye mail atsınlar

//çok büyük projelerimiz war.

//Delphi grup oluşturup biryığın prg yazıp sitemizde adınızı bulundurabilirsiniz.

//Hepinizi, konuşmak için msnye bekliyorum

//Şimdiki projemiz ( Online game ) çok basit kodlar ile

//Gelelim gif açma ve döşeme işlemlerine ilk öncelikle aşağıdaki adresten

//http://www.melander.dk/delphi/gifimage/

//gifimaged7c.zip

//dosyasını çekip componentini kurun

//şimdi artık delphiniz gif'i destekliyor

//sırada gif resmini arka plan olarak döşemek war

//aşağıdaki kodu kendinize göre uyarlayın işte bu kadar

// Hepinizi bekliyorum İyi Çalışmalar dilerim

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, GIFImage, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormPaint(Sender: TObject);

private

Bitmap: TBitmap;

procedure DoOnChange(Sender: TObject);

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DoOnChange(Sender: TObject);

begin

FormPaint(self);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

image1.Hide;

Bitmap := TBitmap.Create;

Bitmap.Height := Image1.Height;

Bitmap.Width := Image1.Width;

Bitmap.OnChange := DoOnChange;

TGIFImage(Image1.Picture.Graphic).Paint(Bitmap.Canvas, Bitmap.Canvas.ClipRect,

[goAsync,goAnimate,goLoop,goLoopContinously,goDirectDraw,goDither,goAutoDither]);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

// Stop all running painters

(Image1.Picture.Graphic as TGIFImage).PaintStop;

Bitmap.Free;

end;

procedure TForm1.FormPaint(Sender: TObject);

var

x, y : integer;

begin

if not(Assigned(Image1.Picture.Graphic)) then

exit;

// Loop to paint tiles

x := 0;

while (x < Width) do

begin

y := 0;

while (y < Height) do

begin

Canvas.Draw(x, y, Bitmap);

inc(y, Image1.Height);

end;

inc(x, Image1.Width);

end;

end.

Delphi - .....................................

gif dosyaları açma ve form arka resmi olarak döşeme

//Selam arkadaşlar ilk öncelikle kendimi tanıtayım

//Ben Mesut Altürk Delphi delilerinden

//İkinci olarak delphi manyak grubumuza katılmak isteyen arkadaşlar

//mesut2004@hotmail.com

//adres listesine beni eklesin ve delphiden diye mail atsınlar

//çok büyük projelerimiz war.

//Delphi grup oluşturup biryığın prg yazıp sitemizde adınızı bulundurabilirsiniz.

//Hepinizi, konuşmak için msnye bekliyorum

//Şimdiki projemiz ( Online game ) çok basit kodlar ile

//Gelelim gif açma ve döşeme işlemlerine ilk öncelikle aşağıdaki adresten

//http://www.melander.dk/delphi/gifimage/

//gifimaged7c.zip

//dosyasını çekip componentini kurun

//şimdi artık delphiniz gif'i destekliyor

//sırada gif resmini arka plan olarak döşemek war

//aşağıdaki kodu kendinize göre uyarlayın işte bu kadar

// Hepinizi bekliyorum İyi Çalışmalar dilerim

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, GIFImage, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormPaint(Sender: TObject);

private

Bitmap: TBitmap;

procedure DoOnChange(Sender: TObject);

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DoOnChange(Sender: TObject);

begin

FormPaint(self);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

image1.Hide;

Bitmap := TBitmap.Create;

Bitmap.Height := Image1.Height;

Bitmap.Width := Image1.Width;

Bitmap.OnChange := DoOnChange;

TGIFImage(Image1.Picture.Graphic).Paint(Bitmap.Canvas, Bitmap.Canvas.ClipRect,

[goAsync,goAnimate,goLoop,goLoopContinously,goDirectDraw,goDither,goAutoDither]);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

// Stop all running painters

(Image1.Picture.Graphic as TGIFImage).PaintStop;

Bitmap.Free;

end;

procedure TForm1.FormPaint(Sender: TObject);

var

x, y : integer;

begin

if not(Assigned(Image1.Picture.Graphic)) then

exit;

// Loop to paint tiles

x := 0;

while (x < Width) do

begin

y := 0;

while (y < Height) do

begin

Canvas.Draw(x, y, Bitmap);

inc(y, Image1.Height);

end;

inc(x, Image1.Width);

end;

end.

Delphi - .....................................