ďťż

Ładny brzuch

Znalazłem poradę jak zrobić ładne dymki. Kod jest w Delphi i próbuję go przekonwertować pod Borlanda ale wywala 20! błędów a więcej już nie wiem jak i co zmienić :(
Oryginalny kod jest stąd 4programers a podobny Torry's Delphi
void __fastcall TForm1::FormCreate(TObject *Sender) {//OnCreate    CreateToolTips(Form1.Handle);    AddToolTip(Memo1.Handle, @ti, 1, 'Tooltip text', 'Title'); } //****************************************************************************** void __fastcall TForm1::CreateToolTips(Cardinal hWnd) {//BallonikCreate    hToolTip =  CreateWindowEx(0, "Tooltips_Class32", NULL, TTS_ALWAYSTIP || TTS_BALLOON,                int(CW_USEDEFAULT), int(CW_USEDEFAULT), int(CW_USEDEFAULT),                int(CW_USEDEFAULT), hWnd, 0, hInstance, NULL);    if(hToolTip != 0 ){        SetWindowPos(hToolTip, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE || SWP_NOSIZE || SWP_NOACTIVATE);        ti->cbSize =  SizeOf(TToolInfo);        ti->uFlags =  TTF_SUBCLASS;        ti->hInst  =  hInstance;   } } //****************************************************************************** //DELPHI procedure AddToolTip(hwnd: DWORD; lpti: PToolInfo; IconType: Integer; Text, Title: PChar); void __fastcall TForm1::AddToolTip(DWORD hwnd, PToolInfo lpti, int IconType, Text, char Title) {//ToolTip Add    THandle Item;    TRect   Rect;    Item =  hWnd;    if( (Item != 0) &&  (GetClientRect(Item, Rect)) ){        lpti->hwnd =  Item;        lpti->Rect =  Rect;        lpti->lpszText =  Text;        SendMessage(hToolTip, TTM_ADDTOOL, 0, int(lpti));        FillChar(buffer, SizeOf(buffer), #0);        lstrcpy(buffer, Title);        if( (IconType > 3) || (IconType < 0) ) IconType =  0;        SendMessage(hToolTip, TTM_SETTITLE, IconType, int(&buffer)); } //******************************************************************************
Użytkownik PabloX edytował ten post 31 maj 2006, 22:17

jakie bledy? wrozka jestem?

Dokładnie takie błędy błędy :blink:
Użytkownik PabloX edytował ten post 31 maj 2006, 22:29

Dokładnie takie błędy błędy  :blink:


Mmmmm :blink:
Dzięki

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •