string gridde alingment özelliği

[serbek_tr]

Arkadaşlar kolay gelsin.
dbgridde her sütunu hizlama özelliği var sola veya sağa gibi bu olayı string grid de bir hücre içinde yani sütunda para birimi göstereceğim için sağa dayalı yazdırmam gerek. yardımcı olursanız sevinirim

[ikutluay]

Kodu string gridin event liste eklemeyi unutma. yoksa grid kodun varlığını bilmez.

Kod: Tümünü seç

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);

  procedure WriteText(StringGrid: TStringGrid; ACanvas: TCanvas; const ARect: TRect;
    const Text: string; Format: Word);
  const
    DX = 2;
    DY = 2;
  var
    S: array[0..255] of Char;
    B, R: TRect;
  begin
    with Stringgrid, ACanvas, ARect do
    begin
      case Format of
        DT_LEFT: ExtTextOut(Handle, Left + DX, Top + DY,
            ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text), Length(Text), nil);

        DT_RIGHT: ExtTextOut(Handle, Right - TextWidth(Text) - 3, Top + DY,
            ETO_OPAQUE or ETO_CLIPPED, @ARect, StrPCopy(S, Text),
            Length(Text), nil);

        DT_CENTER: ExtTextOut(Handle, Left + (Right - Left - TextWidth(Text)) div 2,
            Top + DY, ETO_OPAQUE or ETO_CLIPPED, @ARect,
            StrPCopy(S, Text), Length(Text), nil);
      end;
    end;
  end;

  procedure Display(StringGrid: TStringGrid; const S: string; Alignment: TAlignment);
  const
    Formats: array[TAlignment] of Word = (DT_LEFT, DT_RIGHT, DT_CENTER);
  begin
    WriteText(StringGrid, StringGrid.Canvas, Rect, S, Formats[Alignment]);
  end;
begin
  // Right-justify columns 0-2
  // Spalten 0-2 rechts ausrichten.
  if ACol in [0..2] then
    Display(StringGrid1, StringGrid1.Cells[ACol, ARow], taRightJustify)

    // Center the first row
    // Erste zeile zentrieren
    if ARow = 0 then
      Display(StringGrid1, StringGrid1.Cells[ACol, ARow], taCenter)
  end;

[serbek_tr]

ikutluay teşekkür ederim. Lakin biraz anlamakta zorlandım galiba string gridin hangi event ine biraz daha açıklarmısın çok iç içe kullanmışsın hangi procedure yada function nerede olacak
belirtirsen sevinirim

[serbek_tr]

tamam arkadaşım tamam. diğer procedure ve functionların ayrı olabileceği aklıma geldiği için açıklama istedim hepsi tek olay altınca imiş çok sağol işimi gördü umarım başka bir sorunla karşılaşmam. Aklına fikrine sağlık dert görmesinler

[ikutluay]

tamam arkadaşım tamam. diğer procedure ve functionların ayrı olabileceği aklıma geldiği için açıklama istedim hepsi tek olay altınca imiş çok sağol işimi gördü umarım başka bir sorunla karşılaşmam. Aklına fikrine sağlık dert görmesinler

babacan işin görüldüyse ne mutlu. ama yorumlardan görüleceği üüzere kod alıntı. ben sadece paylaşmış oldum.

[serbek_tr]

Arkadaş burda önemli olan paylaşım değilmi sonuçta alıntıda olsa elinde böyle bir kaynak var ve sende o kaynağı paylaştın önemli olan da bu tekrar sağol Allah razı olsun