122 uygun sonuç bulundu

gönderen loaded
28 Ara 2023 08:01
Forum: Programlama
Başlık: Delphi ile küre yapıp fare ile döndürmek?
Cevaplar: 3
Görüntüleme: 219

Re: Delphi ile küre yapıp fare ile döndürmek?

Merhaba Zamanında bende ilgilenmiştim bu konuyla nette ufak tefek örnekler bulmuştum fakat tüm yollar OpenGL'ye çıkmıştı. Sonrasında 2 boyutlu CAD uygulaması geliştirdim. Windows için https://youtu.be/5yhI1uq-3yM devamında pascal kullanarak aynı uygulamayı daha da geliştirerek Androide aktardım. htt...
gönderen loaded
28 Ara 2023 07:51
Forum: Programlama
Başlık: Microsoft office 2019 olecontainer problemi
Cevaplar: 1
Görüntüleme: 96

Re: Microsoft office 2019 olecontainer problemi

Merhaba
Ms ofisin herhangi bir sürümünü kullanmıyorum. Fakat tüm sorun pencerenin ayrı bi yerde açılması ise, bir çözüm olarak;
Ayrı açılan pencerelerin handle verilerine ulaşıp pencereyi kendi formuma çekerdim.
gönderen loaded
15 Ara 2023 04:42
Forum: Programlama
Başlık: DBGrid satırlarını gruplayarak renklendirme
Cevaplar: 13
Görüntüleme: 475

Re: DBGrid satırlarını gruplayarak renklendirme

Lazarus'ta TDBGrid'de satır renklendirmeyi şu şekilde yapıyorum; procedure TForm_Main.DBGrid_ZeminPrepareCanvas(sender: TObject; DataCol: Integer; Column: TColumn; AState: TGridDrawState); begin if (Sender as TDBGrid).Datasource.DataSet.FieldByName('id').AsString='1' then begin (Sender as TDBGrid).C...
gönderen loaded
02 Ara 2022 10:50
Forum: Programlama
Başlık: Kopyalama Yaparken programın donması
Cevaplar: 2
Görüntüleme: 534

Re: Kopyalama Yaparken programın donması

Merhaba,
Uzun süreli işlemlerde Thread kullanmalısınız. Veya daha basit usulde ;

Kod: Tümünü seç

Application.ProcessMessages;
Kullanabilirsiniz. Fakat bu kodun kullanılması ustalarca tavsiye edilmez.
gönderen loaded
01 Ara 2022 06:42
Forum: Programlama
Başlık: Satış Fişi Alt iskonto isk kar kdv Hesaplama
Cevaplar: 9
Görüntüleme: 963

Re: Satış Fişi Alt iskonto isk kar kdv Hesaplama

Kontrol ettim, bende sorunsuz çalışıyor.
gönderen loaded
01 Ara 2022 04:00
Forum: Programlama
Başlık: Satış Fişi Alt iskonto isk kar kdv Hesaplama
Cevaplar: 9
Görüntüleme: 963

Re: Satış Fişi Alt iskonto isk kar kdv Hesaplama

Veritabanınızda boş olma ihtimali olan alanlarınız varsa bu alanları formülde doğrudan kullanmak yerine öncesinde içerik kontrol yapmalısınız.
gönderen loaded
01 Ara 2022 02:31
Forum: Programlama
Başlık: Satış Fişi Alt iskonto isk kar kdv Hesaplama
Cevaplar: 9
Görüntüleme: 963

Re: Satış Fişi Alt iskonto isk kar kdv Hesaplama

Kodlar Lazarusta yazılıp denenmiştir. procedure TForm1.Button1Click(Sender: TObject); var fiyat_tutar,adet,iskonto,kar,kdv,satis_fiyati:double; begin fiyat_tutar:=353.20; adet:=1; iskonto:=10; kar:=10; kdv:=18; satis_fiyati:= ((fiyat_tutar*adet)*((100-iskonto)/100)) *((100+kar)/100)*((100+kdv)/100);...
gönderen loaded
14 Eki 2022 09:25
Forum: Programlama
Başlık: Help - Excel - VCL form
Cevaplar: 5
Görüntüleme: 983

Re: Help - Excel - VCL form

