FastNet в Delphi v7
Дрова!
Кто подскажет эквивалент FastNet в Delphi7
Подписаться
Бесплатный дискуссионный лист
Подписчиков 308
За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Модератор
Статистика
308 подписчиков
0 за неделю
0 за неделю
За 2004-03-03
SoftICE + Win2k
Здарова, программеры!
Имеется у меня NuMega SoftICE 4.01 WinNT/2000 и имеется известный глюк
Win2k+SoftICE - отключается драйвер клавиатуры.
В readme к SoftICE написано что надо сменить файл i8042prt.sys
(Драйвер порта i8042) на тот который был протестирован. Я скачал
несколько файлов i8042prt.sys. Ни один не подошел:
с некоторыми винда просто не грузилась
с другими клава работала но тормозила (секунд эдак на 5-10)
Может посоветуете откуда скачать стопудово рабочую версию i8042prt.sys
для моей винды:
Microsoft Windows 2000
5.00.2195
Service Pack 3
Сейчас у меня файл i8042prt.sys имеет версию 5.0.2195.4900
PS: Я пробовал следующие файлы
5.0.1852.1
5.0.1901.1
5.0.1995.1
5.0.2012.1
Ищу программистов
Уважаемые коллеги!
Создается команда программистов (работа удаленная)
для написания программы по расчету тарифов
на грузовые железнодорожные перевозки.
Проект финансироваться не будет, однако все участники
проекта будут получать деньги с реализации каждой копии программы
пропорционально своему вкаду. Под разработку будет создан сайт
на котором можно будет смотреть состояние дел и выбирать куски
программ.
С уважением,
v mailto:ksv***@m*****.ru
Номер выпуска : 2425
Возраст листа : 163 (дней)
Количество подписчиков : 381
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/96065
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Delphi - Графика
Есть прога-не большой паинт
Есть кривая, линия, круг, прямоугольник
Как при нажатие кнопки сделать трехмерные объекты из уже нарисованного, тоесть
если нарисована линия то просто палку в 3D формате, с тремя проекциями
если нарисована кривая то просто шланг в 3D формате, с тремя проекциями
если нарисован круг то просто сферу в 3D формате, с тремя проекциями
если нарисована прямоугольник то просто прямоугольник в 3D формате, с тремя проекциями
Чтоб рисунки не чем не отличались кроме того что одни в 3D формате, с тремя проекциями,
с одинаковыми размерами
Хотелось бы увидеть код, очень
Всем заранее спасибо
вот код паинта
unit Unit1;
interface
uses
Windows,Graphics,Forms,Controls, Dialogs, Buttons, ExtCtrls, StdCtrls,
Classes;
const
crMove = 1;
type
TDrawType = (dtLineDraw, dtRectangle, dtEllipse, dtRoundRect,
dtClipRect, dtCrooked);
TForm1 = class(TForm)
OpenDialog: TOpenDialog;
Panel1: TPanel;
Panel2: TPanel;
sbLine: TSpeedButton;
sbRectangle: TSpeedButton;
sbEllipse: TSpeedButton;
sbFreeForm: TSpeedButton;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Panel3: TPanel;
imgDrawingPad: TImage;
SaveDialog: TSaveDialog;
procedure FormCreate(Sender: TObject);
procedure sbLineClick(Sender: TObject);
procedure imgDrawingPadMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure imgDrawingPadMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure imgDrawingPadMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure mmiExitClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure mmiNewFileClick(Sender: TObject);
procedure pbPasteBoxMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure pbPasteBoxMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure pbPasteBoxPaint(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
public
{ Public declarations }
MouseOrg: TPoint;
NextPoint: TPoint;
Drawing: Boolean;
DrawType: TDrawType;
FillSelected,
BorderSelected: Boolean;
EraseClipRect: Boolean;
Modified: Boolean;
FileName: String;
OldClipViewHwnd: Hwnd;
PBoxMoving: Boolean;
PBoxMouseOrg: TPoint;
PasteBitMap: TBitmap;
Pasted: Boolean;
LastDot: TPoint;
procedure DrawToImage(TL, BR: TPoint; PenMode: TPenMode);
procedure SetDrawingStyle;
end;
var
Form1: TForm1;
Rslt: Word;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
BorderIcons := [biSystemMenu]+[biMinimize];
Screen.Cursors[crMove] := LoadCursor(hInstance, 'MOVE');
FillSelected := False;
BorderSelected := True;
Modified := False;
FileName := '';
Pasted := False;
with imgDrawingPad do
begin
SetBounds(0, 0, 600, 400);
Picture.Graphic := TBitMap.Create;
Picture.Graphic.Width := 600;
Picture.Graphic.Height := 400;
end;
PasteBitmap := TBitmap.Create;
OldClipViewHwnd := SetClipBoardViewer(Handle);
end;
procedure TForm1.DrawToImage(TL, BR: TPoint; PenMode: TPenMode);
begin
with imgDrawingPad.Canvas do
begin
Pen.Mode := PenMode;
case DrawType of
dtLineDraw:
begin
MoveTo(TL.X, TL.Y);
LineTo(BR.X, BR.Y);
end;
dtRectangle:
Rectangle(TL.X, TL.Y, BR.X, BR.Y);
dtEllipse:
Ellipse(TL.X, TL.Y, BR.X, BR.Y);
dtRoundRect:
RoundRect(TL.X, TL.Y, BR.X, BR.Y,
(TL.X - BR.X) div 2, (TL.Y - BR.Y) div 2);
dtClipRect:
Rectangle(TL.X, TL.Y, BR.X, BR.Y);
end;
end;
end;
procedure TForm1.imgDrawingPadMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Modified := True;
if (DrawType = dtClipRect) and EraseClipRect then
DrawToImage(MouseOrg, NextPoint, pmNotXOR)
else if (DrawType = dtClipRect) then
EraseClipRect := True;
Drawing := True;
MouseOrg := Point(X, Y);
NextPoint := MouseOrg;
LastDot := NextPoint;
imgDrawingPad.Canvas.MoveTo(X, Y);
end;
procedure TForm1.imgDrawingPadMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if Drawing then
begin
if DrawType = dtCrooked then
begin
imgDrawingPad.Canvas.MoveTo(LastDot.X, LastDot.Y);
imgDrawingPad.Canvas.LineTo(X, Y);
LastDot := Point(X,Y);
end
else begin
DrawToImage(MouseOrg, NextPoint, pmNotXor);
NextPoint := Point(X, Y);
DrawToImage(MouseOrg, NextPoint, pmNotXor)
end;
end;
end;
procedure TForm1.imgDrawingPadMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Drawing then
if not (DrawType = dtClipRect) then
DrawToImage(MouseOrg, Point(X, Y), pmCopy);
Drawing := False;
end;
procedure TForm1.sbLineClick(Sender: TObject);
begin
if DrawType = dtClipRect then
DrawToImage(MouseOrg, NextPoint, pmNotXOR);
if Sender is TSpeedButton then
DrawType := TDrawType(TSpeedButton(Sender).Tag);
if DrawType = dtClipRect then begin
EraseClipRect := False;
end;
SetDrawingStyle;
end;
procedure TForm1.SetDrawingStyle;
begin
with imgDrawingPad do
begin
if DrawType = dtClipRect then
begin
Canvas.Pen.Style := psDot;
Canvas.Brush.Style := bsClear;
Canvas.Pen.Color := clBlack;
end
else if FillSelected then
Canvas.Brush.Style := bsSolid
else
Canvas.Brush.Style := bsClear;
if BorderSelected then
Canvas.Pen.Style := psSolid
else
Canvas.Pen.Style := psClear;
end;
end;
procedure TForm1.mmiExitClick(Sender: TObject);
begin
Close;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := False;
if Modified then begin
Rslt := MessageDlg('Сохранить?', mtConfirmation, mbYesNOCancel, 0);
case Rslt of
mrNo: ;
mrCancel: Exit;
end
end;
CanClose := True;
end;
procedure TForm1.mmiNewFileClick(Sender: TObject);
var
Rslt: Word;
begin
if Modified then begin
Rslt := MessageDlg('Сохранить?', mtConfirmation, mbYesNOCancel, 0);
case Rslt of
mrNo: ;
mrCancel: Exit;
end
end;
with imgDrawingPad.Canvas do begin
Brush.Style := bsSolid;
Brush.Color := clWhite;
FillRect(ClipRect);
FileName := '';
end;
SetDrawingStyle;
Modified := False;
end;
procedure TForm1.pbPasteBoxMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
PBoxMoving := True;
Screen.Cursor := crMove;
PBoxMouseOrg := Point(X, Y);
end
else
PBoxMoving := False;
end;
procedure TForm1.pbPasteBoxMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if PBoxMoving then
begin
PBoxMoving := False;
Screen.Cursor := crDefault;
end;
end;
procedure TForm1.pbPasteBoxPaint(Sender: TObject);
var
SrcRect: TRect;
begin
if Pasted then
begin
if not PBoxMoving then
begin
SrcRect := Rect(0, 0, PasteBitmap.Width, PasteBitmap.Height);
end;
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
ChangeClipBoardChain(Handle, OldClipViewHwnd);
PasteBitmap.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Rslt: Word;
begin
with imgDrawingPad.Canvas do begin
Brush.Style := bsSolid;
Brush.Color := clWhite;
FillRect(ClipRect);
FileName := '';
end;
SetDrawingStyle;
Modified := False;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if SaveDialog.Execute then
begin
imgDrawingPad.Picture.SaveToFile(SaveDialog.FileName);
end;
end;
end.
Номер выпуска : 2424
Возраст листа : 163 (дней)
Количество подписчиков : 381
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/95922
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Re: форум
k> Здравствуйте!
k> Где можно почитать про создание ПРОСТЕЙШИХ форумов с использованием
Простейший форум это гостевая книга.. руководств и самих книг.. до
пупка... Если надо могу выслать
форум
Здравствуйте!
Где можно почитать про создание ПРОСТЕЙШИХ форумов с использованием
PHP?
создание компонента
Здравствуйте!
Вот такая проблема: как можно создать richedit?
То есть например нажал на кнопку - создалась новая страница в
TabbedNotebook и на ней создался richedit????
Очень желательно пример на Дельфи6.
Спасибо за помощь!
Re: C# do not installing for w98?
У VS есть remote debuging вот с помощью онного и надо дебажить гиморно
медленно но возможно!
Дебажат 98 с другой машины.
Повторюсь....
C# do not installing for w98?
И если нет, то как отлаживать по 98?
--
Дедка mailto:geg***@y*****.ru
На муки творчетства подвиг Винамп своей тишиной
Номер выпуска : 2419
Возраст листа : 163 (дней)
Количество подписчиков : 381
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/95819
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Номер выпуска : 2420
Возраст листа : 163 (дней)
Количество подписчиков : 381
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/95859
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Re: C# do not installing for w98?
Повторюсь....
C# do not installing for w98?
И если нет, то как отлаживать по 98?
Re[11]: Delphi как язык против C++
G> древовидное представление кода, т.е. можно закрывать блоки if, циклы,
Как конкретно??
FoxPro: команда append
Добрый день!
Может поможет мне кто-нибудь разораться с такой проблемой:
Имеется код:
"......
use q110_sort EXCLUSIVE in 0
select q110_sort
zap
append from qq10
append from sw_z1
....."
По логике этот кусок должен все данные из таблиц qq10 и sw_z1 добавить к данным
в таблице q110_sort. Но не получается добавлять.
Имеется один моментик: структура всех трёх таблиц разная. Может в этом проблема?
В имеющихся книжках не могу найти описание команды append
C уважением, Бурляев Вячеслав
Номер выпуска : 2417
Возраст листа : 163 (дней)
Количество подписчиков : 381
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/95805
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Re: Help VC++7
> :(( У меня только 6-ой
> С уважением,
> Борис Сурин, surin_***@m*****.ru
Здравствуйте!
А что большая разница? Мне бы основы понять. Как работать с ентим
зверем(VC++). И в каких файлах(*.h) что прячится, тоесть для чего кого
подключать. Надеюсь я не слишком косноязычен.
Заранее спасибо.
С уважением monah
janal***@n*****.ru
Номер выпуска : 2416
Возраст листа : 163 (дней)
Количество подписчиков : 381
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/95763
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
разработка БД
>Вот возник такой вопрос.
>Есть таблица клиентов, причем клиенты бывают 3-х видов
>1- Частник с паспортом
>2- Частник с другим документом
>3- Организация и инннэнами и прочим
Попробуй привести БД к следующей нормальной форме.
Относительно твоей структуры отправь все виды клиентов в справочник, к
стати в дальнейшем клиентов может быть больше.
С УВАЖЕНИЕМ Евдокимов Федор
Номер выпуска : 2415
Возраст листа : 163 (дней)
Количество подписчиков : 381
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/95670
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Re[8]: [Delphi6] winamp
Здравствуйте monah,
Tuesday, March 2, 2004, 8:40:24 PM, вы писали:
m> В шестой есть WinSight32 называется.
Хватит уже!
Если каждый скажет "а по-моему в такой-то есть", во что превратится
лист?
