Сообщений в теме: 239

[Ybray]

спс за совет, но в работе используется listview

[Ybray]

разобрался, кому надо кратко:

...
{$R *.dfm}
type
pcolordata=^tcolordata;
tcolordata=record
textcolor:tcolor;
backcolor:tcolor;
end;
...
procedure Tmain.gridCustomDrawSubItem(Sender: TCustomListView; Item: TListItem;
SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
var
p: Pcolordata;
begin
//
if item.SubItems.Objects[subitem - 1] = nil then exit;
p:= pointer(item.SubItems.Objects[subitem - 1]);
sender.Canvas.Font.Color:= p^.textcolor;
sender.Canvas.Brush.Color:= p^.backcolor;
end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
p:PColorData;
li:TListItem;
begin
li:=listview1.Items.Add;
li.Caption:=edit1.Text;
GetMem(p,SizeOf(Tcolordata));
li.Data:=P;
p^.TextColor:=clred;
p^.BackColor:=clred;
li.SubItems.Add(Edit2.Text);
getmem(p,sizeof(Tcolordata));
li.SubItems.Objects[0]:=pointer(p);
p^.TextColor:=clred;
P^.BackColor:=clred;
end;

[Ybray]

вопрос: есть раскрашенная listview. при выделении записи мышкой, цвет выделения перекрашивает мою раскраску. как можно убрать цвет выделения?(сделать прозрачным)или вместо цвета выделения сделать рамку? (как я понял с помощь winapi)спс.

[Ybray]

вопрос все еще актуален.

[Bison]

Как в создать программу транслитерации (из казахского->eng) средствами Delphi 7? Сам принцип и как сделать мне известно, нужно узнать как сделать чтобы поддерживала казахскую кодировку?
сейчас вместо каз букв ставит '?' в Юните

[sobol]

в юните никак, если версия ниже 2010 - только она держат юникод по умолчанию. как выход используйте код символов через #, т.е. : kazalf='абвг...эюя'+#167#154#190

[sobol]

вопрос: есть раскрашенная listview. при выделении записи мышкой, цвет выделения перекрашивает мою раскраску. как можно убрать цвет выделения?(сделать прозрачным)или вместо цвета выделения сделать рамку? (как я понял с помощь winapi)спс.

переопределяйте значения Canvas.Brush и Сanvas.Font в OnCustomDraw

[Bison]

в юните никак, если версия ниже 2010 - только она держат юникод по умолчанию. как выход используйте код символов через #, т.е. : kazalf='абвг...эюя'+#167#154#190

пытаюсь сделать связку Delphi+Access через Datasource (BDE). раньше много раз это проделывал, сейчас пытаюсь сделать в Windows 7, не получается, выходит следующая ошибка:
DNS Error in ODBC Driver. Office 2007 для 32-битных

[sobol]

Почему БДЕ а не АДО?

[Bison]

Почему БДЕ а не АДО?

В BDE есть TTable + еще использовал TSource.
Вот эта ошибка возникает при соединении:

подскажите, пожалуйста

[sobol]

ADOConnection c мастером построения строки коннекта вам поможет я думаю.. а дальше - ADOTable + ADOQuery

[ct.kz]

....

Сообщение отредактировал ct.kz: 26.04.2010, 00:00:40

[Big Joe]

2 Bison

Не правильно прописал ConnectionString, вот пример;
"Driver= {MicrosoftAccessDriver(*.mdb)};DBQ=C:\Database_Name.mdb;Uid=Username;Pwd=Password;"

И лучше пользуйся Query а не Table.

[Bison]

спасибо, проблема решилась!

Сообщение отредактировал Bison: 28.04.2010, 00:08:25

[sobol]

Компонент грида сам по себе видимо не держит юникод.

[Bison]

Компонент грида сам по себе видимо не держит юникод.

там в общем, щрифт нужно правильно выбрать в Гриде. Вот так просто =))

Здравствуйте,
День мучаюсь с одним вопросом, можете подсказать как исправить ошибку?
Код, на который указывает ошибка:

function ConvertDateToString(Date: TDateTime): string;
var
year, month, day: word; //<-- type WORD, если другое написать норма, но как знаете функции DecodeDate нужны Word-параметры.
th, hn, tn, un: word;
begin
DecodeDate(Date, year, month, day);
...
end;

Ошибки:
[DCC Error] Unit1.pas(108): E2007 Constant or type identifier expected
[DCC Error] Unit1.pas(109): E2007 Constant or type identifier expected
[DCC Error] Unit1.pas(111): E2033 Types of actual and formal var parameters must be identical
[DCC Error] Unit1.pas(111): E2033 Types of actual and formal var parameters must be identical
[DCC Warning] Unit1.pas(115): W1023 Comparing signed and unsigned types - widened both operands

P.S. ОС - Виндоуз 7, 64-битный. Странно, в Дельфи-7 тип Word воспринимается адекватно.

[Big Joe]

2 Bison

А какая версия у тебя Delphi? Странно, если у тебя SysUtils компилится, который содержит функцию DecodeDate, то тип Word в принципе должен поддерживаться. В качестве временного решения используй
Copy() + DateToStr()

[Bison]

2 Big Joe
Спасибо, бро! Проблема глупая была, оказывается заранее определил переменную word.

[lu4ik11]

Добрый день!Очень прошу помощи!Другу дали дипломку "АИС Химчистка" и сделать ее нужно сегодня.Он не может ее выполнить,потому что на работе сутками.

Начну по порядку.
Я нашла подобную прогу,но за нее деньги надо оплачивать,если хочу полную работу.Я скачала неполную работу с готовым access и rav файлами.
Мне нужно понятным языком объяснить как подключиться к готовой БД Access ,чтобы заполнялись поля.

Помоги,плиз!

[sobol]

ADOConnection + ADOTable ну и дизайн всех форм и отчетов.. за день навряд ли успеете =) проще купить готовую