Tadvstring Grid Hint Boyutunu Sınırlama

 uses  Windows, Forms, Controls, Graphics, StdCtrls, Types;type  TMultiLineHintWindow = class(THintWindow)  public    procedure Paint; override;  end;procedure TMultiLineHintWindow.Paint;var  TextRect: TRect;begin  // Hint penceresi boyutunu ayarla ve metni otomatik olarak çok satıra böl  TextRect := ClientRect;  Canvas.Font := Screen.HintFont;  DrawText(Canvas.Handle, PChar(Caption), Length(Caption),...

Detaylar

Oracle clob column rtf2text function;

 Oracle clob column rtf2text function;CREATE OR REPLACE FUNCTION Rtf2Txt ( pRtf varchar2 ) return nvarchar2 is /* Converts RTF text to TXT format by removing headers, commands, and formatting */ vPos1 int; vPos2 int; vPos3 int; vPos4 int; vTmp int; vText varchar2(4000); begin vText := pRtf; if vText is null then return vText; end if; -- Remove outer { and } pair vPos1 := instr(vText, '{', +1); -- The first { vPos2 := instr(vText, '}',...

Detaylar