73 uygun sonuç bulundu

gönderen loaded
22 May 2019 08:24
Forum: Programlama
Başlık: Text Dosyasına Yazma
Cevaplar: 1
Görüntüleme: 146

Re: Text Dosyasına Yazma

Lazarusta yazılıp, denenmiş kod ; procedure TForm1.Button1Click(Sender: TObject); var stream:TFileStream; bfile : text; path_a_file:string='c:\a.txt'; path_b_file:string='c:\b.txt'; sifre :string; begin if FileExists(path_a_file) then begin stream:=TFileStream.Create(path_a_file,fmOpenRead or fmShar...
gönderen loaded
19 Nis 2019 11:01
Forum: Kylix / Lazarus / Freepascal
Başlık: Lazarus 2.0.2 Yayında
Cevaplar: 0
Görüntüleme: 335

Lazarus 2.0.2 Yayında

Arkadaşlar bu sürüm gerçekten çok hoş olmuş, ayrıca indirilip kurulan LAMW adında Android Programları geliştirmek için çok faydalı bir pakete sahip. Yaptığım hız testlerinde muadilinden geri kalır bir tarafı da yok yani oldukça başarılı, denemekte fazlasıyla yarar var. Tamamen ücretsiz olması da cab...
gönderen loaded
19 Nis 2019 10:39
Forum: Programlama
Başlık: fareyi istenilen rengin üzerine konumlandırmak
Cevaplar: 2
Görüntüleme: 161

Re: fareyi istenilen rengin üzerine konumlandırmak

Canvas.pixel metodu, ekran görüntüsünde renk arama işlemleri için çok yavaş bir yöntemdir. Bunun yerine daha hızlı olan ScanLine metodunu kullanabilirsiniz.
Konuya benzer bir çalışma örneği http://delphidabbler.com/tips/21
gönderen loaded
26 Eyl 2018 03:08
Forum: Programlama
Başlık: memo nesnesinde bulunan sozcugun satirinin secilmesi
Cevaplar: 7
Görüntüleme: 205

Re: memo nesnesinde bulunan sozcugun satirinin secilmesi

Aşağıdaki kod, umarım işinizi görür. function memo_icerisinde_ara(const aranacak_memo:TMemo;aranacak_metin:String):String; var i,ik:integer; rc:array[0..6] of String=('ğ','ü','ş','i','ö','ç','ı'); rnc:array[0..6] of String=('Ğ','Ü','Ş','İ','Ö','Ç','I'); sms,sm:String; begin sm:=aranacak_metin; for i...
gönderen loaded
27 Eki 2017 08:20
Forum: Programlama
Başlık: Nasıl bir koruma koyabilirim ?
Cevaplar: 10
Görüntüleme: 418

Re: Nasıl bir koruma koyabilirim ?

Program koruma ile ilgili olarak bir topic; http://www.delphiturkiye.com/forum/viewtopic.php?f=2&t=34264&p=185519#p185519 Gözlemlerine göre ; - Windows işletim sistemi değişikliklerinde numara değişmiyor. - Sanal bilgisayarlarda ise makine çoğaltmalarında yada disk kopyalamalarında numara değişiyor....
gönderen loaded
13 Eyl 2017 02:58
Forum: Programlama
Başlık: Formu ekranda en öne nasıl getirebilirim.
Cevaplar: 6
Görüntüleme: 201

Re: Formu ekranda en öne nasıl getirebilirim.

Merhaba
Formunuza ait FormStyle özelliğini fsStayOnTop olarak ayarlarsanız, muhtemelen istediğiniz işlem gerçekleşecektir.
gönderen loaded
21 Ağu 2017 02:08
Forum: Programlama
Başlık: Canvas.TextOut nasıl
Cevaplar: 3
Görüntüleme: 171

Re: Canvas.TextOut nasıl

Merhaba procedure TForm1.Button1Click(Sender: TObject); var sayac,x,y:integer; begin image1.width := 800; image1.height := 600; x:=0;y:=0; For Sayac := $0621 to $063A do begin image1.Canvas.Font.Name := 'arial'; image1.Canvas.Font.Color := clred; image1.Canvas.Font.Height :=15; x:=x+image1.Canvas.Te...
gönderen loaded
19 May 2017 01:50
Forum: Programlama
Başlık: [dcc32 Fatal Error] F2039 Could not create output file
Cevaplar: 10
Görüntüleme: 631

Re: [dcc32 Fatal Error] F2039 Could not create output file

Selam
Birde şunu deneyebilirsiniz, bende sorunu çözdü.
Services.msc den ulaşacağınız Uygulama Deneyim servisi devre dışı ise öncelikle otomatik moda alıp ardından başlat yapıp çalıştırmalısınız.
gönderen loaded
03 Nis 2017 08:19
Forum: Programlama
Başlık: polyline veya polybezier ile çalışma
Cevaplar: 1
Görüntüleme: 149

Re: polyline veya polybezier ile çalışma

Selam

Kod: Tümünü seç

Canvas.Brush.Color := clred; //renklendirme
Canvas.Brush.Style := bsSolid; //doldurma
Konu ile ilgili detaylı bilgilere linkten ulaşabilirsiniz.
https://dm7blog.wordpress.com/2011/10/2 ... ulamalari/
gönderen loaded
20 Şub 2017 02:25
Forum: Programlama
Başlık: Html Table get Id/Name hakkında
Cevaplar: 7
Görüntüleme: 387

Re: Html Table get Id/Name hakkında

Selam Form içerisindeki elementlere ulaşan javascript kodu delphiye kendiniz uyarlayabilirsiniz. var dede='input'; // Form elemanlarının ortak adı input,button,select,textarea gibi ... if (document.getElementsByTagName(dede).length!=0){ for (i = 0; i < document.getElementsByTagName(dede).length; i++...
gönderen loaded
01 Şub 2017 06:38
Forum: Programlama
Başlık: Açık olan bir uygulamayı ön plana getirme
Cevaplar: 4
Görüntüleme: 326

Re: Açık olan bir uygulamayı ön plana getirme

Selam

Kod: Tümünü seç

SetForegroundWindow(Hwnd);
ShowWindow(Hwnd, SW_MAXIMIZE);
gönderen loaded
02 Oca 2017 01:35
Forum: Programlama
Başlık: HTML Parse <img src tagi silinmesin.
Cevaplar: 4
Görüntüleme: 251

Re: HTML Parse <img src tagi silinmesin.

Merhaba Öncelikle değişmesini istemediğiniz tagleri farklı bir metine dönüştürmelisiniz. Ardından tagleri silmelisiniz sonrasında başta değiştirdiğiniz tagleri orjinal hallerine çevirmelisiniz. Böylece İstediğiniz değiştirme işlemini yapmış olursunuz. Ör: "<img src" metnini -> "zzzzzzzz" gibi ihtima...
gönderen loaded
28 Ara 2016 06:52
Forum: Programlama
Başlık: Label caption ve form caption
Cevaplar: 9
Görüntüleme: 519

Re: Label caption ve form caption

Merhaba Ertank Hocam
Ben yanlış anlamışım. Kusura bakmayın. Bu arada engin bilgilerinizden istifade ediyoruz. Saygılar.
gönderen loaded
28 Ara 2016 06:09
Forum: Programlama
Başlık: Label caption ve form caption
Cevaplar: 9
Görüntüleme: 519

Re: Label caption ve form caption

Kısa süren işlemlerde update çözüm gibi gözükse de, uzun süren işlemlerde aynı sorun tekerrür edecektir. procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i:=0 to high(integer) do begin Caption:=inttostr(i); Label1.Caption:=Caption; Label1.Update; //Application.ProcessMessages...
gönderen loaded
28 Ara 2016 02:51
Forum: Programlama
Başlık: Label caption ve form caption
Cevaplar: 9
Görüntüleme: 519

Re: Label caption ve form caption

sağlam bir çözüm :

Kod: Tümünü seç

Application.ProcessMessages;