87 uygun sonuç bulundu

gönderen loaded
16 Şub 2021 11:17
Forum: Kylix / Lazarus / Freepascal
Başlık: Lazarus fonksiyonlarının Android Studio'da kullanımı ile ilgili örnek bir çalışma
Cevaplar: 0
Görüntüleme: 730

Lazarus fonksiyonlarının Android Studio'da kullanımı ile ilgili örnek bir çalışma

Merhaba Arkadaşlar Lazarus çalışmalarını Android Projelerinde kullanmak isteyenler için giriş seviyesinde bir çalışma hazırladım. Çalışma da; Lazarus'ta yazılan fonksiyon ve metodların , LAMW modülü ile oluşturulan .so (Kütüphane) dosyalarına dönüştürülmesi akabinde Android Studio'da kullanılması gö...
gönderen loaded
13 Ara 2020 11:04
Forum: Programlama
Başlık: Delphi pen width
Cevaplar: 1
Görüntüleme: 269

Re: Delphi pen width

Width Özelliği İnteger olarak tanımlanmıştır. Bu nedenle 1 den küçük değerleri doğrudan veremezsiniz ! property Width : Integer read FWidth write SetWidth; Bunun nedeni ; Çizgilerin kalınlığı pixel olarak belirlenir. property Width default 1; Default olan 1 değeri ise çizginin görünebilen en ince ha...
gönderen loaded
16 Kas 2020 10:31
Forum: Programlama
Başlık: cximage zoom özelliğini ve rect
Cevaplar: 7
Görüntüleme: 724

Re: cximage zoom özelliğini ve rect

Anladım, o zaman aşağıdaki kod işinizi görecektir. Lazarusta yazılmış ve denenmiştir. image2.AutoSize:=true; // Zoom görüntüsünün aktarılacağı İmage Nesnesi image2.Stretch:=true; image2.Picture.Bitmap.SetSize(ScrollBox1.Width-ScrollBox1.HorzScrollBar.Size-2,ScrollBox1.Height-ScrollBox1.VertScrollBar...
gönderen loaded
15 Kas 2020 10:44
Forum: Programlama
Başlık: cximage zoom özelliğini ve rect
Cevaplar: 7
Görüntüleme: 724

Re: cximage zoom özelliğini ve rect

Kusura bakmayın, açıklama yapmam gerekiyordu, Lazarus kullanıyorum, koddaki cximage1 ve 2 aslında image nesneleri, onda da mantık aynıdır diye düşünmüştüm, Lazarusta sorunsuz çalışıyor.
gönderen loaded
15 Kas 2020 09:08
Forum: Programlama
Başlık: cximage zoom özelliğini ve rect
Cevaplar: 7
Görüntüleme: 724

Re: cximage zoom özelliğini ve rect

Kod: Tümünü seç

 cximage2.Canvas.CopyRect(rect(0,0,cxImage2.Width,cxImage2.Height) ,cxImage1.Canvas,rect(0,0,cxImage1.Width,cxImage1.Height));
gönderen loaded
13 Kas 2020 03:50
Forum: Programlama
Başlık: Image içinde sağa dayalı resim
Cevaplar: 5
Görüntüleme: 625

Re: Image içinde sağa dayalı resim

Bir alternatif olarak Canvas.Draw Metodunu Kullanabilirsiniz. Örneğin : 500x500 lüğü Image_500 adında 200x200 lüğü Image_200 adında farklı Image nesnelerinde saklayabilirsiniz. Ardından, Üst sağ için, Image_500.Canvas.Draw(Image_500.Width-Image_200.Width,0,Image_200.Picture.Bitmap); -Üst Orta, Image...
gönderen loaded
04 Nis 2020 03:40
Forum: Programlama
Başlık: Edit'e sadece Sayı ve Nokta ( . ) Girilmesi
Cevaplar: 11
Görüntüleme: 6482

Re: Edit'e sadece Sayı ve Nokta ( . ) Girilmesi

