124 uygun sonuç bulundu

Gelişmiş aramaya git

gönderen loaded
11 Ara 2021 10:45
Forum: Kylix / Lazarus / Freepascal
Başlık: Lazarus'ta, Android Uygulama yazmak.
Cevaplar: 3
Görüntüleme: 14649

Lazarus'ta, Android Uygulama yazmak.

Merhaba Arkadaşlar
Lazarus kendini artık çok geliştirdi. Android uygulamalar dahil her türlü proje için rahatlıkla kullanılabilir kanaatindeyim.
Android olarak temel başlangıç seviyesinde örnek bir uygulama oluşturdum; Merhaba Dünya uygulamasına ait Youtube Videosu
İlerleyen vadede duruma göre ...
gönderen loaded
08 Ara 2021 05:54
Forum: Programlama
Başlık: delphi 7 inputbox a girilenlerin showmessage ile nasıl listelerim
Cevaplar: 1
Görüntüleme: 624

Re: delphi 7 inputbox a girilenlerin showmessage ile nasıl listelerim

Verdiğiniz kodlara göre şu şekilde yapılabilir.

type
musteri=record
adisoyadi:AnsiString;adresi:AnsiString;
urun:AnsiString;fiyati:Currency;
end;

type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click ...
gönderen loaded
04 Kas 2021 07:05
Forum: Programlama
Başlık: Form 2 den Form 1 e dönüşte Form 1 deki ADOQuery1 yenilemek [çözüldü]
Cevaplar: 5
Görüntüleme: 1285

Re: Form 2 den Form 1 e dönüşte Form 1 deki ADOQuery1 yenilemek (Yardım pls)

Tüm bu dertlerden kurtulmak için, neden Datamodule kullanmıyorsunuz ?
gönderen loaded
16 Ağu 2021 04:11
Forum: Programlama
Başlık: Exe Yolunu Nasıl Bulurum?
Cevaplar: 7
Görüntüleme: 1863

Re: Exe Yolunu Nasıl Bulurum?

https://docs.microsoft.com/en-us/sysinternals/downloads/procmon ilgili program;
Process Monitor , Windows için gerçek zamanlı dosya sistemi, Kayıt Defteri ve işlem/iş parçacığı etkinliğini gösteren gelişmiş bir izleme aracıdır.
Programda sadece Show File System Activity seçeneğini aktifleştirmeniz ...
gönderen loaded
29 Haz 2021 01:36
Forum: Programlama
Başlık: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi
Cevaplar: 21
Görüntüleme: 5665

Re: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi

Başlangıç İçin ; https://postgis.net/docs/
Cbs Objeleri İçin ; https://postgis.net/docs/postgis_usage.html#RefObject
Sorgulamalar İçin; https://postgis.net/docs/reference.html ... ationships
gönderen loaded
29 Haz 2021 11:36
Forum: Programlama
Başlık: Canvas scroll bar kullanimi
Cevaplar: 1
Görüntüleme: 841

Re: Canvas scroll bar kullanimi

Merhaba, Kodlar LAZARUS'ta yazılıp denenmiştir.


procedure TForm1.BitBtn1Click(Sender: TObject);
var
ScrollBox:TScrollBox;
Image:TImage;
begin
ScrollBox := TScrollBox.Create(Self);
ScrollBox.parent := self;
ScrollBox.Left := 0;
ScrollBox.Top := 0;
ScrollBox.Align:=alClient;
ScrollBox ...
gönderen loaded
29 Haz 2021 10:54
Forum: Programlama
Başlık: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi
Cevaplar: 21
Görüntüleme: 5665

Re: TStringList arama ve hızlandırma veya yeni bir bileşen önerisi

Merhaba
Koordinatlarla uğraşıyorsanız ilerleyen vadede Alan gibi Geometriler vede Coğrafi Sorgular (Nokta içinde mi ? Dışında mı ? Hattın Üstünde mi ? Ne Kadar Yakınında ! ...) muhakkak bir gün yolunuza çıkacak.
ertank beyin önerdiği üzere benim de önerim her halükarda biraz araştırma yapıp ...
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: 12838

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önderen loaded
13 Ara 2020 11:04
Forum: Programlama
Başlık: Delphi pen width
Cevaplar: 1
Görüntüleme: 901

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

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

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: 2302

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: 4086

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

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

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;

Gelişmiş aramaya git