Delphi Forum

Selam,

procedure basla;
begin
yedi_saniye_suren_islem;
dokuz_saniye_suren_islem;
son_islem;
end;

yukarıdaki satırlarda
yedi_saniye_suren_islem; başlar başlamaz, hemen devamında ki dokuz_saniye_suren_islem; satırı ve hemen devamında da son_islem; paralel başlasın ki son_islem satırına kadar ...

Hallettim, inceleme zahmetinde bulunanlara teşekkürler.

(twDbTableView1.Column1.Properties as TcxComboBoxProperties).Items.text ->şeklinde mesela bu items deki satırlarını alabilirsiniz.

Gerisini biliyorsunuz.

An itibariyle hala yapabilmiş değilim.

Selam,

Eğer BP noktasına uğradığı halde durmuyorsa soldaki "Düz Yeşil Okla" yada "SHIFT+CTRL+F9" ile çalıştırıyorsunuz.
Sadece F9 kullanır yada üzerinde böcek olan Yeşil tuşa basarsanız mutlaka duracaktır, yeter ki program çalışma sırasında bu noktaya uğrasın.

Kolay gelsin.

Selam arkadaşlar,

Aşağıda yazdığım problemi aşmama yardım edebilir misiniz_?

Örneğin;
- cxGrid'deki.dbTableView1.Colum2.properties 'i Combobox olarak ayarlıyorum.
- Designtime'da bu combobox'ın itemlerine ekleme çıkarma zaten yapıyoruz.
- Runtime'de bu combobox'ın itemlerine ekleme çıkarma nasıl ...

Clipboardla yapmak evet işe yarar eminim.

Fakat program haricindeki biryerden alıp diğer yere yapıştıracağınız bir bilginin bu program nedeniyle silinmesi pek kullanışlı gelmiyor bana. Yani clipboardı rasgele kullanmadan halletmem lazım.

Başarılar.

Richeditteki mesela 3. satırı formatını koruyarak (Kalın italik vs) başka bir richedite eklemem lazım.

Richediti stream kullanarak komple formatlı ekleyebiliyorum,
Fakat sadece falanca satır olunca işler karışıyor.

Var mıdır deneyen paylaşacak olan arkadaş_?

Başarılar.

loxka yazdı:Benim istediğim 'object Inspector' a nasıl yazılacağıydı..
Teşekkür ederim

Bunu oradan yazamazsın. Kodla yapmalısın. zaten çok kısa dikkat edersen.

Başarılar.

Abbrevia componentini Delphi 2005'e kuruyorum, yani kuramıyorum, library path falan tamam fakat muvaffak olamadım.
Yapabilen var mı? Paylaşalım.

SELECT MUSTERI,ISLEM,BORC,ALACAK,
(SELECT SUM(BORC-ALACAK) FROM BAKIYE b WHERE b.islem_tarihi <= a.islem_tarihi)
FROM BAKIYE a
Where Kod= :CKOD;

Sonuçlar;
MUSTERI ISLEM BORC ALACAK BAKIYE
----------------------------------------------
1 1 10 0 0
1 1 0 20 10
1 1 0 20 -10 Fakat bu kodda alt ...

Arkadaşlar şöyle yaptım ve halloldu.
-----------------------------------------
procedure TForm1.Button6Click(Sender: TObject);
var
bm:TBitmap;
begin
if AdsQuery_Hastalar.State in [dsedit,dsinsert] then
begin
Application.MessageBox('Önce kaydedin','Uyarı',MB_OK+MB_ICONWARNING);
PageControl1 ...

var
r1,r2:TBitmap;
rc:Trect;
begin
r1:= getformimage;
rc:= Rect(0,0,130,120);
r2:= ResimdenParcaAl (r1, rc);
//Function ResimdenParcaAl (Resim: TBitmap, Parca: TRect):TBitmap;
end;

gibi izah etmek istedim.
Canvasta zayıf kalmışım hocam.
Saygılar kolay gelsin.

kardeş böyle olmadı.

Yani Function ResimdenParcaAl (Resim: TBitmap, Parca: TRect):TBitmap;

gibi bir izahını yapabilecek arkadaş var mı?

Şimdiden teşekkürler.

Kolay gele.

Selamlar..
Benzer bişeyler aradım ama işe yaramadı.

Mesela genişliği 200*240 pixel olan bir Bitmapden;

x= 20 ve y= 40 tan başlayıp,
x= 180 ve y= 200'e kadar olan bölümünü almak istiyorum.


Canvas konusunu fazla bilmediğim için yardım edebilen arkadaşlara duyurulur.

Teşekkürler. Kolay gelsin.