Sida 2 av 2
Re: Simulera en rotationsgivare i Lazarus/Delphi
Postat: 18 december 2013, 00:44:20
av BEEP
Jag kunde inte öppna ditt projekt i Delphi 6 och orkade inte läsa koden som fanns i filerna så du får fixa resten själv

Re: Simulera en rotationsgivare i Lazarus/Delphi
Postat: 18 december 2013, 00:55:34
av lgrfbs
Det är bara inklistrat från din kodruta, hur som TACK för hjälpen.
Re: Simulera en rotationsgivare i Lazarus/Delphi
Postat: 18 december 2013, 00:56:12
av SeniorLemuren
Hej. Här är en lite mer strippad version som du kan kolla på.
Delphi.zip
Kod: Markera allt
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (Mouse.CursorPos.Y- 189 >= 0) and (Mouse.CursorPos.Y- 189 < 89) and
(Mouse.CursorPos.X < 310)and (Mouse.CursorPos.X > 260)then
begin
Label1.Caption := IntToStr((Mouse.CursorPos.Y - 189) div 8) ;
end;
end;
that's all it takes.

Re: Simulera en rotationsgivare i Lazarus/Delphi
Postat: 18 december 2013, 09:58:55
av BEEP
SeniorLemuren. "that's all it takes."
Hjulet får ett nytt värde varje gång som bestäms av muspekarens posistion. Ska den inte behålla det gamla värdet och minska eller öka det när man snurrar på hjulet?
lgrfbs.
Du kan tjusa till det lite med att ändra muspekarn när den är över hjulet.
Image1.Cursor := crHandPoint;
Image1.Cursor := crArrow;
Re: Simulera en rotationsgivare i Lazarus/Delphi
Postat: 18 december 2013, 10:07:46
av SeniorLemuren
"that's all it takes."
Det var ett exempel på hur enkelt man kan få ett värde för varje stegning upp eller ner inom en viss area. Det var det som jag fattade, som själva frågan. Hur man sedan vill spara det gamla värdet, skriver ut andra saker m.m har jag för enkelhetens skull utelämnat i exemplet.
Editerat.
Re: Simulera en rotationsgivare i Lazarus/Delphi
Postat: 18 december 2013, 10:49:24
av BEEP
Okej, jag trodde att du menade att jag hade krånglat till det

Re: Simulera en rotationsgivare i Lazarus/Delphi
Postat: 18 december 2013, 11:10:53
av lgrfbs
jag höll tummarna att de exemplen som kanske dök upp skulle bete sig som mitt, men som sagt jag ska väl göra något också och inte få allt serverat på guldfat
TACK för exempelkoden!
SeniorLemuren och
BEEP
Re: Simulera en rotationsgivare i Lazarus/Delphi
Postat: 27 december 2013, 01:22:09
av lgrfbs
SeniorLemuren skrev:Är Lazarus någon typ av Delphi-kopia. Vilken version av Delphi möter den i så fall upp till?
Skulle inte kalla Lazarus för kopia, utan de har varit smarta och insett hur de ska göra för att det ska vara en smidig övergång från Delphi till Lazarus.
Lite bilder, som en virutel julklapp

.
.
.
.
.
.
Inte tjuvtitta, rulla nedåt för att öppna paketet.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
Lazarus1014.png
Delphi7 and Lazarus1014.png
Datorn kör Windows 7 64 Professional