Delphi Forum

Bu projelerle ilgili ileride ticari bir takım düşüncelerim mevcut. Bu yüzden şimdilik kaynak kodları yayınlamayı düşünmüyorum. Fakat yine de ileri de neler olabilir bunu zaman gösterecek...
Selametle kalın vesselam.

Merhaba Mustafa Kardeş güzel çalışma ellerine sağlık.
Benim de, Windows da EmlakCad ve Android de Poligon isminde bir CAD uygulamam mevcut.
Emlakcad;
https://youtu.be/5yhI1uq-3yM?si=Ru1pYAFhQFTryRoz

Poligon;
https://youtu.be/gBS0AMrJ50s?si=XIL2qEH1VgVPIE70

Selamlar, Saygılar.

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

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.

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

Merhaba,
Uzun süreli işlemlerde Thread kullanmalısınız. Veya daha basit usulde ; Kullanabilirsiniz. Fakat bu kodun kullanılması ustalarca tavsiye edilmez.

Kontrol ettim, bende sorunsuz çalışıyor.

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.

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

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

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

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

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

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

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