Lingoes 2.9.1

نسخه 2.9.1  از دیکشنری قدرمند lingoes با قابلیت ترجمه متن البته بصورت انلاین جایگزینی تقریبا خوبی برای بابیلون.

دانلود

balloon tooltip

یک balloon tooltib زیبا و کاربردی در دلفی یک تابع برای نمایش است که شما را از استفاده کامپوننت بی نیاز می کند!

USES commctrl;

procedure BalloonTip(Control: TWinControl; Icon: integer; Title: pchar; Text: PWideChar;
BackCL, TextCL: TColor);
const
  TOOLTIPS_CLASS = 'tooltips_class32';
  TTS_ALWAYSTIP = $01;
  TTS_NOPREFIX = $02;
  TTS_BALLOON = $40;
  TTF_SUBCLASS = $0010;
  TTF_TRANSPARENT = $0100;
  TTF_CENTERTIP = $0002;
  TTM_ADDTOOL = $0400 + 50;
  TTM_SETTITLE = (WM_USER + 32);
  ICC_WIN95_CLASSES = $000000FF;
type
  TOOLINFO = packed record
    cbSize: Integer;
    uFlags: Integer;
    hwnd: THandle;
    uId: Integer;
    rect: TRect;
    hinst: THandle;
    lpszText: PWideChar;
    lParam: Integer;
  end;
var
  hWndTip: THandle;
  ti: TOOLINFO;
  hWnd: THandle;
begin
  hWnd    := Control.Handle;
  hWndTip := CreateWindow(TOOLTIPS_CLASS, nil,
    WS_POPUP or TTS_NOPREFIX or TTS_BALLOON or TTS_ALWAYSTIP,
    0, 0, 0, 0, hWnd, 0, HInstance, nil);
  if hWndTip <> 0 then
  begin
    SetWindowPos(hWndTip, HWND_TOPMOST, 0, 0, 0, 0,
      SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
    ti.cbSize := SizeOf(ti);
    ti.uFlags := TTF_CENTERTIP or TTF_TRANSPARENT or TTF_SUBCLASS;
    ti.hwnd := hWnd;
    ti.lpszText := Text;
    GetClientRect(hWnd, ti.rect);
    SendMessage(hWndTip, TTM_SETTIPBKCOLOR, BackCL, 0);
    SendMessage(hWndTip, TTM_SETTIPTEXTCOLOR, TextCL, 0);
    SendMessage(hWndTip, TTM_ADDTOOL, 1, Integer(@ti));
    SendMessage(hWndTip, TTM_SETTITLE, Icon mod 4, Integer(Title));
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
   BalloonTip(Button1, 2, 'SS',
  'http://lear4u.blogsky.com', clRed, clYellow);
end

آموزش خصوصی!

با سلام یکی از دوستان در مورد آموزش خصوصی پرسیده بود خدمت دوستمون عرض کنم شما شروع کنید هر جا مشکل داشتید من همه جوره در خدمتیم.برای شروع همه میتوانید یک ایبوک آموزشی از اینترنت بدون هیچ هزینه ای تهیه کنند و مفاهیم اولیه حتما یاد بگیرید تاکیید می کنند کتاب های سطح مبتدی را انتخاب کنندو این اشتباه را تکرار نکنند که از سطوح بالاتر شروع کنند.و همچنین کتاب الگورتیم و فلوچارت یادتون نره.

مجموعه DXHTML

مجموعه DHTMLX که فکر کنم Chart و Grid با قابلیت بومی سازی! و نسخه استاندارد ان از اینجا بصورت رایگان قابل دریافت است. من از گرید اون برای نمایش اطلاعات ازش استفاده می کنم تقریبا شکل مناسبی داره همچنین چند استایل مختلف هم در خودش داره فقط مشکلش با راست چپ داره اونهم اینه هدرش بهم میریزه که باید اطلاعاتت برعکس بخونی!

رفع مشکل خطای دلفی 2010 در ویندوز 7 هنگام اجرا

uses  Windows, Registry;
procedure RemoveEmbarcaderoRadStudios2010AutoUpdate;
var  Reg: TRegistry; begin 
Reg := TRegistry.Create; 
try 
Reg.RootKey := HKEY_CURRENT_USER; 
if Reg.OpenKey(  '\Software\CodeGear\BDS\7.0\AutoRun\UpdateCheck', True  ) then 
Reg.WriteString('ProgramToRun', '') 
else 
ShowMessage('Registry entry not found'); 
Reg.CloseKey; 
finally 
Reg.Free; 
end;
end;

ریسمان در دلفی!

مقاله از آقای محمود مهری در باره Threading در دلفی

دانلود

تغییر فونت Hint

type

  TSaHint = class(THintWindow)

  public

    constructor Create(AOwner: TComponent); override;

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



constructor TSaHint.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  with Canvas.Font do

  begin

    Name  := 'Verdana';

    Size  := Size + 15;

    Style := [fsBold, fsItalic];

  end;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

  HintWindowClass  := TsaHint;

end;