Edit içindeki imleci daha kalın yapmak

[danaci]

arkadaşlar programlarda windows imlecini dos uygulamalarındaki gibi daha kalın yapmak istiyorum. Bununla ilgili ne yapabilirim.
iyi çalışmalar

[aliemrei]

Tam anlamadım ama sanırım fontu büyütmen gerekiyor.

[danaci]

fontu büyütmek olarak değil arkadaşım. Dos uygulamalarındaki imleci biliyorsundur. şöyle 10x5 mm boyutlarında bir imleç olsun istiyorum. çünkü programa veri girişi yaparken imleç farkedilmiyor yada imlecin hangi sahada olduğunu aramak gerekiyor.

[fahrettin]

imlecin hangi sahada oldugunu aramaniza gerek olmamasi icin o an aktif olan bilesenin rengini degistirmek gibi bir yontem kullanabilirsiniz....

2004 seminerlerinde Gokmen arkadasimiz seminerde boyle bir ornek vermisti...

[SeRoKi]

sanırım isteğinin cevabı bu olabilir.
delphi ile birlikte gelen image editor programıyla yeni bir .res dosyası oluştur. açılan pencerede contents kısmına sağ tıkla ve new>cursor 'u seç.
resource ağacına otomatik olarak cursor, onun altına da cursor1 diye elemanlar eklenir. cursor1'e sağ tıkla edit de. dos uygulamarındaki cursoru çiz.(Veya istediğin bişeyi) bunu kaydet ve programın dizinine at.

şimdi gelelim cursoru kullanmaya.

istediğin bir formun altına şunu yaz

Kod: Tümünü seç

{$R *.DFM} //bu satır yazılıdır.
{$R resdosyasiadi.RES}

bu kod .res dosyasını okumasını sağlar.
şimdi cursoru kullanalım :

bunu ben butonun altına yazdım. formun oncreate olayına da yazılabilir.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
 const NewCursor = 1;
begin
 Screen.Cursors[NewCursor] :=
    LoadCursor(hInstance,'CURHAND');
 Form1.Cursor := NewCursor;
end;

umarım işine yarar

[danaci]

seroki arkadaşım imlecin kalınlaştırılması ile ilgili verdiğin kodlar işer yaramadı.Acaba bir yerde yanlışlık mı var
selamlar

[SeRoKi]

2. kod parçasında

Kod: Tümünü seç

loadcursor(hInsatance,'CURHAND');

yazan kısımda 'CURHAND' yerine .res dosyasının içinde kayıtlı olan cursor ismini yazmayı denedin mi (cursor adı tırnak içine yazılacak) ? cursor adı büyük harlerle yazılırsa daha kolay olabilir.
Kolay gelsin.

[radiochaos]

Selam...

Sanırım bir karışıklık var. Mouse imleci (Cursor) ve Focus Alabilen ve keyboard input kabul eden TWinControl lerin içindeki Caret ayrı şeyler. Sanırım danaci nin istediği Caret ı değiştirmek. Çok fazla test şansım olmadı ama kodu copy-paste yapayım. Diğer Win32 API fonksiyonları ile daha da geliştirilebilir, hatta Bitmap bile Caret olarak kullanılabilir. (Win32 Programmer's Manual inceleyin). Kolay gelsin.
.
.
.

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
procedure Edit1Change(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
procedure Edit1Enter(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure SetCustomCaret(Sender:TEdit);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SetCustomCaret(Sender:TEdit);
begin
CreateCaret(Sender.Handle,0,8,12);
ShowCaret(Sender.Handle);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
SetCustomCaret(TEdit(Sender));
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
DestroyCaret;
Edit1.Repaint;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1Change(Sender);
end;

.
.
.

[SeRoKi]

ben bir deneme yaptım. sana projeyi alabileceğin bir link veryorum :

http://sheref.netfirms.com/cursor.zip
(sağ klik hedefi farklı kaydet)

incelersin. gerekli değiştemeri yaparsın

umarım işine yarar.

[danaci]

arkadaşlar bu konuda radiochaos un dediği şey yapmak istediğim ancak verdiği kodlar bir işlem yapmıyor ve Seroki arkadaş verdiğin link çalışmıyor
kolay gelsin...

[radiochaos]

Selam tekrar, kod bende çalışıyor. Delphi 7 ve Windows XP SP1 ortamı.
Bir işlem yapmıyor derken Caret mi kalınlaşmıyor? İşletim sistemi nedir? Hata varsa yazsan? Detaylardan sonra daha fazla yardımcı olabilirim.

Kolay gelsin.

[SeRoKi]

kardeş bi de bunu dene
http://rapidshare.de/files/7487460/cursor.zip.html
sayfa açılınca aşşada free butonuna tılkarsın. sayfanın altında bir geri sayım olacak. o bittikten sonra indirmen için bi link açılır. inş. bu sefer olur.

[danaci]

ben imleç derken edit içindeki imleçten bahsetmiştim, mouse imlecini kastetmemiştim.
sağolsun seroki arkadaşın gönderdiği örnek mouse imleci için geçerli.
Radiochaos arkadışın caret dediği uygulama bende işlem görmemişti
o/s winxp sp2 bundan kaynaklı olabilirmi.
destekleriniz için teşekkür ediyorum.

[radiochaos]

Selam tekrar danaci,

Radiochaos arkadışın caret dediği uygulama bende işlem görmemişti
o/s winxp sp2 bundan kaynaklı olabilirmi.

WinXP SP2 den kaynaklı olduğunu sanmıyorum. Benim işletim sistemimde XP. Eğer editlere bakarsan, OnEnter ve OnChange de Caret değişimi var. Kalınlaştırmayı koyduğun Edit'in focus aldığından emin misin? Belki Form ilk açıldığında Edit'in Taborder=0 dır, bunun için ayrı bişey yapmak gerekebilir. Diğer türlü çalışması lazım, olmazsa söyle örnek projeyi göndereyim. Kolay gelsin.

[danaci]

radiochaos arkadaşım editin onenter veya onexit olaylarında imlecin
kalınlaştırılmasıyla ilgi elinde proje proje varsa benimle paylaşırsan sevinirim.
Çalışmalarında kolaylıklar dilerim.