Virgülün çalışmamasının nedeni; Kodun, ondalıklı sayısal değer girişinde, virgülleri noktaya çevirmesidir. Sizce; Sayısal giriş alanın da bazen nokta bazen virgül kullanılması sorun oluşturmaz mı ? Yine de hem nokta hem virgül kullanmak isterseniz ; if ((AnsiPos('.',TEdit(sender).Text)<>0) and (key=...
gönderen loaded
04 Nis 2020 12:10
Forum: Programlama
Başlık: Edit'e sadece Sayı ve Nokta ( . ) Girilmesi
Cevaplar: 11
Görüntüleme: 6482

Re: Edit'e sadece Sayı ve Nokta ( . ) Girilmesi

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if (AnsiPos('.',TEdit(sender).Text)<>0) and (key='.') then key:=#0;
  if (AnsiPos('.',TEdit(sender).Text)=0) and (key=',') then key:='.';
  if not (Key in ['0'..'9', '.', #8, #9]) then Key := #0;
end; 
gönderen loaded
16 Mar 2020 10:03
Forum: Programlama
Başlık: Chromium (CEF4) ile sayfa kaynağını veya javascript çalıştırıp dönen değeri nasıl alırım?
Cevaplar: 1
Görüntüleme: 467

Re: Chromium (CEF4) ile sayfa kaynağını veya javascript çalıştırıp dönen değeri nasıl alırım?

Cef4'le ilgili olarak https://www.briskbard.com/forum/ sayfasından faydalabilirsiniz. Sayfada , sorununuzla ilgili olarak Cef4 yazarının çözüm önerisi, https://www.briskbard.com/forum/viewtopic.php?t=454 İlgili Cef4 Javascript Demoları, https://github.com/salvadordf/CEF4Delphi/tree/master/demos/Delp...
gönderen loaded
18 Eki 2019 12:06
Forum: Programlama
Başlık: dosya meşgul hatası
Cevaplar: 16
Görüntüleme: 1936

Re: dosya meşgul hatası

// Yazma Okuma Fonksiyonu // Yazma Okuma Fonksiyonu Sonu Aralıklarına kullanıcı kendi kontrollerini koyabilir. Ben kendi uygulamalarında GetTickCount64 yöntemi ile zaman kontrolü yapmaktayım işlem sonunda Application.ProcessMessages (Threadlarda farklı yöntemler uyguluyorum) ile de uygulamanın sürek...
gönderen loaded
18 Eki 2019 11:26
Forum: Programlama
Başlık: dosya meşgul hatası
Cevaplar: 16
Görüntüleme: 1936

Re: dosya meşgul hatası

Benim bu tür asenkron durumlar için kullandığım basit bir yöntem denemekte fayda var procedure TForm1.Button1Click(Sender: TObject); var err:Boolean=false; begin repeat try // Yazma Okuma Fonksiyonu image1.Picture.Bitmap.SaveToFile('C:\deneme.png'); // Yazma Okuma Fonksiyonu Sonu err:=false; caption...
gönderen loaded
12 Eki 2019 10:08
Forum: Programlama
Başlık: Edit'in boş olmaması
Cevaplar: 3
Görüntüleme: 975

Re: Edit'in boş olmaması

Kod: Tümünü seç

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if (AnsiPos('.',TEdit(sender).Text)<>0) and (key='.') then key:=#0;
  if (AnsiPos('.',TEdit(sender).Text)=0) and (key=',') then key:='.';
  if not (Key in ['0'..'9', '.', #8, #9]) then Key := #0;
end; 
gönderen loaded
01 Eki 2019 08:27
Forum: Programlama
Başlık: Delphide api nasıl yazılır
Cevaplar: 4
Görüntüleme: 920

Re: Delphide api nasıl yazılır

Uygulamanız masaüstü ise COM (Component Object Model) veya ActiveX gibi yöntemlerlede uygulamanıza api özelliği ekleyebilirsiniz. Api ile Excel Erişimi Örneği ; // Bu örnek Lazarusta Yazılmıştır. var ExcelApp: OleVariant; begin try ExcelApp := CreateOleObject('Excel.Application'); except ShowMessage...
gönderen loaded
29 Ağu 2019 08:19
Forum: Programlama
Başlık: harita pafta parseli seçimi ve üzerine bazı verilerin kaydedilmesi
Cevaplar: 2
Görüntüleme: 633

Re: harita pafta parseli seçimi ve üzerine bazı verilerin kaydedilmesi

Merhaba Yapmayı düşündüğünüz işlem CAD ve CBS temelli bir proje. Öncelikle çalışma sahanızda bulunan parsellere ait sayısal verileri temin etmelisiniz (TKGM parsel sorgu sitesine göz atabilirsiniz) ardından bunlara ait fotoğraf gibi doneleri mümkünse Coğrafi Konum Destekli (Çif kanallı GPS Destekli ...
gönderen loaded
22 May 2019 09:24
Forum: Programlama
Başlık: Text Dosyasına Yazma
Cevaplar: 1
Görüntüleme: 478

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...