Delphi Forum

ExtractShortPathName fonksiyonu isinize yarar sanirim. parametre olarak shelltreeview.path i verirsiniz.
Edit1.Text:=ExtractShortPathName(shelltreeview.path);

Firebird kullaniyorsaniz bir sekilde serverin yolladigi eventi yakaladiginizi varsayiyorum.IBEvents in OnEventAlert'ine

var
DA:TJvDesktopAlert;
begin
if EventName='YENI KAYIT EKLENDI' then
begin
DA := TJvDesktopAlert.create(Self);
DA.HeaderText:='Yeni Bir Servis Kaydı Eklendi';
DA.Execute ...

muhasebeden pek anlamam ama ben soyle bir seyler yaptim.
hesaplari tuttugum tablo su sekilde

CREATE TABLE HESAPLAR (
ID INTEGER NOT NULL,
PARENT_ID INTEGER DEFAULT 0,
HESAP_KODU VARCHAR(20) CHARACTER SET ASCII,
HESAP_ADI VARCHAR(40) COLLATE PXW_TURK,
TUTAR NUMERIC(15,2) DEFAULT 0
);


bu ...

install dosyasinda indy 10'nun kurulu oldugu klasoru library path'e ekleyin diye yaziyor.

ben FibPlus ile kullandigimdan Packages klasorundeki UCFIBD7.dpk'yida derledim. ADO,Ibx,BDE zaten otomatik geliyor.

oncelikler forma bir tane TUserControl ekleyin. Bir tanede kullandiginiz veritabanina gore ...

Jedi paketinin icinde TJvDesktopAlert componenti var.mesengerin verdigi tarz mesajlar vermek icin kullanilio. Ben onu kullaniyorum. uzerine tus,resim ekleyebiliyorsunuz.

www.sourceforge.net'te ücretsiz bir bileşen paketi. UserControl

http://sourceforge.net/projects/usercontrol

İstediğini yapacaktır.

Allah razi olsun. bu paket cok faydali oldu
uzun uzun kod yazmaktan kurtardi beni. yazanlar brezilyali oldugundan ispanyolca olayini biraz asinca yarim saatte ...

http://delphistep.cis.si/
adresinde ucretsiz dsTaskBar componenti var.MDI uygulamalar icin taskbar kullanimi sagliyor.MDI ana formunuzun uzerine koydukdan sonra AutoCreateButtons ozelligini true yaparsaniz extra bi ayar felanda gerektirmiyor.

formun private kismina

OldWinProc, NewWinProc: Pointer;
OutCanvas: TCanvas;
Logo:TBitmap;
procedure NewWinProcedure (var Msg: TMessage);

formun OnCreate olayina

Logo:=TBitmap.Create;
if FileExists(ExtractFilePath(Application.EXEName)+'logo.bmp') then Logo.LoadFromFile(ExtractFilePath ...

type
TForm4 = class(TForm)
.
.
.
procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND;
.
.
.
procedure TForm4.WMSyscommand(var msg: TWmSysCommand);
begin
case (msg.CmdType and $FFF0) of
SC_MINIMIZE: Application.Minimize;
SC_RESTORE : Application.Restore;
end ...

hocam dediginiz gibi bir dbgrid atip tekrar denedim. dbgrid de de sonuc ayni.
refreshsql i kontrol ettim gayet basit bir sql ile yazili. select * from tablo order by field asc sorun buradan da kaynaklanmiyor. daha sonra diger proje ile yeniden karsilastirdim. tek fark, diger proje de IBEvent ...

programi kapatip actiginizda bilgiler dogru ise, yani aslinda kayit dogru yapiliyor fakat gridde yanlis gozukuyorsa buyuk ihtimal refreshsql de bi yanlislik vardir.
ayni durum bende refreshsqli yanlis yazinca cikiyordu.

ben FIBPlus kullandigim icin sizin soylediginiz hatayi almiyormusum.
standart ibx componentleri kullaninca dediginiz gibi T1_ID alani icin deger girmelisiniz diye hata verdi.
bunu halletmek icin T1_ID alaninin FieldKind ozelligini ftInternalCalc yapmaniz lazim. o zaman grid icinden bilgi girerken ...

hata veriyordan kastiniz T1_ID alani otomatik deger almiyor ise yolladiginiz veritabanini indirip denedim. aslinda deger aliyor ama aldigi deger grid de gozukmuyor.eger veriyi girdikden sonra commit ediyorsaniz, programi acip kapadikdan sonra T1_ID alaninin degeri gozukuyor.
ayni sorun beni bir ...

t-hex yazdı:

cxGrid'in ozelliklerinden
DataController-Filter-Options-fcoCaseInsensitive ozelligini false yaparsaniz buyuk-kucuk harf ayrimi kalkar.

true yaparsa kalkar

Pardon....