Editi sağdan Yazdırmak

[sinancaylak]

Merhaba ben Editleri text tinin sağdan başlayarak yazmak istiyorum bununlla ilgili bir component yada kod var mı herkese kolay gelsin

[husonet]

Forumda arattırırsan bulursun.

Kolay Gelsin...

[sinancaylak]

Yalnız ben forumda bununla ilgili herhangi birşey bulamadım bana daha açık bir kod ya link verirseniz sevinirim.

[husonet]

Merhaba,

Bak aşağıya örnek bir component gönderiyorum.

Kod: Tümünü seç

unit AlignEdit1; 

interface 

uses 
  SysUtils, Classes, Controls, StdCtrls, Windows; 

type 
  TAlignEdit1 = class(TEdit) 
  private 
    FAlignment : TAlignment; 
    { Private declarations } 
  protected 
    procedure SetAlignment(Value : TAlignment); 
    { Protected declarations } 
  public 
    { Public declarations } 
    procedure CreateParams(var Params: TCreateParams); override; 
  published 
    property Alignment : TAlignment read FAlignment write SetAlignment default taLeftJustify; 
    { Published declarations } 
  end; 

procedure Register; 

implementation 

procedure TAlignEdit1.SetAlignment(Value: TAlignment); 
begin 
  if FAlignment <> Value then 
   begin 
    FAlignment := Value; 
    RecreateWnd; 
   end 
end; 

procedure TAlignEdit1.CreateParams(var Params: TCreateParams); 
var 
  newAlignment : Longint; 
begin 
inherited CreateParams(Params); 
case FAlignment of 
  taRightJustify : newAlignment := ES_RIGHT; 
  taLeftJustify  : newAlignment := ES_LEFT; 
  taCenter       : newAlignment := ES_CENTER; 
end; 
Params.Style := Params.Style or newAlignment; 
end; 

procedure Register; 
begin 
  RegisterComponents('System', [TAlignEdit1]); 
end; 

end. 

Kolay Gelsin...

[mrmarman]

- Forumda arama yaptım ama bulamadım diyorsunuz.. halbu ki arama kısmında sağdan kelimesini yazınca sonuçlar çıktı.

- Bileşenle uğraşmak istemiyorum diyebilirsin.... Sana bu forumda bulamadığın linki veriyorum...

viewtopic.php?t=1441&highlight=#6711

[sinancaylak]

mrbcob sadece aratma yapma kelimelerimde hata oldu bilesenle ugrasmak istemediğimden değil bu arada gönderdiğin kod içi hüsonet sana teşekkür ederim.