var
St: array[0..100] of Char;
begin
St:='C:\klasorunuz\resminiz.bmp';
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @St, SPIF_SENDCHANGE);
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
Str: string;
begin
Label2.Caption:='';
Str:=' '+Edit1.Text;
i:=1;
repeat
if Str[i]<>' ' then
Label2.Caption:=Label2.Caption+Str[i];
if Str[i]=' ' then
begin
if (Str[i+1]<>' ') then
begin
Label2.Caption:=Label2.Caption+Str[i]+AnsiUpperCase(Str[i+1]);
Inc(i);
end
else
Label2.Caption:=Label2.Caption+Str[i];
end;
Inc(i);
until i>Length(Str)+1;
Str:=Label2.Caption;
Delete(Str, 1, 1);
Label2.Caption:=Str;
end; DefWindowProc(Form1.Handle,WM_SYSCOMMAND,SC_SCREENSAVE,0); Label1.Caption:='Genişlik : '+
IntToStr(Form1.Canvas.TextWidth(Edit1.Text))+
' pixels';
Label2.Caption:='Yükseklik : '+
IntToStr(Form1.Canvas.TextHeight(Edit1.Text))+
' pixels';
Memo1.Lines.Assign(Screen.Fonts); end;
SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_UPDATEINIFILE); //hoparlör kapanır
SystemParametersInfo(SPI_SETBEEP, 1, nil, SPIF_UPDATEINIFILE); //hoparlör açılıruses MMSystem; //ekliyoruz.
button click eventına alttaki kodu ekliyoruz.
if WaveOutGetNumDevs<>0 then
Label1.Caption:='Ses kartı var.' //ses kartı bulundu labele bildirildi.
else
Label1.Caption:='Ses kartı yok '; //ses kartı olmadığı labela bildirildi. Bir sonraki yazımızda buluşmak üzere.. .Form1.Caption:=DateTimeToStr(Now);" yazın.
Form1 de oluşacak code aşağıdaki gibidir.procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Caption:=DateTimeToStr(Now); //Anlık tarih ve saati form1 captionu yazar.
end; Fonksiyonumuz ve satır açıklamaları : function DeleteSpaces(Str: string): string;
var
i: Integer;
begin
i:=0;
while i<=Length(Str) do //str uzunluğu kadar yap
if Str[i]=' ' then Delete(Str, i, 1) //Eğer boşluk varsa sil
else Inc(i);
Result:=Str; //temizlenmiş string i ver
end;" Bitmap: TBitmap; " button1 in click eventina "if OpenDialog1.Execute then begin Bitmap:=TBitmap.Create; Bitmap.LoadFromFile(OpenDialog1.FileName); Image1.Picture.LoadFromFile(OpenDialog1.FileName); end; "
ekleyin.
Button2 in eventına
"
var
JPEGImage: TJPEGImage;
begin
try
JPEGImage:=TJPEGImage.Create;
JPEGImage.CompressionQuality:=80;
JPEGImage.Assign(Bitmap);
if SaveDialog1.Execute then
JPEGImage.SaveToFile(SaveDialog1.FileName);
Label1.Caption:='Convertation finished';
finally
Bitmap.Free;
JPEGImage.Free;
end;"
Açıklamalı Code aşağıdaki gibidir. uses JPEG; //jpeg kütüphanesi eklenir
...
var
Bitmap: TBitmap; //Bitmap değişkeni tanımlanır
...
procedure TForm1.Button1Click(Sender: TObject); //button 1 eventı
begin
if OpenDialog1.Execute then //opendialog çalıştırılır
begin
Bitmap:=TBitmap.Create; //bitmap değişkenine bitmap üretilir
Bitmap.LoadFromFile(OpenDialog1.FileName); //open dialogtan seçine bitmap alınır
Image1.Picture.LoadFromFile(OpenDialog1.FileName); //image1 e alınan resim konur
end;
end;
procedure TForm1.Button2Click(Sender: TObject); //button2 eventi
var
JPEGImage: TJPEGImage; //jpegimage değişkenı tanıtılır
begin
try //deneme bloğu
JPEGImage:=TJPEGImage.Create; //jpeg image üretilir
JPEGImage.CompressionQuality:=80; //sıkıştırma kalitesi %80 ayarlanır
JPEGImage.Assign(Bitmap); //bitmap değişkeni jpeg aktarılır
if SaveDialog1.Execute then //save dialog çalıştırışır
JPEGImage.SaveToFile(SaveDialog1.FileName); //seçilen dosya ismine jpeg değişkeni aktarılır.(Yani dosya saklanır)
Label1.Caption:='Dönüştürme işlemi yapıldı'; //label1 de işlemin başarılı olduğu yazılır
finally
Bitmap.Free;
JPEGImage.Free;
end;
end;