Перемещение картинок на кнопках в Delfi7

[JapanStyle^^]

Доброго времени суток. У меня такой вопрос. Есть 16 кнопок спидБаттон в ряд. У каждой есть своё изображение (Glyph) и мне нужно сделать следующее. При нажатии Шифт+кнопка мыши на кнопе в ряду картинки на СпидБаттонах смещались влево (все картинки одновременно т.е 5 в 4, 1 в 16 и т.д по кругу) а при нажатии Альт+ кнопка мыши- наоборот сдвиг вправо. Буду очень благодарен.

[SL1M_DOGG]

Выложите то что есть, а вообще просто в ифе на кнопке указать параметр положения на -1 (+1).

[JapanStyle^^]

procedure TForm1.SpeedButton15MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
IF ssShift IN Shift THEN
BEGIN
(sender as TSpeedButton).Glyph.Left:=
(sender as TSpeedButton).Glyph.
end;
end.

[Serge_Bliznykov]

JapanStyle^^, и что?
выложите проект (запакуйте исходники в архив и архив прикрепите к сообщению на форуму: Расширенный режим - Управление вложениями.)

Тогда будет повод для разговора...

[JapanStyle^^]

Вот вам архив исходника.

[evg_m]

картинки на СпидБаттонах смещались влево (все картинки одновременно т.е 5 в 4, 1 в 16 и т.д по кругу)

0. определяем очередность перемещения картинок (Glipth)
offtop можно конечно изощренно сделать двунаправленный список на TspeenButton.Tag (но при наличии квалификации для этого исходный вопрос не возник бы).
поэтому самый простой вариант
1. кнопки должны быть собраны в массив
var
speed: array[0..X] of TspeedButton;

procedure Tform1.ScrollGlipthLeft;
var
  t: TBitmap;
  j: integer;
begin
  t:=speed[0].glipth;
  for j:=1 to X do begin
     speed[j-1].Glipth:=speed[j].glipth;
  end;
  speen[X].glipth:=t;
end;

procedure TForm1.SpeedButton15MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
IF ssShift IN Shift THEN
BEGIN
 ScrollGLipthLeft;
end;

и аналогично делается ScrollGlipthRight

[Serge_Bliznykov]

что за число? Почему по клику кнопки включаются/выключаются?!
Короче, я на 99% уверен, что Вам нужно что-то другое, о чём Вы молчите, как партизан!

Но, то, что Вы хотите (якобы, судя по тех.заданию) - пример в архиве: SpeedButtonExample.rar

Разбирайтесь...
Успехов!

ps. думаю, что Вам нужно понять, что требуется получить и полностью написать заново!

[DiemonStar]

А может стоит сделать вместо кучи отдельных SpeedButton-ов один ToolBox, который поддерживает ImageList, которыми смещение иконок делать намного удобнее? да и события обрабатывать проще.

[JapanStyle^^]

Программа изначально переводила число из 10-в двоичную СС. Если кнопка горела-1.не горит-0. Затем. мне нужно было опусть всё вышеперечисленное. Оставить 16 кнопок и сделать то,что я попросил. Вот,в итоге, я разобрался и получил следующее. Не уж то я не так вопрос задал?

[JapanStyle^^]

В итоге было убранно всё,остались только кнопки,с которыми и необходимо было сделать смену картинок.