Develop and Download Open Source Software
Login
Create Account
Help
MY OSDN
Find Software
Magazine
Develop
Pastebin
Software
People
PersonalForge
Magazine
Wiki
OSDN
>
Find Software
>
ギコナビ(避難所版)
ギコナビ(避難所版)
Summary
Project Summary
Developer Dashboard
Project Reviews
Web Page
Developers
List of RSS Feeds
Statistics
History
Image Gallery
Search Keywords
News
Listed News
Help
Downloads
List of Releases
Help
Source Code
Guide
Browse CVS
Browse Git: gikonavi
Help
Wiki
FrontPage
Title index
Recent changes
Wiki Search
Help
Forums
List of Forums
Open Discussion (2)
Help (1)
Developers (1)
Help
Mailing Lists
list of ML
Help
Ticket
Ticket List
Milestone List
Type List
Component List
List of frequently used tickets/RSS
Submit New Ticket
Help
Browse CVS Repository
/
[OSDN]
/
gikonavigoeson
/
gikonavi
/
InputAssist.pas
Diff of /gikonavigoeson/gikonavi/InputAssist.pas
Parent Directory
|
Revision Log
|
Revision Graph
|
Patch
revision
1.4
by
h677
, Sun Feb 26 16:40:51 2006 UTC
revision
1.5
by
h677
, Mon May 29 15:34:46 2006 UTC
#
Line 72
var
Line 72
var
72
73
implementation
implementation
74
75
uses Setting;
uses Setting, MojuUtils;
76
77
78
{$R *.dfm}
{$R *.dfm}
#
Line 194
procedure TInputAssistForm.GikoListView1
Line 194
procedure TInputAssistForm.GikoListView1
194
begin
begin
195
if ((FSortColumn and 2) > 0) then begin
if ((FSortColumn and 2) > 0) then begin
196
// カテゴリでソート
// カテゴリでソート
197
Compare := AnsiCompareStr(Item1.SubItems[0], Item2.SubItems[0]);
Compare := CompareStr(
198
ZenToHan(Item1.SubItems[0]), ZenToHan(Item2.SubItems[0]));
199
if (Compare = 0) then begin
if (Compare = 0) then begin
200
Compare := AnsiCompareStr(Item1.Caption, Item2.Caption);
Compare := CompareStr(
201
ZenToHan(Item1.Caption), ZenToHan(Item2.Caption));
202
end;
end;
203
end else begin
end else begin
204
// キーでソート
// キーでソート
205
Compare := AnsiCompareStr(Item1.Caption, Item2.Caption);
Compare := CompareStr(
206
ZenToHan(Item1.Caption), ZenToHan(Item2.Caption));
207
if (Compare = 0) then begin
if (Compare = 0) then begin
208
Compare := AnsiCompareStr(Item1.SubItems[0], Item2.SubItems[0]);
Compare := CompareStr(
209
ZenToHan(Item1.SubItems[0]), ZenToHan(Item2.SubItems[0]));
210
end;
end;
211
end;
end;
212
// 昇順降順の反転
// 昇順降順の反転
Colored Diff
Long Colored Diff
Full Colored Diff
Unidiff
Context Diff
Side by Side
Legend:
Removed from v.1.4
changed lines
Added in v.1.5
Back to OSDN
">
Back to OSDN
ViewVC Help
Powered by
ViewVC 1.1.26