Lazarus kullanıyorum, delphi kullanmıyorum. O yüzden delphi için biraz değişiklik yapmanız gerekebilir. En basit şekliyle ; Unit1.pas içerisindeki kodları inceleyerek, ilgilendiğiniz Uygulamaya ve içerisindeki handle verisi olan kontrollere erişebilirsiniz. Bence, işin en önemli kısmı EnumChildWindo...
gönderen loaded
11 Eki 2022 07:15
Forum: Programlama
Başlık: Help - Excel - VCL form
Cevaplar: 5
Görüntüleme: 983

Re: Help - Excel - VCL form

Konu ile ilgili daha önce yaptığım bir çalışma (Lazarus kullanılarak yapılmıştır.) işimi görmüştü. İncelemenizde yarar var diye düşünüyorum.
O zaman yararlandığım bir kaynak ; http://aziga.x10.mx/delphi/index.php?op ... &Itemid=11
gönderen loaded
26 Eyl 2022 07:38
Forum: Programlama
Başlık: Help - Excel - VCL form
Cevaplar: 5
Görüntüleme: 983

Re: Help - Excel - VCL form

Firstly; - CreateToolHelp32SnapShot and Process32First You should take a snapshot of the system with its commands. The ThreadId information of the application you want will be included in the image you receive. - GetWindowThreadProcessID It will give the window handle of the ThreadId information. An...
gönderen loaded
23 Eyl 2022 02:43
Forum: Programlama
Başlık: Stringgrid seçili sütunları aktarma
Cevaplar: 3
Görüntüleme: 484

Re: Stringgrid seçili sütunları aktarma

Merhaba, Kodlar Lazarus'ta yazılıp denenmiştir. Seçim Bölgesinin Satır ve Sutun bilgileri ; procedure TForm1.StringGrid1Click(Sender: TObject); begin caption:= StringGrid1.Selection.TopLeft.y.ToString+',' + StringGrid1.Selection.TopLeft.x.ToString + ' ' + StringGrid1.Selection.BottomRight.y.ToString...
gönderen loaded
02 Eyl 2022 02:11
Forum: Programlama
Başlık: SQLite Tabloya Alan Ekleme
Cevaplar: 6
Görüntüleme: 644

Re: SQLite Tabloya Alan Ekleme

Postgresql'de şöyle bir uygulama var buradaki esas ifade EXISTS ; SELECT EXISTS ( SELECT FROM pg_tables WHERE schemaname = 'public' AND tablename = 'Tablo_Adı' ); Uygulama tarafında ise şu şekilde kullanımı mevcut ; ZQuery1.Active:=false; ZQuery1.SQL.Text:=memo1.Text; // Yukarıdaki Sql Tümcesi ZQuer...
gönderen loaded
08 Ağu 2022 08:08
Forum: Programlama
Başlık: Hangi bileşen tıklandı
Cevaplar: 2
Görüntüleme: 487

Re: Hangi bileşen tıklandı

Merhaba, Tüm panellerin metodlarını işlemek, tek bir panelin metodlarını işlemek ile aynıdır. Burada kullanmanız gereken TPanel(sender)... İlk olarak işlemek istediğiniz bir panelin metodunu ele alıp gereken kodları yazdıktan sonra diğer panellerin metodunu yazdığınız bu metoda bağlamalısınız. Olayı...
gönderen loaded
14 Haz 2022 09:12
Forum: Programlama
Başlık: Group By Kullanımı
Cevaplar: 5
Görüntüleme: 821

Re: Group By Kullanımı

Muhtemelen, Float veriyi string olarak sakladığınız için sorun yaşıyorsunuz. Öncelikle noktayı yok etmelisiniz ardından virgülden noktaya dönüşüm yapmalısınız. Lazarusta Denenmiş Kod ; Application.UpdateFormatSettings := false; DecimalSeparator := '.'; showmessage(floattostr(StrToFloat(replacestr(Re...
gönderen loaded
12 Haz 2022 02:19
Forum: Programlama
Başlık: Group By Kullanımı
Cevaplar: 5
Görüntüleme: 821

Re: Group By Kullanımı

SELECT deneme."Musteri_Kodu", deneme."Belge_No", deneme."Fatura_No", deneme."Unvan", SUM(deneme."Brut_Toplam") FROM deneme GROUP BY deneme."Musteri_Kodu", deneme."Belge_No", deneme."Fatura_No", deneme."Unvan" ...