Language:

Anket

Bu programlar işe yarar mı?

Evet
16 (94.1%)
Hayır
0 (0%)
Kullanan olmaz.
1 (5.9%)

Toplam Oy Verenler: 16

Gönderen Konu: Lazarus ile yapılan programları paylaşalım.  (Okunma sayısı 14454 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

eersoy93

  • Müdavim

  • Çevrimdışı
  • *****

  • 585
    • Profili Görüntüle
Ynt: Lazarus ile yapılan programları paylaşalım.
« Yanıtla #45 : 26 Nisan 2017, 21:15:02 »
      SİLİCİ
Silinmekte zorluk çıkaran dosya ya da klasörleri siler.
Dosya ya da klasörü forma sürüklemek yeterlidir.
Uyarmaz.Doğrudan siler.Geri dönüşü yoktur.
Zaman zaman inatçılık yapan dosyalar böyle bir program istiyor.
İndirdikten sonra çalıştırılabilir izni vermelisiniz.

https://drive.google.com/open?id=0Bzvb1Nd6s8YUMjJTa2luaTBwREU



Bu silmenin düzeneği (mekanizması) nedir? Merâk ettim. :)
Nasıl Akıllıca Soru Sorulur?

Lütfen Türkçe'mizin yazım kâidelerine (kurallarına) uyunuz.

Lütfen her bir sorununuz için ayrı ayrı konular açınız.

mecazi1

  • Devamlı

  • Çevrimdışı
  • ***

  • 223
    • Profili Görüntüle
Ynt: Lazarus ile yapılan programları paylaşalım.
« Yanıtla #46 : 27 Nisan 2017, 12:52:22 »
KOD:

unit Unit1;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, Unix;
type
  { TForm1 }
  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { private declarations }
  public
    { public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }


procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of String);//dosyaların bırakılması yordamı
var
  FileName : String;
  S:LongInt;
begin
  for FileName in FileNames do
  begin
    S:=fpSystem('rm -rf '+(FileName));              //Komutla silmeye zorla

    if not FileExists(FileName)then                   //Eğer silindiyse
    begin
      ListBox1.Items.Add(FileName+'-Silindi');//Listbox ta göster
    end;
    if FileExists(FileName)then                           //Eğer silinmedi ise
    begin
      RenameFile(FileName,'/tmp/ff');                 //dosyayı /temp altına ff adıyla taşı
      S:=fpSystem('rm -rf '+'/tmp/ff');                     //Tekrar silmeye zorla
            if not FileExists(FileName)then            //Eğer silindiyse
            begin
            ListBox1.Items.Add(FileName+'-Silindi'); //Listbox ta göster
            end;
    end;
  end;
end;


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;//Sürükleme başlangıcı
  Shift: TShiftState; X, Y: Integer);
begin
    if Button = mbLeft then
     ListBox1.BeginDrag(true);
end;
end.
« Son Düzenleme: 27 Nisan 2017, 13:57:33 Gönderen: mecazi1 »

mecazi1

  • Devamlı

  • Çevrimdışı
  • ***

  • 223
    • Profili Görüntüle

mecazi1

  • Devamlı

  • Çevrimdışı
  • ***

  • 223
    • Profili Görüntüle
Ynt: Lazarus ile yapılan programları paylaşalım.
« Yanıtla #48 : 16 Haziran 2017, 01:37:00 »
Google çeviri ileLazarus dil dosyası hazırladım ancak düzenlenmeye muhtaç.
https://drive.google.com/open?id=0Bzvb1Nd6s8YUaHV5THIxdlRFeTQ
« Son Düzenleme: 16 Haziran 2017, 01:49:52 Gönderen: mecazi1 »

mecazi1

  • Devamlı

  • Çevrimdışı
  • ***

  • 223
    • Profili Görüntüle
Ynt: Lazarus ile yapılan programları paylaşalım.
« Yanıtla #49 : 16 Haziran 2017, 21:33:55 »
Po Editor Artık dil paketi yapmak daha kolay.

https://drive.google.com/open?id=0Bzvb1Nd6s8YUczYzWGIxdWoyd0E



« Son Düzenleme: 16 Haziran 2017, 21:40:37 Gönderen: mecazi1 »

