(Часть 2) Я начинающий, подскажите пожалуйста как...
Данная тема предназначена для размещения вопросов начинающих программистов.
Прежде чем задать вопрос здесь, вы обязаны использовать
Кроме того, прежде чем размещать сообщение, ознакомьтесь с правилами.
При размещении вопросов начинающих помимо указанной темы, будет выдаваться нарушение, а тема удаляться.
Прежде чем задать вопрос здесь, вы обязаны использовать
- Поиск по форуму, используя ключевые слова из вашего вопроса. Как правильно использовать поиск - читайте здесь
- Список наиболее часто задаваемых вопросов (FAQ)
- Поиск по предыдущей теме
Кроме того, прежде чем размещать сообщение, ознакомьтесь с правилами.
При размещении вопросов начинающих помимо указанной темы, будет выдаваться нарушение, а тема удаляться.
Цитата: kot_
Действительно в МСДН написано достаточно четко:
но если у вас установлена ДДК - то вы можете использовать либ-файл - но вероятно только в вижуал студии (возможно путем использования различных бубнов это можно и в борланде - но честно говоря не пробовал - если у вас получится опишите)
но если у вас установлена ДДК - то вы можете использовать либ-файл - но вероятно только в вижуал студии (возможно путем использования различных бубнов это можно и в борланде - но честно говоря не пробовал - если у вас получится опишите)
Я к сожалению без наглядного примера такое реализовать немогу.А гугл находит примеры только для майкрософтского вижуал студио.Которые на борланде выдают примерно такое
Код:
[C++ Error] Cannot convert int (__stdcall *)() to unsigned int (__stdcall *)
Цитата: _nic
Я к сожалению без наглядного примера такое реализовать немогу.А гугл находит примеры только для майкрософтского вижуал студио.Которые на борланде выдают примерно такое
Код:
[C++ Error] Cannot convert int (__stdcall *)() to unsigned int (__stdcall *)
код надо приводить полностью...
Цитата: _nic
Я к сожалению без наглядного примера такое реализовать немогу.А гугл находит примеры только для майкрософтского вижуал студио.Которые на борланде выдают примерно такое
Код:
[C++ Error] Cannot convert int (__stdcall *)() to unsigned int (__stdcall *)
какие наглядные примеры вам еще нужны? Как импортировать функции пример есть в ФАКе да и тема обсуждалась множество раз. То что это тема для начинающих - это вовсе не значит что ньюбам здесь будет расписан код который вам останется только откопипастить. Тем более если вы беретесь за системное программирование.
Думайте головой, используйте поиск и читайте литературу.
я только начал изучать бд Orcale, подскажите пожалуйста литературу из ряда Oralce + CppBuilder :o)
Можно как то настроить ListBox что бы он выводил строки содержащие табуляцию,с этой самой табуляцией?То есть что бы символы табуляции не заменялись на "квадратики"
Цитата: _nic
Можно как то настроить ListBox что бы он выводил строки содержащие табуляцию,с этой самой табуляцией?То есть что бы символы табуляции не заменялись на "квадратики"
символ '\t' уже не актуален?
Цитата: amisd
символ '\t' уже не актуален?
Я же написал что символы табуляции которые есть в строке почему то(как и переноса строки,пробелы)заменяются на "квадратики"
Цитата: _nic
Можно как то настроить ListBox что бы он выводил строки содержащие табуляцию,с этой самой табуляцией?То есть что бы символы табуляции не заменялись на "квадратики"
Стиль LBS_USETABSTOPS при создании ListBox'а.
Цитата: _nic
Я же написал что символы табуляции которые есть в строке почему то(как и переноса строки,пробелы)заменяются на "квадратики"
Код:
class TMyListBox : public TListBox
{
private:
protected:
public:
void __fastcall CreateParams(TCreateParams &Params);
void __fastcall CreateWnd();
__fastcall TMyListBox(Classes::TComponent* AOwner) : TListBox(AOwner){};
};
void __fastcall TMyListBox::CreateParams(TCreateParams &Params)
{
TListBox::CreateParams(Params);
Params.Style = Params.Style | LBS_USETABSTOPS;
}
void __fastcall TMyListBox::CreateWnd()
{
TListBox::CreateWnd();
int HorzBaseUnit = LOWORD(GetDialogBaseUnits());
int tabarray[4] = {100, 200, 800, 900};
for (int index = 0; index < 4; index++)
tabarray[index] = (tabarray[index] * 4) / HorzBaseUnit;
Perform(LB_SETTABSTOPS, (WPARAM)4, (LPARAM)tabarray);
Perform(LB_SETHORIZONTALEXTENT, 900, 0);
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TMyListBox* mlb = new TMyListBox(this);
mlb->Parent = this;
mlb->SetBounds(20,20, 300, 300);
mlb->Visible = true;
mlb->Items->Add("\tстрока1");
mlb->Items->Add("\tстрока2");
mlb->Items->Add("\tстрока3");
}
{
private:
protected:
public:
void __fastcall CreateParams(TCreateParams &Params);
void __fastcall CreateWnd();
__fastcall TMyListBox(Classes::TComponent* AOwner) : TListBox(AOwner){};
};
void __fastcall TMyListBox::CreateParams(TCreateParams &Params)
{
TListBox::CreateParams(Params);
Params.Style = Params.Style | LBS_USETABSTOPS;
}
void __fastcall TMyListBox::CreateWnd()
{
TListBox::CreateWnd();
int HorzBaseUnit = LOWORD(GetDialogBaseUnits());
int tabarray[4] = {100, 200, 800, 900};
for (int index = 0; index < 4; index++)
tabarray[index] = (tabarray[index] * 4) / HorzBaseUnit;
Perform(LB_SETTABSTOPS, (WPARAM)4, (LPARAM)tabarray);
Perform(LB_SETHORIZONTALEXTENT, 900, 0);
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TMyListBox* mlb = new TMyListBox(this);
mlb->Parent = this;
mlb->SetBounds(20,20, 300, 300);
mlb->Visible = true;
mlb->Items->Add("\tстрока1");
mlb->Items->Add("\tстрока2");
mlb->Items->Add("\tстрока3");
}
просто так поменять стиль не дает хз. почему?
Подскажите:
Как можно сохранить динамически созданные объекты(в частности картинки)???
Как можно сохранить динамически созданные объекты(в частности картинки)???
Цитата: COTPYDHuK
Подскажите:
Как можно сохранить динамически созданные объекты(в частности картинки)???
Как можно сохранить динамически созданные объекты(в частности картинки)???
У наследников TGraphic есть метод:
TGraphic::SaveToFile
Мучаюсь, не могу создать DLL с формой, чтоб подключить библеотеку DLL к другоми проекту и вызвать от туда формочку методом ShowModal. Учебники перерыл - там это не объясняется подробно....Помогите пожалуйста!!
Цитата: GIZMO
У наследников TGraphic есть метод:
TGraphic::SaveToFile
TGraphic::SaveToFile
А можно сохранить несколько объектов в один файл, с сохранением их координат?
используйте поиск - иначе получите нарушение - вопрос задавался тысячи раз.
Код:
//loadmodule.h
#ifndef loadmoduleH
#define loadmoduleH
#include <SysUtils.hpp>
//---------------------------------------------------------------------------
extern "C" __declspec(dllexport) HWND LoadForm();
#endif
//loadmodule.cpp
#pragma hdrstop
#include "loadmodule.h"
#include "main.h"
//---------------------------------------------------------------------------
HWND LoadForm(){
TfmMain *fmMain = new TfmMain(NULL);
fmMain->ShowModal();
delete fmMain;
return 0;
}
#ifndef loadmoduleH
#define loadmoduleH
#include <SysUtils.hpp>
//---------------------------------------------------------------------------
extern "C" __declspec(dllexport) HWND LoadForm();
#endif
//loadmodule.cpp
#pragma hdrstop
#include "loadmodule.h"
#include "main.h"
//---------------------------------------------------------------------------
HWND LoadForm(){
TfmMain *fmMain = new TfmMain(NULL);
fmMain->ShowModal();
delete fmMain;
return 0;
}
Цитата: COTPYDHuK
А можно сохранить несколько объектов в один файл, с сохранением их координат?
можно. реализовав собственный класс графического объекта например.
Цитата: GIZMO
Код:
class TMyListBox : public TListBox
{
private:
protected:
public:
void __fastcall CreateParams(TCreateParams &Params);
void __fastcall CreateWnd();
__fastcall TMyListBox(Classes::TComponent* AOwner) : TListBox(AOwner){};
};
void __fastcall TMyListBox::CreateParams(TCreateParams &Params)
{
TListBox::CreateParams(Params);
Params.Style = Params.Style | LBS_USETABSTOPS;
}
void __fastcall TMyListBox::CreateWnd()
{
TListBox::CreateWnd();
int HorzBaseUnit = LOWORD(GetDialogBaseUnits());
int tabarray[4] = {100, 200, 800, 900};
for (int index = 0; index < 4; index++)
tabarray[index] = (tabarray[index] * 4) / HorzBaseUnit;
Perform(LB_SETTABSTOPS, (WPARAM)4, (LPARAM)tabarray);
Perform(LB_SETHORIZONTALEXTENT, 900, 0);
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TMyListBox* mlb = new TMyListBox(this);
mlb->Parent = this;
mlb->SetBounds(20,20, 300, 300);
mlb->Visible = true;
mlb->Items->Add("\tстрока1");
mlb->Items->Add("\tстрока2");
mlb->Items->Add("\tстрока3");
}
{
private:
protected:
public:
void __fastcall CreateParams(TCreateParams &Params);
void __fastcall CreateWnd();
__fastcall TMyListBox(Classes::TComponent* AOwner) : TListBox(AOwner){};
};
void __fastcall TMyListBox::CreateParams(TCreateParams &Params)
{
TListBox::CreateParams(Params);
Params.Style = Params.Style | LBS_USETABSTOPS;
}
void __fastcall TMyListBox::CreateWnd()
{
TListBox::CreateWnd();
int HorzBaseUnit = LOWORD(GetDialogBaseUnits());
int tabarray[4] = {100, 200, 800, 900};
for (int index = 0; index < 4; index++)
tabarray[index] = (tabarray[index] * 4) / HorzBaseUnit;
Perform(LB_SETTABSTOPS, (WPARAM)4, (LPARAM)tabarray);
Perform(LB_SETHORIZONTALEXTENT, 900, 0);
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TMyListBox* mlb = new TMyListBox(this);
mlb->Parent = this;
mlb->SetBounds(20,20, 300, 300);
mlb->Visible = true;
mlb->Items->Add("\tстрока1");
mlb->Items->Add("\tстрока2");
mlb->Items->Add("\tстрока3");
}
просто так поменять стиль не дает хз. почему?
К сожалению этот способ мне не подходит :( Может есть какая нибудь альтернатива ListBox которая будет выводит строки с символами табуляции?
Цитата: _nic
К сожалению этот способ мне не подходит :( Может есть какая нибудь альтернатива ListBox которая будет выводит строки с символами табуляции?
TListView
Цитата: _nic
К сожалению этот способ мне не подходит :( Может есть какая нибудь альтернатива ListBox которая будет выводит строки с символами табуляции?
вы можете установить стиль lbVirtual либо lbVirtualOwnerDraw и выводить все что вам заблагорассудится.
А можно как то в канву ListBox засунуть картинку? Загруженную из ресурсов с помощью TBitmap.В гугле есть примеры только под делфи и только для TreeView :(
Цитата: _nic
А можно как то в канву ListBox засунуть картинку? Загруженную из ресурсов с помощью TBitmap.В гугле есть примеры только под делфи и только для TreeView :(
Да.....используй OwnerDraw,т.е. собственную прорисовку....
Цитата: dufifa
Да.....используй OwnerDraw,т.е. собственную прорисовку....
Мда конечно же очень информативно.В листбокс нет не ListBox1->OwnerDraw , не ListBox1->Owner->Draw
Ну ошибся на память.....есть зато onDrawItem - прорисовка каждой строки. Берёшь картинки из ImageList и вперёд.....в инете есть куча примеров кода, как это делать....
Цитата: _nic
Мда конечно же очень информативно.В листбокс нет не ListBox1->OwnerDraw , не ListBox1->Owner->Draw
вобщето в справке есть пример - как выводить строки с картинками, все что надо - это нажать Ф1
Код:
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index, TRect &Rect, TOwnerDrawState State)
{
Graphics::TBitmap *pBitmap; // temporary variable for item’s bitmap
int Offset = 2; // default text offset width
// note that we draw on the listbox’s canvas, not on the form
TCanvas *pCanvas = ((TListBox *)Control)->Canvas;
pCanvas->FillRect(Rect); // clear the rectangle
pBitmap = (Graphics::TBitmap *)((TListBox *)Control)->Items->Objects[Index];
if (pBitmap)
{
pCanvas->BrushCopy(Bounds(Rect.Left + Offset, Rect.Top, pBitmap->Width, pBitmap->Height), pBitmap, Bounds(0, 0, pBitmap->Width, pBitmap->Height), clRed); // render bitmap
Offset += pBitmap->Width + 4; // add four pixels between bitmap and text
}
// display the text
pCanvas->TextOut(Rect.Left + Offset, Rect.Top, ((TListBox *)Control)->Items->Strings[Index]);
}
{
Graphics::TBitmap *pBitmap; // temporary variable for item’s bitmap
int Offset = 2; // default text offset width
// note that we draw on the listbox’s canvas, not on the form
TCanvas *pCanvas = ((TListBox *)Control)->Canvas;
pCanvas->FillRect(Rect); // clear the rectangle
pBitmap = (Graphics::TBitmap *)((TListBox *)Control)->Items->Objects[Index];
if (pBitmap)
{
pCanvas->BrushCopy(Bounds(Rect.Left + Offset, Rect.Top, pBitmap->Width, pBitmap->Height), pBitmap, Bounds(0, 0, pBitmap->Width, pBitmap->Height), clRed); // render bitmap
Offset += pBitmap->Width + 4; // add four pixels between bitmap and text
}
// display the text
pCanvas->TextOut(Rect.Left + Offset, Rect.Top, ((TListBox *)Control)->Items->Strings[Index]);
}
Когда подгружаю точечный файл хоть из ресурсов хоть из файла стабильно вылазит Access Violation.
Цитата: _nic
Хм добавляю итемы в листбокс ListBox1->Items->Add() А код в ListBox1DrawItem вообще не срабатывает, 0 реакции.Перепробовал все стили.Что я упустил :confused:
я так думаю что много чего упустили. вопервых - обратите внимание - картинки которые выводятся, должны быть загружены в объект. Т.е. ваш код должен быть примерно такой (очисткой памяти и прочим вы занимайтесь сами - это просто пример загрузки рисунка). Я загружаю рисунок из файла по нажатию на кнопку - а вы уже разберетесь сами надеюсь, как вам добыть рисунки из ресурсов - благо на форуме это сто раз обсуждалось.
Код:
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
if(!OpenPictureDialog1->Execute())return;
Graphics::TBitmap *pBitmap = new Graphics::TBitmap;
pBitmap->LoadFromFile(OpenPictureDialog1->FileName);
ListBox1->Items->AddObject("Test",pBitmap);
}
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
TRect &Rect, TOwnerDrawState State)
{
Graphics::TBitmap *pBitmap; // temporary variable for item’s bitmap
int Offset = 2; // default text offset width
// note that we draw on the listbox’s canvas, not on the form
TCanvas *pCanvas = ((TListBox *)Control)->Canvas;
pCanvas->FillRect(Rect); // clear the rectangle
pBitmap = (Graphics::TBitmap *)((TListBox *)Control)->Items->Objects[Index];
if (pBitmap)
{
pCanvas->BrushCopy(Bounds(Rect.Left + Offset, Rect.Top, pBitmap->Width, pBitmap->Height), pBitmap, Bounds(0, 0, pBitmap->Width, pBitmap->Height), clRed); // render bitmap
Offset += pBitmap->Width + 4; // add four pixels between bitmap and text
}
// display the text
pCanvas->TextOut(Rect.Left + Offset, Rect.Top, ((TListBox *)Control)->Items->Strings[Index]);
}
{
if(!OpenPictureDialog1->Execute())return;
Graphics::TBitmap *pBitmap = new Graphics::TBitmap;
pBitmap->LoadFromFile(OpenPictureDialog1->FileName);
ListBox1->Items->AddObject("Test",pBitmap);
}
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
TRect &Rect, TOwnerDrawState State)
{
Graphics::TBitmap *pBitmap; // temporary variable for item’s bitmap
int Offset = 2; // default text offset width
// note that we draw on the listbox’s canvas, not on the form
TCanvas *pCanvas = ((TListBox *)Control)->Canvas;
pCanvas->FillRect(Rect); // clear the rectangle
pBitmap = (Graphics::TBitmap *)((TListBox *)Control)->Items->Objects[Index];
if (pBitmap)
{
pCanvas->BrushCopy(Bounds(Rect.Left + Offset, Rect.Top, pBitmap->Width, pBitmap->Height), pBitmap, Bounds(0, 0, pBitmap->Width, pBitmap->Height), clRed); // render bitmap
Offset += pBitmap->Width + 4; // add four pixels between bitmap and text
}
// display the text
pCanvas->TextOut(Rect.Left + Offset, Rect.Top, ((TListBox *)Control)->Items->Strings[Index]);
}
во вторых - обязательно установите стиль lbOwnerDrawFixed или lbOwnerDrawVariable
Здравствуйте!!!
После динамической загрузки html-странички в TCppWebBrowser неверно работают закладки(взял пример из FAQа). Также из тем форума узнал, что для верной работы необходимо:
1. Получить IHTMLDocument2 (из CppWebBrowser1->Document);
2. Получить коллекцию элементов IHTMLElementCollection (IHTMLDocument2::get_all);
3. Найти нужный элемент (IHTMLElementCollection::item) и вызвать scrollIntoView(TVariant(true)).
Но именно это я и не могу закодировать. Помогите:приведите пожалуйста код!
Спасибо.
После динамической загрузки html-странички в TCppWebBrowser неверно работают закладки(взял пример из FAQа). Также из тем форума узнал, что для верной работы необходимо:
1. Получить IHTMLDocument2 (из CppWebBrowser1->Document);
2. Получить коллекцию элементов IHTMLElementCollection (IHTMLDocument2::get_all);
3. Найти нужный элемент (IHTMLElementCollection::item) и вызвать scrollIntoView(TVariant(true)).
Но именно это я и не могу закодировать. Помогите:приведите пожалуйста код!
Спасибо.
Цитата: Dmitryl
Здравствуйте!!!
После динамической загрузки html-странички в TCppWebBrowser неверно работают закладки(взял пример из FAQа). Также из тем форума узнал, что для верной работы необходимо:
1. Получить IHTMLDocument2 (из CppWebBrowser1->Document);
2. Получить коллекцию элементов IHTMLElementCollection (IHTMLDocument2::get_all);
3. Найти нужный элемент (IHTMLElementCollection::item) и вызвать scrollIntoView(TVariant(true)).
Но именно это я и не могу закодировать. Помогите:приведите пожалуйста код!
Спасибо.
После динамической загрузки html-странички в TCppWebBrowser неверно работают закладки(взял пример из FAQа). Также из тем форума узнал, что для верной работы необходимо:
1. Получить IHTMLDocument2 (из CppWebBrowser1->Document);
2. Получить коллекцию элементов IHTMLElementCollection (IHTMLDocument2::get_all);
3. Найти нужный элемент (IHTMLElementCollection::item) и вызвать scrollIntoView(TVariant(true)).
Но именно это я и не могу закодировать. Помогите:приведите пожалуйста код!
Спасибо.
попробуй в примере из ФАК'а № 33 вместо pElement->click();
подтставить pElement->scrollIntoView(TVariant(true));
Цитата:
попробуй в примере из ФАК'а № 33 вместо pElement->click();
подтставить pElement->scrollIntoView(TVariant(true));
подтставить pElement->scrollIntoView(TVariant(true));
Попробовал, но дело подпортила строка
pCollection->item(TVariant(WideString(ButtonName)), TVariant(0), &pDisp);
Смотрел описание ф-ции в msdn, но страницы открываются с ошибкой и полного описания я не увидел.
Пробовал вместо ButtonName писать имя закладки, но pDisp возвращается нулевым.
Цитата: kot_
я так думаю что много чего упустили. вопервых - обратите внимание - картинки которые выводятся, должны быть загружены в объект. Т.е. ваш код должен быть примерно такой (очисткой памяти и прочим вы занимайтесь сами - это просто пример загрузки рисунка). Я загружаю рисунок из файла по нажатию на кнопку - а вы уже разберетесь сами надеюсь, как вам добыть рисунки из ресурсов - благо на форуме это сто раз обсуждалось.
во вторых - обязательно установите стиль lbOwnerDrawFixed или lbOwnerDrawVariable
во вторых - обязательно установите стиль lbOwnerDrawFixed или lbOwnerDrawVariable
Если листбок заполнять в цикле то потом при выделение одного итема у нескольких нижних пропадает прорисованная картинка,если выделить итем в котором пропала картинка то она появляется опять.Я так понимаю при выделении итема они все перерисовываются соответственно для каждого из них должен опять срабатывать код в DrawItem .Но вот я немогу понять почему он несрабатывает для нескольких итемов ниже
выделенного :confused:
Цитата: _nic
Если листбок заполнять в цикле то потом при выделение одного итема у нескольких нижних пропадает прорисованная картинка,если выделить итем в котором пропала картинка то она появляется опять.Я так понимаю при выделении итема они все перерисовываются соответственно для каждого из них должен опять срабатывать код в DrawItem .Но вот я немогу понять почему он несрабатывает для нескольких итемов ниже
выделенного :confused:
выделенного :confused:
используйте отладчик - и посмотрите что происходит при перерисовке. Я не телепат, и не могу знать что и как вы делаете - проверьте что все указатели валидны, прочтите внимательно справку по данному событию и по темам которые с ним связаны. в конце концов - это ваша задача и кроме вас ее решать никто не будет.
Цитата: Dmitryl
Попробовал, но дело подпортила строка
pCollection->item(TVariant(WideString(ButtonName)), TVariant(0), &pDisp);
Смотрел описание ф-ции в msdn, но страницы открываются с ошибкой и полного описания я не увидел.
Пробовал вместо ButtonName писать имя закладки, но pDisp возвращается нулевым.
pCollection->item(TVariant(WideString(ButtonName)), TVariant(0), &pDisp);
Смотрел описание ф-ции в msdn, но страницы открываются с ошибкой и полного описания я не увидел.
Пробовал вместо ButtonName писать имя закладки, но pDisp возвращается нулевым.
Что ты вообще хочешь этим кодом сделать? если перейти к определенному элементу (прокрутить страницу напр.), то у меня все работает.
Цитата: _nic
Если листбок заполнять в цикле то потом при выделение одного итема у нескольких нижних пропадает прорисованная картинка,если выделить итем в котором пропала картинка то она появляется опять.Я так понимаю при выделении итема они все перерисовываются соответственно для каждого из них должен опять срабатывать код в DrawItem .Но вот я немогу понять почему он несрабатывает для нескольких итемов ниже
выделенного :confused:
выделенного :confused:
1. Надо код приводить свой, а то так затруднительно понять в чем дело.
2. Вот это ты видел:
Код:
typedef void __fastcall (__closure *TDrawItemEvent)(Controls::TWinControl* Control, int Index, const Windows::TRect &Rect, TOwnerDrawState State);
TOwnerDrawState State - т.е. этот параметр и говорит тебе какое состояние у итема - выбран, не выбран, в фокусе, недоступен и т.д. Это надо отслеживать
Код:
if(State.Contains(odFocused )
...
...
и рисовать соответственно.
Цитата: GIZMO
1. Надо код приводить свой, а то так затруднительно понять в чем дело.
Код:
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Graphics::TBitmap *pBitmap = new Graphics::TBitmap;
pBitmap->LoadFromResourceName((int)HInstance,"IDB_BITMAP1");
for(int i=0; i<30;i++)
{
ListBox1->Items->AddObject("qwerty",pBitmap);
}
}
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
TRect &Rect, TOwnerDrawState State)
{
Graphics::TBitmap *pBitmap;
int Offset = 1;
TCanvas *pCanvas = ((TListBox *)Control)->Canvas;
pCanvas->FillRect(Rect); // clear the rectangle
pBitmap = (Graphics::TBitmap *)((TListBox *)Control)->Items->Objects[Index];
if (pBitmap)
{
pCanvas->BrushCopy(Bounds(Rect.Left + Offset, Rect.Top, pBitmap->Width, pBitmap->Height), pBitmap, Bounds(0, 0, pBitmap->Width, pBitmap->Height), clWhite);
Offset += pBitmap->Width+1; // add four pixels between bitmap and text
}
pCanvas->TextOut(Rect.Left + Offset, Rect.Top, ((TListBox *)Control)->Items->Strings[Index]);
}
{
Graphics::TBitmap *pBitmap = new Graphics::TBitmap;
pBitmap->LoadFromResourceName((int)HInstance,"IDB_BITMAP1");
for(int i=0; i<30;i++)
{
ListBox1->Items->AddObject("qwerty",pBitmap);
}
}
void __fastcall TForm1::ListBox1DrawItem(TWinControl *Control, int Index,
TRect &Rect, TOwnerDrawState State)
{
Graphics::TBitmap *pBitmap;
int Offset = 1;
TCanvas *pCanvas = ((TListBox *)Control)->Canvas;
pCanvas->FillRect(Rect); // clear the rectangle
pBitmap = (Graphics::TBitmap *)((TListBox *)Control)->Items->Objects[Index];
if (pBitmap)
{
pCanvas->BrushCopy(Bounds(Rect.Left + Offset, Rect.Top, pBitmap->Width, pBitmap->Height), pBitmap, Bounds(0, 0, pBitmap->Width, pBitmap->Height), clWhite);
Offset += pBitmap->Width+1; // add four pixels between bitmap and text
}
pCanvas->TextOut(Rect.Left + Offset, Rect.Top, ((TListBox *)Control)->Items->Strings[Index]);
}
При выделение итема видно такое
http://img139.imageshack.us/my.php?image=47176811sz0.jpg Вроде при выделение итема на месте рисунка или пустое место оказывается :confused: или что то перекрывает канву в том месте :confused:
Цитата:
Что ты вообще хочешь этим кодом сделать? если перейти к определенному элементу (прокрутить страницу напр.), то у меня все работает.
Я хочу нажав ссылку
Код:
<A href="#Ref">Main</A>
Код:
<B id="Ref">Main</B>
если динамически загружаешь в about :blank, тогда надо реализовывать свой протокол, по которому IE поймет куда ему надо переходить
http://www.rsdn.ru//article/inet/pluggprotocol.xml
http://www.rsdn.ru//article/inet/pluggprotocol.xml
Цитата: Dmitryl
Я хочу нажав ссылку
перейти к
в этом же документе, а в результате получается переход на пустую страницу, все содержимое которой: blank#Ref
Код:
<A href="#Ref">Main</A>
Код:
<B id="Ref">Main</B>
Напиши в своем HTML-документе так:
Код:
<a href="#Ref">Go to "Ref"</a>
<!-- SOMETHING //-->
<a name="Ref"></a><b>Main</b>
<!-- SOMETHING //-->
<a name="Ref"></a><b>Main</b>
Доброго утра.
Чтобы юзать флэш activeX - я сделал его импорт ocx файла и всё такое. Импорт прошёл по установленному в данный момент ocx в системе - flash9f.ocx.
А если я хочу теперь сделать программу с использованием, например flash8.ocx - как мне удалить текущую версию компонента и установить более старую версию?.. В систему нужный ocx я ставлю, но в билдер не получается. Если просто заново попытаться поставить - пишет, мол, уже установлено, отстань. А как удалить - нигде не нашёл.
Чтобы юзать флэш activeX - я сделал его импорт ocx файла и всё такое. Импорт прошёл по установленному в данный момент ocx в системе - flash9f.ocx.
А если я хочу теперь сделать программу с использованием, например flash8.ocx - как мне удалить текущую версию компонента и установить более старую версию?.. В систему нужный ocx я ставлю, но в билдер не получается. Если просто заново попытаться поставить - пишет, мол, уже установлено, отстань. А как удалить - нигде не нашёл.
Цитата: maxio
А если я хочу теперь сделать программу с использованием, например flash8.ocx - как мне удалить текущую версию компонента и установить более старую версию?.. В систему нужный ocx я ставлю, но в билдер не получается. Если просто заново попытаться поставить - пишет, мол, уже установлено, отстань. А как удалить - нигде не нашёл.
Надо удалить его из того пакажда куда ты его поставил и перекомпилить пакадж. Скорее всего это dclusr.
[SIZE="1"]Что-то в поиске не нашел ответ на свой вопрос, ну он плевый, так что если я повторюсь, то ничего страшного, я думаю.[/SIZE]
Пусть я определил функцию
void __fascall TForm1::Button1Click(TObject *Sender){...}
С какими параметрами мне ее можно вызвать?
На: Button1Click(); пишет что мало параметров...
на Button1Click(Sender) тоже ругается, пробовал и другие варианты, но видимо не все...
Пусть я определил функцию
void __fascall TForm1::Button1Click(TObject *Sender){...}
С какими параметрами мне ее можно вызвать?
На: Button1Click(); пишет что мало параметров...
на Button1Click(Sender) тоже ругается, пробовал и другие варианты, но видимо не все...
Цитата: Krrechet
[SIZE="1"]Что-то в поиске не нашел ответ на свой вопрос, ну он плевый, так что если я повторюсь, то ничего страшного, я думаю.[/SIZE]
Пусть я определил функцию
void __fascall TForm1::Button1Click(TObject *Sender){...}
С какими параметрами мне ее можно вызвать?
На: Button1Click(); пишет что мало параметров...
на Button1Click(Sender) тоже ругается, пробовал и другие варианты, но видимо не все...
Пусть я определил функцию
void __fascall TForm1::Button1Click(TObject *Sender){...}
С какими параметрами мне ее можно вызвать?
На: Button1Click(); пишет что мало параметров...
на Button1Click(Sender) тоже ругается, пробовал и другие варианты, но видимо не все...
Вызывается так:
Код:
Button1->Click();
Button1Click(Button1); //Можно вместо Button1 исп. Memo1, StringGrid1 и т.п.
Button1Click(Button1); //Можно вместо Button1 исп. Memo1, StringGrid1 и т.п.
Вообще, Sender - это объект, который вызывает Button1Click... Например, удобно использовате, если у тебя 10ть кнопок, а обработчик для всех один... тогда идентифицируешь надатую кнопку по ((TButton*)Sender)->Tag, например ;)
PS: Написано, что Sender - это TObject ;)