ercanersoy

  • Meraklı

  • Çevrimdışı
  • **

  • 62
    • Profili Görüntüle
Ynt: Lazarus ile yapılan programları paylaşalım.
« Yanıtla #50 : 17 Haziran 2017, 01:45:47 »
Kaynak kodları GitHub'tan ya da GitLab'tan paylaşırsanız erişim için daha iyi olur.

mecazi1

  • Devamlı

  • Çevrimdışı
  • ***

  • 223
    • Profili Görüntüle
Ynt: Lazarus ile yapılan programları paylaşalım.
« Yanıtla #51 : 17 Haziran 2017, 02:16:47 »
Github kullanamıyorum.Kodları paylaşabilirim.
https://drive.google.com/open?id=0Bzvb1Nd6s8YUb0lrMk0zS0FwOHc
« Son Düzenleme: 17 Haziran 2017, 02:20:10 Gönderen: mecazi1 »

eersoy93

  • Müdavim

  • Çevrimdışı
  • *****

  • 585
    • Profili Görüntüle
Ynt: Lazarus ile yapılan programları paylaşalım.
« Yanıtla #52 : 18 Haziran 2017, 15:02:46 »
Sizden güzel fikirler çıkıyor. :) .po dosyasını düzenlemek için yaptığınız uygulama, özgün metinle çeviri metni karşılaştırmalı olsa daha kullanışlı olur bence. Ellerinize sağlık.
Nasıl Akıllıca Soru Sorulur?

Lütfen Türkçe'mizin yazım kâidelerine (kurallarına) uyunuz.

Lütfen her bir sorununuz için ayrı ayrı konular açınız.

mecazi1

  • Devamlı

  • Çevrimdışı
  • ***

  • 223
    • Profili Görüntüle
Ynt: Lazarus ile yapılan programları paylaşalım.
« Yanıtla #53 : 19 Haziran 2017, 00:15:14 »
Beğenmene sevindim.
Dediğiniz şekilde çalışan poedit adında bir program var.
Lazarus dil paketi tam 20194 satır. Bununla tek tek kim ilgilenebilir?

mecazi1

  • Devamlı

  • Çevrimdışı
  • ***

  • 223
    • Profili Görüntüle
Ynt: Lazarus ile yapılan programları paylaşalım.
« Yanıtla #54 : 23 Haziran 2017, 01:33:28 »
WPS Ofis Programı(284mb):
Paketleninceye kadar tıkla kur paketini kullanabilirsiniz.
https://drive.google.com/open?id=0Bzvb1Nd6s8YUWFRMTjFWLUg0X1E

« Son Düzenleme: 23 Haziran 2017, 01:35:18 Gönderen: mecazi1 »

mecazi1

  • Devamlı

  • Çevrimdışı
  • ***

  • 223
    • Profili Görüntüle
Ynt: Lazarus ile yapılan programları paylaşalım.
« Yanıtla #55 : 06 Temmuz 2017, 20:18:06 »
Evde bir oyun kurmak istedim.Wine gerekti.Gerekli tüm pisi paketleri bilgisayara kopyaladım.
Elle kurayım derken (çünkü evde internet yok) bağımlılıklar işkence yapmaya başladı.Bu programı gerekli gördüm.
Eksik ve kusurlarını bildirirseniz yeniden düzenlerim.İnşallah faydalı olur.

Yapmanız gereken tüm pisileri bir klasöre kopyalayıp program içinden açmak.
İnterneti sormaması için diğer depoları pasif hale getiriniz.


https://drive.google.com/open?id=0Bzvb1Nd6s8YUcEFHUFBtRlVuSmM

mecazi1

  • Devamlı

  • Çevrimdışı
  • ***

  • 223
    • Profili Görüntüle
Ynt: Lazarus ile yapılan programları paylaşalım.
« Yanıtla #56 : 24 Temmuz 2017, 21:18:39 »
TXT dosyasından data olur mu  dedim,
Müşteri Defteri programında denedim.

https://drive.google.com/open?id=0Bzvb1Nd6s8YUWXZzMnVPbVlYNW8
« Son Düzenleme: 29 Temmuz 2017, 16:59:22 Gönderen: mecazi1 »

 

Yukarı Çık & Back to Up